Сравнение дат

[for_regist1]

Делаю так:
var date_beg: string;
date1: Tdate;

date_beg:= concat ('11.','11.','2211');
date1:= strtodate(date_beg);

DataModule2.FindQuery1.SQL.Text := 'Select distinct auto_code as [auto_code], count(auto_code) as [count], date as [date] from car_base where date <= ate1 group by auto_code, date';

Ничего не выдаёт, однако в БД есть записи с датой 11.11.2211

[_Engine_]

А где ты значение параметру присваиваешь?

[for_regist1]

разве это не здеcь?
...DataModule2.FindQuery1.SQL.Text := 'Select distinct auto_code as [auto_code], count(auto_code) as [count], date as [date] from car_base where date < = Date1 group by auto_code, date';
??

[_Engine_]

нет, должно быть что-то типа:
MyDataSet.ParamByName('date1').Valu e := Date1;

Справку посмотрел бы, давно бы уже все вопросы отпали

[for_regist1]

Воооот, мы и дошли, после этой строки выдаёт ошибку несоответствие типов данных в параметре запроса:

код:

date_beg:= concat ('11.','11.','2211');
date1:= strtodate(date_beg);
DataModule2.FindQuery1.SQL.Text := 'Select distinct auto_code as [auto_code], count(auto_code) as [count], date as [date] from car_base where date = ate1 group by auto_code, date';
DataModule2.FindQuery1.Parameters.P aramByName('date1').value:= date1;

[_Engine_]

Ну и какого же типа у нас поле date в access?

[for_regist1]

Типа Дата\Время

[_Engine_]

У меня данный код работает без ошибок

[for_regist1]

Какие нибудь может дополнительные настройки?
У вас есть аська??

Используйте кнопку "Правка". Не плодите посты

[_Engine_]

Переименуй поля в таблице, и не используй зарезервированных слов в названиях таблиц и полей