Запрос ADOQuery

[MrMorozko]

Всем доброго времени суток. Имеется запрос который компилируется но не проходит, в смысле ошибок не выдает но не работает....уже не знаю в чем косяк...вот собственно листинг

procedure TForm4.Button1Click(Sender: TObject);
var st1,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';
 begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM tableA 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;

end;
end;
end;

Запрос должен выполнять по сути фильтрацию от одного значения до другого

[OlegVE]

Здравствуйте
А если так

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

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

// ADOQuery1.Active:=true;

ADOQuery1.Parameters.ParamByName('s t2_p').value := st2;
ADOQuery1.Parameters.ParamByName('s t3_p').value := st3;
ADOQuery1.Parameters.ParamByName('s t4_p').value := st4;

ADOQuery1.Active:=true;
end;
end;
end;[/CODE]
Запрос должен выполнять по сути фильтрацию от одного значения до другого

До свидания

[MrMorozko]

Даже так) так уже ставил

[evg_m]

1. попробовать так

ADOQuery1.SQL.Add('SELECT * FROM tableA WHERE (:st2_p1>:st3_p) and (:st2_p2<:st4_p) ');

ДВА разных параметра для одного поля.

2..Я бы не стал имя поля фильтрации задавать параметром.

ADOQuery1.Active:=false;
ADOQuery1.SQL..text:='SELECT * FROM tableA'
 if st2='Нименование' then begin adoquery1.SQL.Add('WHERE (name>:st3_p) and (name<:st4_p) ');
Adoquery.parameters.....

[OlegVE]

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

Даже так) так уже ставил

Только так и надо. Параметры меняются также в закрытом запросе. Объясните следующее

(:st2_p>:st3_p) and (:st2_p<:st4_p) ');

Что Вы хотите выбрать?
Добавка
Два ответа одновременно . Учтите при ответе и сообщение от evg_m (я имел ввиду только эту часть "Я бы не стал имя поля фильтрации задавать параметром").
Добавка 2
Думаю Вам надо это

ADOQuery1.SQL.Add('SELECT * FROM tableA WHERE (' + st2 + '>:st3_p) and (' + st2 + '<:st4_p) ');

[MrMorozko]

увы....не один из вариантов не проходит
Мне нужно допусти из списка значений1-1000, отфильтровать от 50 до 100
я уже и на прямую пробовал задать запрос...'WHERE (iden>50) and (iden<100) '

[OlegVE]

1. Исправьте все ошибки. Например

 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';

и поясните чего Вы хотите добиться
2. Разберитесь со всеми Вашими begin и end.

procedure TForm4.Button1Click(Sender: TObject);
var st1,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; // Если Вам так более читаемо, 
//т.к. для подобного этому begin st2:='iden'; end;  begin и end не нужны
// begin
ADOQuery1.Active:=false;
...
ADOQuery1.Active:=true;

// end;
// end;
end;

Вас устраивает что запрос может вообще не обновляться?
3. Попробуйте для проверки такой код

procedure TForm4.Button1Click(Sender: TObject);
begin
 ADOQuery1.Active:=false;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('SELECT * FROM tableA WHERE (iden>50) and (iden<100);');
 ADOQuery1.Active:=true;
end;

Тогда Вы разберётесь с Вашими if ... else ...
4. Главное. В параметрах передают значения, а не имена полей.

[Gulik]

   ADOQuery1.Active := False ;
   ADOQuery1.SQL.Clear ;
   ADOQuery1.SQL.Add('SELECT * FROM tableA LIMIT 0, 30') ;
   ADOQuery1.Active := True ;

ну а параметры сам вставишь

[evg_m]

'WHERE (iden>50) and (iden<100)
Какой ТИП поля в БД.(не строковый ли случаем).
сортировка (и порядок для чисел и для строк отличаются).
Есть ли там нужные записи.