[Вован]

Помогите пожалуйста!
Имеется запрос

Select * from TbSoldier, TbVac
Where IdSoldier=IdSoldierV and InitialDate>=:date1

Date1-параметр типа дата, его задаю
DataModule1.QVac.Parameters.ParamByName('Date1').V alue:=
DateTimePicker1.Date;

Выдается ошибка о несоответствии типов?

Помогите!

[Aristarh Dark]

На первый взгляд ошибки не видно, приведи весь код

[Вован]

procedure TForm20.BitBtn1Click(Sender: TObject);
begin
DataModule1.QVac.Parameters.CreateParameter('Date1 ',ftDate,pdInput,0,0);
DataModule1.QVac.SQL.Text:= 'Select * from TbSoldier, TbVac
Where IdSoldier=IdSoldierV and InitialDate>=:date1';
DataModule1.QVac.Parameters.ParamByName('Date1').V alue:=DateTimePicker1.Date;
DataModule1.QVac.Open;
if DataModule1.QVac.IsEmpty then ShowMessage('Данных не имеется!')
else
begin
//вывод в отчет
form1.Ek1.InFile:='Шаблоны\Between.rtf';
form1.ek1.OutFile:='Справки\Отчет за период.doc';
form1.ek1.ExecuteOpen([DataModule1.QVac],SW_SHOW);
end;
DataModule1.QVac.Close;
end;

[Aristarh Dark]

Сообщение от Вован

procedure TForm20.BitBtn1Click(Sender: TObject);
begin
DataModule1.QVac.Parameters.CreateParameter('Date1 ',ftDate,pdInput,0,0);
DataModule1.QVac.SQL.Text:= 'Select * from TbSoldier, TbVac
Where IdSoldier=IdSoldierV and InitialDate>=:date1';
DataModule1.QVac.Parameters.ParamByName('Date1').V alue:=DateTimePicker1.Date;
DataModule1.QVac.Open;
if DataModule1.QVac.IsEmpty then ShowMessage('Данных не имеется!')
else
begin
//вывод в отчет
form1.Ek1.InFile:='Шаблоны\Between.rtf';
form1.ek1.OutFile:='Справки\Отчет за период.doc';
form1.ek1.ExecuteOpen([DataModule1.QVac],SW_SHOW);
end;
DataModule1.QVac.Close;
end;

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

Код:

...
DataModule1.QVac.SQL.Text:= 'Select * from TbSoldier, TbVac
Where IdSoldier=IdSoldierV and InitialDate>=:date1';
DataModule1.QVac.ParseSQL(DataModule1.QVac.SQL.Text,true);
DataModule1.QVac.Parameters.ParamByName('date1').Value:=DateTimePicker1.Date;
....

[Вован]

Все спасибо, разобрался сам. Здесь хотя тип параметра Дата
все равно передавать значение параметру нужно как строку.

DataModule1.QVac.Parameters.ParamByName('date1').V alue:=DateToStr(DateTimePicker1.Date);