ADOQuery фильтр

[MrMorozko]

Всем привет, почему то ругается на тип данных и раз на то пошло верно ли составлен запрос Спасибо_)

procedure TForm4.Button1Click(Sender: TObject);
var st2,st3,st4:string;
begin
Edit1.Text:=st3;
Edit2.Text:=st4;

st2:=ComboBox1.Text;
 if st2='Наименование' then begin osnovnaya.adoTable1.IndexName:='2';st2:='name'; end else
 if st2='Цена' then begin osnovnaya.adoTable1.IndexName:='3';st2:='price'; end else
  if st2='Гарантия' then begin osnovnaya.adoTable1.IndexName:='4'; st2:='guarantee'; end else
   if st2='Идентификатор' then begin osnovnaya.adoTable1.IndexName:='1'; st2:='iden'; end else

begin
 ADOQuery1.Active:=false;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('SELECT *');
   ADOQuery1.SQL.Add('FROM tableA');
   Ругается сдесь>>>>>>ADOQuery1.SQL.add('WHERE '''+st2+''''' < '''''+st3+''''' and '''+st2+''''' > '''''+st4+''''' );
   ADOQuery1.Active:=true;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[maLoy*508]

где то напутали с кавычками... проще использовать параметрический запрос....
попробуй-те так:

ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT *');
ADOQuery1.SQL.Add('FROM tableA');
ADOQuery1.SQL.add('WHERE (:st2_p < :st3_p) and (:st2_p > :st4_p) ' );

ADOQuery1.Parameter.ParamByName('st 2_p').value := st2;
ADOQuery1.Parameter.ParamByName('st 3_p').value := st3;
ADOQuery1.Parameter.ParamByName('st 4_p').value := st4;
ADOQuery1.Active:=true;

и еще у 'and' приоритет выше чем у '>' или '<', так что нужно брать в скобки(если мне конечно память не изменяет...)

[Serge_Bliznykov]

1) я бы начал с того, что проиницилизировал переменные st3 и st4
т.е. вместо:
Edit1.Text:=st3;
Edit2.Text:=st4;
написал:

st3 := Edit1.Text;
st4 := Edit2.Text;

2) разобрался, на каких типах данных выдаётся ошибка.
Дело в том, что в кавычки нужно брать только строковые константы.
А числовые - не надо.

ну и очень хорошо в подобных ситуациях помогает вывод текста запроса (ADOQuery1.SQL.Text куда-нибудь, где можно посмотреть: Memo, внешний файл, или даже банальный ShowMessage(ADOQuery1.SQL.Text);

ну и

Сообщение от maLoy*508

проще использовать параметрический запрос....

+1

[MrMorozko]

Спасибо, запрос проходит но не работает....Хмм...

[MrMorozko]

Просьба глянуть, запрос проходить но фильтрация не проходит...должна фильтровать от A до В, что интересно без указания переменных а при указанием точного поля и значения А и В тоже никакой реакции (типо WHERE (tableA.Идентификатор>'5') and (tableA.Идентификатор<'15')

var st2,st3,st4:string;
begin
st3:=Edit1.Text;
st4:=Edit2.Text;

st2:=ComboBox1.Text;
 if st2='Наименование' then begin st2:='name'; end else
 if st2='Цена' then begin st2:='price'; end else
  if st2='Гарантия' then begin st2:='guarantee'; end else
   if st2='Идентификатор' then begin st2:='iden'; end else

begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT *');
ADOQuery1.SQL.Add('FROM tableA');
ADOQuery1.SQL.add('WHERE (:st2_p >:st3_p) and (:st2_p < :st4_p)');
ADOQuery1.Active:=true;
ADOQuery1.Parameters.ParamByName('st2_p').value := st2;
ADOQuery1.Parameters.ParamByName('st3_p').value := st3;
ADOQuery1.Parameters.ParamByName('st4_p').value := st4;

[MrMorozko]

Вот при таком раскладе

Osnovnaya.ADOQuery1.Active:=false;
Osnovnaya.ADOQuery1.SQL.Clear;
Osnovnaya.ADOQuery1.SQL.Add('SELECT *');
Osnovnaya.ADOQuery1.SQL.Add('FROM tableA');
Osnovnaya.ADOQuery1.SQL.add('WHERE ('+ComboBox1.Text+'='+Edit1.Text+') and ('+ComboBox1.Text+' <= '+Edit2.Text+') ' );
Osnovnaya.ADOQuery1.Active:=true;

Говорит что параметр данного поля не имеет значения по умолчанию