
07.09.2012, 13:07
|
 |
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от 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;
|