[poison-bla]

Для заноса выбранной даты в таблицу использую такой код

Код:

DataModuleUnit.AdoQuery1.Parameters[6].Value:=DateToStr(Form9.DateTimePicker1.Date);
DataModuleUnit.AdoQuery1.Parameters[7].Value:=DateToStr(Form9.DateTimePicker2.Date);

Проблема такая: изначально в DateTimePicker светится текущая дата.
Дату выдачи книги оставляю сегодняшнюю, а дату возврата ставлю, к примеру, на 5 июля. А в таблице в итоге и там и там светится текущая дата.
Помогите исправить.

[djjag]

попробуй так:

DataModuleUnit.AdoQuery1.Parameters[6].AsDate:=(Form9.DateTimePicker1.Date);

[poison-bla]

Пишет Undeclared identifier: 'AsDate'

[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;