Не получается сделать поиск по дате и в интервале дат.

[Aleksandr]

Имеется база в акцесе base с полем Дата_записи тип Дата/время. Нужно найти все записи в базе по полю Дата_записи. Дата выбирается с DateTimePicker1. Интервал дат DateTimePicker1 и DateTimePicker2.
Поиск

ADOQuery1.Active:=false;
   ADOQuery1.SQL.Clear;
 // ADOQuery1.SQL.Text := 'select * from base' +
 //   ' where Дата_записи=' +quotedstr(RzEdit1.Text);

   ADOQuery1.SQL.Text := 'select * from base' +
    ' where Дата_записи=' +DateToStr(DateTimePicker1.Date);

   ADOQuery1.Open;

Интервал дат

ADOQuery1.Active:=false;
   ADOQuery1.SQL.Clear;
 // ADOQuery1.SQL.Text := 'select * from base' +
 //   ' where Дата_записи=' +quotedstr(RzEdit1.Text);

   ADOQuery1.SQL.Text := 'select * from base' +
    ' where Дата_записи>=' +DateToStr(DateTimePicker1.Date) and  ' Дата_записи<=' +DateToStr(DateTimePicker2.Date);

   ADOQuery1.Open;

[Sciv]

А так?

   ADOQuery1.SQL.Text := 'select * from base' +
    ' where [Дата_записи]=' +quotedstr(DateToStr(DateTimePicker1.Date));

[Aleksandr]

Не получается выдает ошибку.

[Аватар]

Дата_записи какой формат имеет? Если дата-время, то

var  d1,d2: TDateTime;

  ADOQuery1.SQL.Text := 'select * from base where Дата_записи BETWEEN :date1 AND :date2';
  d1:=Trunc(DateTimePicker1.Date);
  d2:=Trunc(DateTimePicker2.Date);
  ADOQuery1.Parameters.ParamByName('date1').Value:=d1;
  ADOQuery1.Parameters.ParamByName('date2').Value:=d2;

[Aleksandr]

Аватар спасибо получилось.

[Sciv]

Дата_записи какой формат имеет? Если дата-время, то

Ну да, точно... я про формат как-то забыл Но имя поля все-равно лучше в [] взять, так как это акцесс и название по-русски оформлено.