Поиск по диапазону дат в dbgrideh

[spotip]

пытаюсь сделать поиск по диапазону дат база Microsoft sql server 2008r через связь ADOConnection,DataSource,ADOQuery, в базе колонка dt с датой, пытаюсь сделать поиск от и до:

var
dat1:TdateTime;
dat2:TdateTime;
begin
Datamodule2.Turb_Query2.Active:=false;
Datamodule2.Turb_Query2.SQL.Clear;
Datamodule2.Turb_Query2.SQL.Add('SELECT*');
Datamodule2.Turb_Query2.SQL.Add('FROM turb');
Datamodule2.Turb_Query2.SQL.Add('Where dt between :dat1 and: dat2');
dat1:=DateTimePicker1.Date;
dat2:=DateTimePicker2.Date;
Datamodule2.Turb_Query2.Parameters.ParamByName ('dat1').Value:= dat1;
Datamodule2.Turb_Query2.Parameters.ParamByName ('dat2').Value:= dat2;
Datamodule2.Turb_Query2.Active:=true;

пишет Parametr dat2 not found, подскажите где ошибка.

[Toxa]

надо вот так

Datamodule2.Turb_Query2.SQL.Add('Where dt between :dat1 and :dat2');

чтобы query воспринимал dat2 как переменную, перед ней вплотную надо поставить двоеточие

[spotip]

Сообщение от Toxa

надо вот так

Datamodule2.Turb_Query2.SQL.Add('Where dt between :dat1 and :dat2');

чтобы query воспринимал dat2 как переменную, перед ней вплотную надо поставить двоеточие

да помогло спасибо, ещё можно уточнить, выдаёт немного не так как я хочу, т.е есть даты например 1, 2, 3, в бд в поиске ввожу искать с 1 ого по 2 ое число 1 вое число почему то не отображает и так далее, и ещё вопрос как сбросить сей поиск, т.е как вернуть dbgrid в состояние до нажатия поиска.

[Аватар]

почему то не отображает

Убери время из dat1 и dat2

[Serge_Bliznykov]

Сообщение от Аватар

Убери время из dat1 и dat2

абсолютно согласен.

причём время может мешать с двух сторон (как со стороны параметров, куда они попадают из DateTimePicker'ов, так и со стороны поля dt в БД).

я бы начал с того, что отбросил время в параметрах:

dat1 := Trunc(DateTimePicker1.Date);
dat2 := Trunc(DateTimePicker2.Date);
Datamodule2.Turb_Query2.Parameters.ParamByName('dat1').Value:= dat1;
Datamodule2.Turb_Query2.Parameters.ParamByName('dat2').Value:= dat2;

чтобы отбросить время в поле dt (если оно там есть, конечно), потребуется использовать специфику СУБД, к сожалению функции обработки дат отличаются в разных СУБД

[Аватар]

Если в dt есть время, то так (в параметр dat2 число на 1 больше, чем в DateTimePicker2.Date). dat1 и dat2 без времени. Это чуть помедленнее чем between

Where dt>=:dat1 AND dt<:dat2

[spotip]

Сообщение от Serge_Bliznykov

абсолютно согласен.

причём время может мешать с двух сторон (как со стороны параметров, куда они попадают из DateTimePicker'ов, так и со стороны поля dt в БД).

я бы начал с того, что отбросил время в параметрах:

dat1 := Trunc(DateTimePicker1.Date);
dat2 := Trunc(DateTimePicker2.Date);
Datamodule2.Turb_Query2.Parameters.ParamByName('dat1').Value:= dat1;
Datamodule2.Turb_Query2.Parameters.ParamByName('dat2').Value:= dat2;

чтобы отбросить время в поле dt (если оно там есть, конечно), потребуется использовать специфику СУБД, к сожалению функции обработки дат отличаются в разных СУБД

если делаю так то выдаёт ошибку Parametr dat2 not found.

[spotip]

Сообщение от Аватар

Если в dt есть время, то так (в параметр dat2 число на 1 больше, чем в DateTimePicker2.Date). dat1 и dat2 без времени. Это чуть помедленнее чем between

Where dt>=:dat1 AND dt<:dat2

если так то теперь 1 вое число показывает но не показывает 2 ое число

[Serge_Bliznykov]

Сообщение от spotip

если делаю так то выдаёт ошибку Parametr dat2 not found.

О! Как это может быть?!?!
У Вас в запросе есть:

Datamodule2.Turb_Query2.SQL.Add('Where dt between :dat1 and :dat2');

а в какой момент выдаётся ошибка (на какой строке кода)?

Сообщение от spotip

если так то теперь 1 вое число показывает но не показывает 2 ое число

Для такого подхода второй параметер (dat2) надо увеличить на 1 день.

[spotip]

[QUOTE=Serge_Bliznykov;1373507]О! Как это может быть?!?!
У Вас в запросе есть:

Datamodule2.Turb_Query2.SQL.Add('Where dt between :dat1 and :dat2');

а в какой момент выдаётся ошибка (на какой строке кода)?

var
dat1:TdateTime;
dat2:TdateTime;
begin
Datamodule2.Turb_Query1.Active:=false;
Datamodule2.Turb_Query1.SQL.Clear;
Datamodule2.Turb_Query1.SQL.Add('SELECT*');
Datamodule2.Turb_Query1.SQL.Add('FROM turb');
Datamodule2.Turb_Query1.SQL.Add('Where dt between :dat1 and :dat2'); 
dat1 := Trunc(DateTimePicker1.Date);
dat2 := Trunc(DateTimePicker2.Date);
Datamodule2.Turb_Query2.Parameters.ParamByName('dat1').Value:= dat1; -- тут ошибка Parametr dat1 not found
Datamodule2.Turb_Query2.Parameters.ParamByName('dat2').Value:= dat2;
Datamodule2.Turb_Query1.Active:=true;