![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Помогите пожалуйста!
Имеется запрос Select * from TbSoldier, TbVac Where IdSoldier=IdSoldierV and InitialDate>=:date1 Date1-параметр типа дата, его задаю DataModule1.QVac.Parameters.ParamByName('Date1').V alue:= DateTimePicker1.Date; Выдается ошибка о несоответствии типов? Помогите! |
#2
|
||||
|
||||
![]() На первый взгляд ошибки не видно, приведи весь код
|
#3
|
|||
|
|||
![]() 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; |
#4
|
||||
|
||||
![]() Цитата:
Код:
... 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; .... |
#5
|
|||
|
|||
![]() Все спасибо, разобрался сам. Здесь хотя тип параметра Дата
все равно передавать значение параметру нужно как строку. DataModule1.QVac.Parameters.ParamByName('date1').V alue:=DateToStr(DateTimePicker1.Date); |