отбор по дате, от и до

[Follout]

procedure TForm1.Button4Click(Sender: TObject);
begin

DateTimePicker1.Time:=StrToTime('0:00:00');
DateTimePicker2.Time:=StrToTime('0:00:00');

DataModule1.ADOQuery1.Active:=false;
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add('SELECT* FROM tab1 WHERE дата BETWEEN :StartDate AND :FinishDate ');
DataModule1.ADOQuery1.Parameters.ParamByName('StartDate').Value:=DateTimePicker1.DateTime;
DataModule1.ADOQuery1.Parameters.ParamByName('FinishDate').Value:=DateTimePicker2.DateTime;
DataModule1.ADOQuery1.Active:=true;
end;

Практически то же написал Аватар, но мало-ли, может поможет

[m1zantrop]

нет, нефига

[Serge_Bliznykov]

что - "нет, нефига" ?!
Если запрос не работает, тогда:
1) приведите ошибку, как именно запрос не работает.

2) приведите структуру таблицы tab1 (там есть поле дата ? оно точно типа дата/вермя ?)

3) пробовали ли заключить имя поля в квадратные скобки:

DataModule1.ADOQuery1.SQL.Add('SELECT * FROM tab1 WHERE [дата] BETWEEN :StartDate AND :FinishDate ');

4) может быть, вы уже напортили что-то в свойствах ADOQuery1 ?!
попробуйте кинуть НОВЫЙ TAdoQuery и выполнить с ним эту же операцию...
или запакуйте исходники проекта + тестовая база в архив и выложите сюда, на форум. можно будет посмотреть, что там не работает...

[m1zantrop]

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

что - "нет, нефига" ?!
Если запрос не работает, тогда:
1) приведите ошибку, как именно запрос не работает.

2) приведите структуру таблицы tab1 (там есть поле дата ? оно точно типа дата/вермя ?)

3) пробовали ли заключить имя поля в квадратные скобки:

DataModule1.ADOQuery1.SQL.Add('SELECT * FROM tab1 WHERE [дата] BETWEEN :StartDate AND :FinishDate ');

4) может быть, вы уже напортили что-то в свойствах ADOQuery1 ?!
попробуйте кинуть НОВЫЙ TAdoQuery и выполнить с ним эту же операцию...
или запакуйте исходники проекта + тестовая база в архив и выложите сюда, на форум. можно будет посмотреть, что там не работает...

прикрепил в архиве

[Serge_Bliznykov]

во-первых, зачем использовать Query и DataSource, расположенные НА ДРУГИХ ФОРМАХ?!?!?

например, с каким датасоурсом у Вас связан Ваш грид на форме Form1 ("Результаты тестирования") ??!
смотрим и видим, что он связан с Form2.DataSource1
открываем форму Form2 (Unit2) и видим, что там DataSource1 связан с Adoquery1 расположенным тут же, на форме Form2 !!!!

поэтому на кнопке Button4 уже, КАК МИНИМУМ, должен быть такой код:

DateTimePicker1.Time:=StrToTime('0:00:00');
DateTimePicker2.Time:=StrToTime('0:00:00');

Form2.ADOQuery1.Active:=false;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('SELECT* FROM rezult WHERE data BETWEEN :StartDate AND :FinishDate ');
Form2.ADOQuery1.Parameters.ParamByName('StartDate').Value:=DateTimePicker1.DateTime;
Form2.ADOQuery1.Parameters.ParamByName('FinishDate').Value:=DateTimePicker2.DateTime;
Form2.ADOQuery1.Active:=true;

во-вторых, если временная составляющая не нужна, я бы предложил такой код:

procedure TForm1.Button4Click(Sender: TObject);
var Dt1, Dt2 : TDateTime;
begin
  Form2.ADOQuery1.Active:=false;
  Form2.ADOQuery1.SQL.Clear;
  Form2.ADOQuery1.SQL.Add('SELECT * FROM rezult WHERE INT(data) BETWEEN :StartDate AND :FinishDate ');
  Dt1 := Trunc(DateTimePicker1.Date);
  Form2.ADOQuery1.Parameters.ParamByName('StartDate').Value := Dt1;
  Dt2 := Trunc(DateTimePicker2.Date);
  Form2.ADOQuery1.Parameters.ParamByName('FinishDate').Value := Dt2;
  Form2.ADOQuery1.Active:=true;
end;

[m1zantrop]

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

во-первых, зачем использовать Query и DataSource, расположенные НА ДРУГИХ ФОРМАХ?!?!?

например, с каким датасоурсом у Вас связан Ваш грид на форме Form1 ("Результаты тестирования") ??!
смотрим и видим, что он связан с Form2.DataSource1
открываем форму Form2 (Unit2) и видим, что там DataSource1 связан с Adoquery1 расположенным тут же, на форме Form2 !!!!

поэтому на кнопке Button4 уже, КАК МИНИМУМ, должен быть такой код:

DateTimePicker1.Time:=StrToTime('0:00:00');
DateTimePicker2.Time:=StrToTime('0:00:00');

Form2.ADOQuery1.Active:=false;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('SELECT* FROM rezult WHERE data BETWEEN :StartDate AND :FinishDate ');
Form2.ADOQuery1.Parameters.ParamByName('StartDate').Value:=DateTimePicker1.DateTime;
Form2.ADOQuery1.Parameters.ParamByName('FinishDate').Value:=DateTimePicker2.DateTime;
Form2.ADOQuery1.Active:=true;

во-вторых, если временная составляющая не нужна, я бы предложил такой код:

procedure TForm1.Button4Click(Sender: TObject);
var Dt1, Dt2 : TDateTime;
begin
  Form2.ADOQuery1.Active:=false;
  Form2.ADOQuery1.SQL.Clear;
  Form2.ADOQuery1.SQL.Add('SELECT * FROM rezult WHERE INT(data) BETWEEN :StartDate AND :FinishDate ');
  Dt1 := Trunc(DateTimePicker1.Date);
  Form2.ADOQuery1.Parameters.ParamByName('StartDate').Value := Dt1;
  Dt2 := Trunc(DateTimePicker2.Date);
  Form2.ADOQuery1.Parameters.ParamByName('FinishDate').Value := Dt2;
  Form2.ADOQuery1.Active:=true;
end;

спасибо,