[Red_Garry]

Здравствуйте!
Есть Access-овская база с обрабатываемой таблицей. В структуре записи присутствует поле с полным форматом даты, к примеру, 07-09-2012 13:30:35. Необходимо установить фильтр на ADOTable чисто по дате. Т.е. в таблице много записей за разные даты и каждая с полным набором часов, минут, секунд, милисекунд. Фильтр должен устанавливаться по указываемой дате. Как такое реализовать?

[poli-smen]

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

Здравствуйте!
Есть Access-овская база с обрабатываемой таблицей. В структуре записи присутствует поле с полным форматом даты, к примеру, 07-09-2012 13:30:35. Необходимо установить фильтр на ADOTable чисто по дате. Т.е. в таблице много записей за разные даты и каждая с полным набором часов, минут, секунд, милисекунд. Фильтр должен устанавливаться по указываемой дате. Как такое реализовать?

Пример (для поля типа Дата/время):

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var
  data: TDate;
begin
  data := EncodeDate(2012, 09, 07);
  ADOTable1.Filter := '[Имя поля с датой]>=#'+DateToStr(data)+'# and [Имя поля с датой]<#'+DateToStr(data+1)+'#';
  ADOTable1.Filtered := True;
end;

[Red_Garry]

надо же! Такое простое остроумное решение! Спасибо