НД-статистика

[АНЯ_17]

d_reg - Character? (cicharacter - ?)
Да, тип поля d_reg, cicharacter.. может что та пропустила ?Я

var
dat1:tdate;
dat2:Tdate;
begin
db.AdQ.Active:=false;
db.adq.close;
db.adq.SQL.Clear;
db.adq.SQL.Add('SELECT D_reg');
db.adq.SQL.Add('FROM roj');
db.adq.SQL.Add('Where d_reg between :dat1 and :dat2');
  dat1:=Trunc(DateTimePicker1.Date);
  dat2:=Trunc(DateTimePicker2.Date);
db.adq.Params.ParamByName('dat1').Value:= dat1;
db.adq.Params.ParamByName('dat2').Value:= dat2;
db.adq.open;
db.adq.Active:=true;

[Serge_Bliznykov]

Да, тип поля d_reg, cicharacter

пока не поздно - меняйте тип поля на Date (или DateTime)

[xxbesoxx]

Да тип поля надо менять и здесь личное код убрать

db.adq.open;
db.adq.Active:=true;

adq.open; и adq.Active:=true это одно и тоже .

Вначале тоже что это ?

db.AdQ.Active:=false;
db.adq.close;

Я бы написал так

var
 dat1, dat2 :TDateTime;
begin
 with db.AdQ do
 begin
   close;
   SQL.Clear;
   SQL.Add('SELECT D_reg FROM roj');
   db.adq.SQL.Add('Where d_reg between :dat1 and :dat2');
   dat1:=Trunc(DateTimePicker1.Date); // DateTimePicker1 Что это ?  дайте компоненту осмислений имя
   dat2:=Trunc(DateTimePicker2.Date); // на пример DateTimePicker1-ИМЯ DateTstart   DateTimePicker2-ИМЯ - DateTend
   Params.ParamByName('dat1').Value:= dat1;
   Params.ParamByName('dat2').Value:= dat2;
   open;
end;
end;

Пишите код так что БЫЛО ПОНЯТНО для всех ....

[АНЯ_17]

вот оно смотрите пож.
Все правильно написала вот не хочет работать .

БД-ADS.

[Serge_Bliznykov]

АНЯ_17, ваш Avantage Database Server не у многих установлен.
Зрительно, вроде бы всё у Вас верно...
// а проверить я не могу, у Вас БД в новом формате,
а у меня компоненты древние, версии 9.1....

Только я бы ваш AdQ по другому настроил.

Выделите AdQ, сотрите поле DataSource
и пропишите поле ADSConnection
примерно так:
adq.jpg


Если это не поможет, тогда покажите ещё раз структуру таблицы ZAPROS (особенно тип поля d_reg интересует)

[Serge_Bliznykov]

и ещё. если тип поля у Вас нормальный, замените var f,j на TDateTime:

procedure TForm1.Button3Click(Sender: TObject);
     var
 f,j : TdateTime;
begin
    try
     Adq.SQL.Clear;
           Adq.SQL.Add('SELECT * FROM Clients WHERE   date_open >= :f  and  date_open<:j');  - не смотрите, это я к демке запросы рисовал для тестирования
       f := Trunc(DateTimePicker1.Date);
       j := Trunc(DateTimePicker2.Date);
       adq.Params.ParamByName('f').Value:= f;
       adq.Params.ParamByName('j').Value:= j; 
        Adq.Active:=True;
      except
    on e:Exception do
     end;
end;

[АНЯ_17]

Работала

f,j : TdateTime;

Time- добавила )
и свойств ADS)

[Serge_Bliznykov]

Пасибо, Урра !!!!

Поздравляю!!