[ННС]

Помогите пожалуйста! нужно сделать запрос по конкретной дате из календаря, было много вариантов, но никак не получается, голова идет кругом, главное с какого по какое число задаю, работает, а вот тут тупик. Посмотрите пожалуйста, помогите!!! Очень срочно нужно. сроки поджимают

[lmikle]

Все зависит от того, как ты хранишь дату.
Если только саму дату, то можно смело использовать в запросе "равно".
Если дата хранится со временем, то придется использовать 2 условия (или between). Т.е. дата должна быть больше или равна твоей дате и 00:00:00 времени и мешьше следующему дню с таким же временем.

[ННС]

Сообщение от lmikle

Все зависит от того, как ты хранишь дату.
Если только саму дату, то можно смело использовать в запросе "равно".
Если дата хранится со временем, то придется использовать 2 условия (или between). Т.е. дата должна быть больше или равна твоей дате и 00:00:00 времени и мешьше следующему дню с таким же временем.

Дата храниться без времени. Это последний этап в моей работе, Если можно подскажите пожалуйста, у меня уже мозги кипят. Не могу сообразить, как правильно написать. Если не трудно напишите пожалуйста!!!!

[Страдалецъ]

Так попробуйте:

Код:

 if (RadioButton2.Checked=true) 
 then begin
        DataModule3.AdoQuery2.Active := False;
        DataModule3.ADOQuery2.SQL.Text:='SELECT format(Data,"dd.mm.yyyy") as Data, Puti, Nasvanie_uchastka, Nom_km_n, Nom_pk_n, Nom_km_k, Nom_pk_k, Nasvanie_pribora, Nomer_pribora, F_I_O from GRAFIK where Data=:Date';
        DataModule3.ADOQuery2.Parameters.ParamByName('Date').Value := DateTimePicker1.DateTime;
        DataModule3.ADOQuery2.Active := True;
        end;

[ННС]

Сообщение от Страдалецъ

Так попробуйте:

Код:

 if (RadioButton2.Checked=true) 
 then begin
        DataModule3.AdoQuery2.Active := False;
        DataModule3.ADOQuery2.SQL.Text:='SELECT format(Data,"dd.mm.yyyy") as Data, Puti, Nasvanie_uchastka, Nom_km_n, Nom_pk_n, Nom_km_k, Nom_pk_k, Nasvanie_pribora, Nomer_pribora, F_I_O from GRAFIK where Data=:Date';
        DataModule3.ADOQuery2.Parameters.ParamByName('Date').Value := DateTimePicker1.DateTime;
        DataModule3.ADOQuery2.Active := True;
        end;

Выдает ошибку синтаксиса.
Пробую вот так

Код:

if (RadioButton2.Checked=true) then
 begin
  DataModule3.AdoQuery2.Active:=false;
  DataModule3.AdoQuery2.SQL.Text:='SELECT * FROM GRAFIK WHERE (DATA= :D1) AND (DATA=:D2)';
  (так тоже ругается)//DataModule3.AdoQuery2.SQL.Text:='ORDER BY Data,Puti,Nasvanie_uchastka,Nom_Km_n,Nom_pk_n,Nom_km_k,Nom_pk_k,Nasvanie_pribora,Nomer_pribora,F_I_O';
  DataModule3.DataSource1.DataSet:=DataModule3.AdoQuery2;
  DataModule3.AdoQuery2.Active:=true; 

lmikle: пользуемся тегами, блин!!!

Выбираю дату, выдает просто пустые столбцы

[Страдалецъ]

Поместите код в блок , а то из****овался маленько

[lmikle]

Ну и как ты себе представляешь, поле может иметь 2 разных значения???
Запрос д.б. таким:

Код:

SELECT * FROM GRAFIK WHERE DATA= :D1

И указывать надо только 1 параметр. Это первая ошибка.

Вторая ошибка - ты часть запроса, начинающуюся с ORDER BY... присваиваешь свойству и тем самым затираешь первую часть запроса. Там должен быть вызов метода Add у свойства SQL...