Фильтрация с условием.

[Armageddets]

Доброго времени суток, уважаемые эксперты. Столкнулся с проблемой. Нужно реализовать фильтрацию данных в таблице по условию. Обычная фильтрация работает нормально. Например чтобы отфильтровать данные я писал так:

    DataModule1.AdoTable2.Filter:='Фамилия='''+Edit2.Text+'''';
    DataModule1.AdoTable2.Filtered:=True;

Когда стало нужно отфильтровать данные, дата которых меньше той, которая введена в компоненте DateTimePicker, то стали появляться ошибки мол не найдено данных, удовлетворяющих фильтру или неверная запись... Я пробовал разные варианты, последний был таким:

  DataModule1.AdoTable2.Filter:='Дата Рождения='''+DateToStr(DatetimePicker2.Date)+'''';
  DataModule1.AdoTable2.Filtered:=True;

Как это правильно реализовать я не знаю. Прошу Вашей помощи. И заранее спасибо всем, кто откликнется.

Вот сам проект, если понадобится:
http://rghost.ru/7Llv9tL4P

[Stilet]

Опиши лучше событие OnFilterRecord:

procedure DataModule1.AdoTable2FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := DataSet['Дата Рождения'].AsDateTime = DatetimePicker2.Date;
end;

Оно будет срабатывать когда включаешь фильтр. При этом текст фильтра не нужен.

[Armageddets]

Написал следующий код:

procedure TDataModule1.ADOTable2FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := DataSet['Дата Рождения'].AsDate = form2.DatetimePicker2.Date;
end;

Но теперь появляется ошибка "Class EVariantInvalidOpError with message 'invalid variant operation' process stoped"

Я что-то неправильно сделал?

[Stilet]

А у тебя в базе это поле какого типа?

[Armageddets]

DateTime. Но там только дата пишется без времени. Это можно проверить в базе в примере который я выложил.

[Аватар]

Accept := DataSet['Дата Рождения'].AsDate = Trunc(form2.DatetimePicker2.Date);

[Armageddets]

Пишет ошибку "invalid variant operation"

[Аватар]

А твк:

Accept := DataSet['Дата Рождения'].AsDateTime = Trunc(form2.DatetimePicker2.Date);

[Armageddets]

Та же самая ошибка.

[xxbesoxx]

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

Та же самая ошибка.

1) Можно било через ADOQuery писать SQL запрос
2) зачем между наименование поля пробел ?
ладно, вот так работает на ваши проекте фильтр

procedure TForm2.Button2Click(Sender: TObject);
begin
  with  DataModule1.AdoTable2 do
    begin
      Filtered := False;
      Filter := '[Дата Рождения] =' + QuotedStr(DateToStr(DateTimePicker1.DateTime));
      Filtered := True;
    end;
    if DataModule1.AdoTable2.FieldByName('Дата Рождения').AsString = '' then
    Application.MessageBox('Данных на это период не найдено','Ошибка ввода данных', MB_ICONERROR);

  end;