Показать сообщение отдельно
  #2  
Старый 07.09.2012, 13:07
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 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;
Ответить с цитированием