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

[spotip]

[QUOTE=spotip;1373537]

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

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

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;

в начале выдавало Parametr dat2 not found так как было не правильно указано DateTimePicker2 два раза указал, теперь Parametr dat1 not found

[spotip]

[QUOTE=spotip;1373538]

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

в начале выдавало Parametr dat2 not found так как было не правильно указано DateTimePicker2 два раза указал, теперь Parametr dat1 not found

ой прошу прощения случайно нажал.

[Аватар]

В одном месте Turb_Query1, в другом Turb_Query2. Глаза разбуй

[Serge_Bliznykov]

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;

разницу между Query1 и Query2 видите?!

[spotip]

уфф простите совсем уже...а как + 1 день добавить в этот запрос ?

Datamodule2.Turb_Query1.SQL.Add('Where dt>=:dat1 AND dt<=:dat2');

т.е. так всё и осталось выбирает даты с 1 по 2 ую только 1 ое выбирает

[Аватар]

dat2 := Trunc(DateTimePicker2.Date)+1;

[Serge_Bliznykov]

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

уфф простите совсем уже...а как + 1 день добавить в этот запрос ?

Datamodule2.Turb_Query1.SQL.Add('Where dt>=:dat1 AND dt<=:dat2');

т.е. так всё и осталось выбирает даты с 1 по 2 ую только 1 ое выбирает

добавить один день нужно к dat2

это можно сделать, например, так:

dat2 := Trunc(DateTimePicker2.Date) + 1;

да и ещё.
в запросе неравенство с dat2 должно быть СТРОГИМ:

Datamodule2.Turb_Query1.SQL.Add('Where dt>=:dat1 AND dt< :dat2');

[spotip]

Спасибо огромное за помощь и терпение всё получилось.