[poli-smen]

Сообщение от poison-bla

Пишет Undeclared identifier: 'AsDate'

А если так?:

Код:

DataModuleUnit.AdoQuery1.Parameters[6].Value := Form9.DateTimePicker1.Date;

А вообще к параметрам лучше добираться не по индексу, а по имени параметра.
Пример:

Код:

DataModuleUnit.AdoQuery1.Close;
DataModuleUnit.AdoQuery1.SQL.Text := 'SELECT * FROM MyTable WHERE MyDate >= :Date1 AND MyDate < :Date2';
DataModuleUnit.AdoQuery1.Parameters.ParamByName('Date1').Value := Form9.DateTimePicker1.Date;
DataModuleUnit.AdoQuery1.Parameters.ParamByName('Date2').Value := Form9.DateTimePicker2.Date;
DataModuleUnit.AdoQuery1.Open;