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

[m1zantrop]

все похожие темы не помогли.

procedure TForm1.Button4Click(Sender: TObject);
begin
AdoQuery1.Active:=false;
AdoQuery1.Parameters.ParamByName('f irst_date').Value:=DateTimePicker1. Date;
AdoQuery1.Parameters.ParamByName('l ast_date').Value:=DateTimePicker2.D ate;
AdoQuery1.Active:=true;
end.

фэри запрос

select * from rezult as m
where m.data>= :first_date and m.data<= :last_date

[Аватар]

А так

procedure TForm1.Button4Click(Sender: TObject);
begin
  AdoQuery1.Active:=false;
  AdoQuery1.SQL.Text:='select * from rezult as m where m.data BETWEEN :first_date and :last_date';
  AdoQuery1.Parameters.ParamByName('first_date').Value:=DateTimePicker1.Date;
  AdoQuery1.Parameters.ParamByName('last_date').Value:=DateTimePicker2.Date;
  AdoQuery1.Active:=true;
end;

[m1zantrop]

Сообщение от Аватар

А так

procedure TForm1.Button4Click(Sender: TObject);
begin
  AdoQuery1.Active:=false;
  AdoQuery1.SQL.Text:='select * from rezult as m where m.data BETWEEN :first_date and :last_date';
  AdoQuery1.Parameters.ParamByName('first_date').Value:=DateTimePicker1.Date;
  AdoQuery1.Parameters.ParamByName('last_date').Value:=DateTimePicker2.Date;
  AdoQuery1.Active:=true;
end;

несоответствие типов данных в выражении условия отбора

[Аватар]

Поле data какого типа? Какое СУБД?

[m1zantrop]

Сообщение от Аватар

Поле data какого типа? Какое СУБД?

ацес, дата/время

[Аватар]

Для ACCESS и поля DateTime должно работать

[m1zantrop]

Сообщение от Аватар

Для ACCESS и поля DateTime должно работать

[Аватар]

Можно попробовать еще так, больше мыслей нет

  AdoQuery1.Parameters.ParamByName('first_date').DataType := ftDateTime;
  AdoQuery1.Parameters.ParamByName('first_date').Value:=DateTimePicker1.Date;
  AdoQuery1.Parameters.ParamByName('last_date').DataType := ftDateTime;
  AdoQuery1.Parameters.ParamByName('last_date').Value:=DateTimePicker2.Date;

[m1zantrop]

Сообщение от Аватар

Можно попробовать еще так, больше мыслей нет

  AdoQuery1.Parameters.ParamByName('first_date').DataType := ftDateTime;
  AdoQuery1.Parameters.ParamByName('first_date').Value:=DateTimePicker1.Date;
  AdoQuery1.Parameters.ParamByName('last_date').DataType := ftDateTime;
  AdoQuery1.Parameters.ParamByName('last_date').Value:=DateTimePicker2.Date;

спасибо за попытку

[Venzel]

form10.adotable1.Filtered:=false;
form10.ADOTable1.Filter:='[Датаподачи]>='+QuotedStr(DateToStr(DateTimePicker5.Date)) +'and [Датаподачи]<='+QuotedStr(DateToStr(DateTimePicker6.Date)) +'';
form10.ADOTable1.Filtered:=true;

Оно?