Поиск по дате-?

[Evgenii]

В базе данных MSAccess есть столбец дата. С помощью программы, содзанной в Delphi необходимо производить поиск по дате. Формат даты в MSAccess - Data/Time. С помощью фильтрации используемой для текстовых ячеек не получается

procedure TForm5.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then begin
    form5.AdoTable1.Filtered := false;
    form5.iAdoTable1.Filter := '[Дата] LIKE *' + Form5.Edit1.Text + '*';
    form5.AdoTable1.Filtered := true;
  end
  else
    form5.AdoTable1.Filtered := false;
end;

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

[dr.Chas]

if Length(Edit1.Text) > 0 then begin
    AdoTable1.Filtered := false;
    AdoTable1.Filter := 'Дата=' + DateToStr(DateTimePicker1.DateTime);
    AdoTable1.Filtered := true;
  end
  else
    AdoTable1.Filtered := false;

[Evgenii]

что такое DateTimePicker1? У меня он обозначается как необъявленный идентификатор
Где его нужно обозначить?

[mihali4]

DateTimePicker - это компонент с вкладки Win32.
С его помощью очень удобно корректно вводить дату.
В отличие от вашего "рабоче-крестьянского" способа - через Edit

[raxp]

см. на вкладке win32

[Evgenii]

Т.е. чтобы использовать приведенный выше код, нужно заменить Edit на DateTimePicker, правильно я понимаю? Как его связать с базой?
Для ввода я вообщето использую DBEdit, а Edit служит для поиска, не более

[dr.Chas]

Т.е. чтобы использовать приведенный выше код, нужно заменить Edit на DateTimePicker, правильно я понимаю? Как его связать с базой?

А вы edit связывали?

Вот вам исходник, там и с edit и с DateTimePicker.

Вот так будет правильнее, если вы откажитесь от edita:

AdoTable1.Filtered := false;
AdoTable1.Filter := 'Дата=' + DateToStr(DateTimePicker1.DateTime);
AdoTable1.Filtered := true;

[Evgenii]

Спасибо,
насчет ввода даты-я думал что через этот компонент данные можно вводить непосредственно в базу данных

DateTimePicker - это компонент с вкладки Win32.
С его помощью очень удобно корректно вводить дату.
В отличие от вашего "рабоче-крестьянского" способа - через Edit

А для поиска Edit вполне подходит

Код в исходнике не подходит для поиска по дате. Я же специально указал что данные этого столбца не widestring а data/time!! и задание фильтра для этих данных таким образом:

form5.AdoTable1.Filter := '[Дата] LIKE *' + Form5.Edit1.Text + '*';

невозможно! DataTimePicker в поисковых целях совершенно неудобен!!
Кто-нибудь, подскажите как сделать чтобы Edit искал данные типа Data/Time

[artemavd]

А если так:

form5.AdoTable1.Filter := '[Дата] LIKE *' + DateToStr(Form5.DateTimePicker1.Date) + '*';

???

[Evgenii]

Я вообще не использую DataTimePicker. Для поиска даты служит Edit. Если забыть что DataTimePicker существует, возможно ли с помощью Label производить поиск данных типа Data/Time???