Автофильтр по определенному столбцу DBGrid

[demiancz]

Есть две таблицы Excel. Они загружаются в два DBGrid на форме.
Общего у этих двух таблиц только колонки: "ФИО", "Должность", "Номер телефона", "Дата уведомления"
Нужно сделать автофильтр, что бы при нажатии на кнопку, фильтровалась в обоих таблицах колонка "Дата уведомления" и оставались только даты равные текущему дню и те что ему предшествуют. Затем результаты автофильтра первой и второй таблиц объединить по сходным колонкам "ФИО", "Должность", "Номер телефона", "Дата уведомления" и записать в отдельную таблицу.
Делаю так
1. Текущую дату записываю в Edit

Date := TdateTime(now);
Edit1.Text := DateToStr(Date);

2. В DBGrid1 и DBGrid переношу данные из Excelя так

// Включаем первое соединение и загружаем первую таблицу нужно принимать
ADOConnection1.ConnectionString := Edit1.Text;
ADOConnection1.Connected:=true;
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [Лист1$]');
ADOQuery1.Active:=True;

// Включаем второе соединение и загружаем вторую таблицу
ADOConnection2.ConnectionString := Edit2.Text;
ADOConnection2.Connected:=true;
ADOQuery2.Active:=False;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT * FROM [Лист1$]');
ADOQuery2.Active:=True;

У обоих таблиц название Лист1 одинаковое, но количество колонок и записей разное и в любой момент количество записей может измениться.
3. Пытаюсь фильтровать по нажатию на кнопку

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [Лист1$]');
ADOQuery1.SQL.Add('WHERE ADOQuery1Dateofevent LIKE ''%'+Edit1.Text+'%''');
ADOQuery1.Active:=true;
end;

Здесь ADOQuery1Dateofevent это имя колонки "Дата уведомления" и вот в этом коде и ошибка. Делаю не правильно. А как правильно не знаю.
Помогите пожалуйста отфильтровать и результат того что получиться записать в отдельную таблицу.

[eval]

Date := TdateTime(now);
Edit1.Text := DateToStr(Date);

now уже есть TdateTime, поэтому все эти перегоны лишние..

like к дате применять бессмысленно

[Аватар]

ADOQuery1Dateofevent - что за имя колонки? Вроде речь шла о Дата уведомления

[demiancz]

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

now уже есть TdateTime, поэтому все эти перегоны лишние..

like к дате применять бессмысленно

Подскажите как правильно сделать. Если не трудно.

Сообщение от Аватар

ADOQuery1Dateofevent - что за имя колонки? Вроде речь шла о C

В ADOQuery1 свойсто Name именно ADOQuery1Dateofevent, а DisplayLabel - Дата уведомления.
просто я пытаюсь по имени колонки, а не по отражаемому имени искать.

[eval]

Подскажите как правильно сделать. Если не трудно.

каким форматом лежат данные в поле?

[demiancz]

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

каким форматом лежат данные в поле?

В поле Дата уведомления так 01.12.2013
Я уже думаю может добавить вычисляемое поле и сравнивать текущую дату с полем "Дата уведомления". Если текущая дата <= "Дата уведомления", то поставить '1', если нет - '0'. Ну а потом фильтровать это вычисляемое поле и отобрать все записи в которых есть '1'.
Завтра буду думать-гадать.
Буду благодарен если кто поможет решить задачу.

[Аватар]

Если упрощенно, то примерно так

  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\1.xls;Mode=Read;Extended Properties="Excel 8.0;HDR=No"';
  ADOQuery1.SQL.Text:='SELECT * FROM [Лист1$] WHERE F2>=:MyDate';
  ADOQuery1.Parameters.ParamByName('MyDate').Value:=Date();
  ADOQuery1.Open;

HDR=No - чтобы и данные 1-ой строки тянула
Дата во 2-ой колонке в формате дата (дд.мм.гггг)
Колонки именуются автоматически F1,F2,...

ADD

Вставил в 1-ую строку названия колонок, обратился так, тоже работает

  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\1.xls;Mode=Read;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1"';
  ADOQuery1.SQL.Text:='SELECT * FROM [Лист1$] WHERE [дата]>=:MyDate';
  ADOQuery1.Parameters.ParamByName('MyDate').Value:=Date();
  ADOQuery1.Open;

[demiancz]

У меня в строке

ADOQuery1.Parameters.ParamByName('MyDate').Value:=Date();

ошибка
[dcc32 Error] Unit1.pas(101): E2066 Missing operator or semicolon

Сделал так

ADOQuery1.Parameters.ParamByName('MyDate').Value:=Date;

Вроде бы работает. Пробую.

Возникла проблема со второй таблицей. Если в первой таблице EXecel есть колонка "Дата уведомления" и все работает, то во второй таблице этой колонки нет. Она создана как вычисляемое поле.
Отсюда вопрос. Как сделать автофильтр по вычисляемому полю?

Есть таблица Excel с полями "Фамилия", "Имя", "Год рождения", "Количество дней". Эта таблица загружается в DBGrid. В ADOQuery создается вычисляемое поле "Дата уведомления" в котором выводится дата (суммируются Год рождения и Количество дней). Теперь надо отфильтровать по полю "Дата уведомления". Если текущая дата равна той что в "Дата уведомления", то показать запись.
Помогите пожалуйста. Если вычисляемые поля то запрос такой?
Если обращаться к Excel то запрос был бы такой

ADOQuery2.SQL.Text:='SELECT * FROM [Лист1$] WHERE [Дата уведомления]<=:MyDate';

но в данном случае это ничего не даст, так как в Excel колонки Дата уведомления нет.

[eval]

так как в Excel колонки Дата уведомления нет.

есть, можно фильтровать по

Год рождения и Количество дней

[demiancz]

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

есть, можно фильтровать по

А если количество дней тоже вычисляемое поле?