DateTimePicker и SQL запрос

[SlavyanD]

Доброго времени суток, у меня такой вопрос как вставить дату в sql запрос из DateTimePicker. Приложение соединяется через ADO c MS SQL 2005.

[Баламут]

SELECT * FROM Table WHERE Data = :P1

ADOQuery1.Parameters[0].Value := DateTimePicker1.Date

и т.д.

[SlavyanD]

Спасибо, но для меня это не подошло. Я реализовал все следующим образом, привожу пример, может кому пригодится:

procedure TMainFormDem.BitBtnFiltrDateClick(S ender: TObject);
begin
DataModuleSQL.ADOQueryDemand.Close;
DataModuleSQL.ADOQueryDemand.SQL.Cl ear;
Dat1:= FormatDateTime('yyyy-mm-dd', DateTimePicker1.Date);
Dat2:= FormatDateTime('yyyy-mm-dd', DateTimePicker2.Date);
DataModuleSQL.ADOQueryDemand.SQL.Ad d(' ***Запрос***‘)ж
d1:= 'AND (DateArrival BETWEEN CONVERT(DATETIME,'+ ''''+ Dat1 +''''+', 102) AND CONVERT(DATETIME,'+''''+ Dat2 +''''+', 102))';
DataModuleSQL.ADOQueryDemand.SQL.Ad d(d1);
DataModuleSQL.ADOQueryDemand.Open;
end;

Это для тех кто использует MS SQL SERVER.

[mmihan]

я тоже бился долго.. но у меня вот так .. тоже для ms sql

var

 dt1,dt2:Tdate;
 begin

dt1:=DateTimePicker1.DateTime;


dt2:=DateTimePicker2.DateTime;

//Осуществляем поиск

ADOQuery1.Close; {деактивируем запрос в качестве одной из мер предосторожности}
ADOQuery1.SQL.Clear; {стираем предыдущий запрос}
.... часть sql запроса 
 ([Дата поступления] BeTwEEN '+QuotedStr(FormatDateTime('yyyy-MM-dd',dt1))+'   AND '+QuotedStr(FormatDateTime('yyyy-MM-dd',dt2))+'  )


......
 ADOQuery1.Open; {выполняем запрос}
ADOQuery1.Active:=true;
 DataSource1.DataSet:=ADOQuery1;
 DbGrid1.DataSource:=DataSource1;

[rdama]

А вот это к сожалению идиотизм

BeTwEEN '+QuotedStr(FormatDateTime('yyyy-MM-dd',dt1))+'   AND '+QuotedStr(FormatDateTime('yyyy-MM-dd',dt2))+'  )

Меняем региональные настройки на сервере. И ваша программа перестает работать. Только параметры. Если не получается ищем инфу и разбираемся в чем проблема.

[Serge_Bliznykov]

rdama +1

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