Comdobox и запросы

[obolensky]

Приветствую всех.

Подскажите, как совместить combox и запросы.

Вот мой вариант:

procedure TForm2.Button5Click(Sender: TObject);  
var s: string;
begin
if Combobox1.itemindex=0 then s:='SELECT * FROM tabl2 WHERE Plane = :p0';
if Combobox1.itemindex=1 then s:='SELECT * FROM tabl1 WHERE Data = :p0';
if Combobox1.itemindex=2 then s:='SELECT * FROM tabl1 WHERE Kills <= :p0';
if Combobox1.itemindex=3 then s:='SELECT * FROM tabl3 WHERE Country = :p0';
  try
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(s);
    ADOQuery1.Parameters[0].Value := edit3.text;
    ADOQuery1.Active:=True;
  except
    on e:Exception do
  end;
end;

Данные считываю из edit, это значение присваивается параметру p0. В зависимости от выбранного combobox'а в ADOQuery передаётся нужный запрос с нашим параметром.

Как сделать тоже самое, но без параметров?

[Slym]

с параметром самое правильное решение, зачем ломать правильность?
единственное замечание это
if Combobox1.itemindex=0 then s:='SELECT * FROM tabl2 WHERE Plane = :Param';
if Combobox1.itemindex=1 then s:='SELECT * FROM tabl1 WHERE Data = :Param';
if Combobox1.itemindex=2 then s:='SELECT * FROM tabl1 WHERE Kills <= :Param';
if Combobox1.itemindex=3 then s:='SELECT * FROM tabl3 WHERE Country = :Param';
переделать в массив

const
Sql:array[0..3] of string=('SELECT * FROM tabl2 WHERE Plane = :Param',...);

ADOQuery1.Active:=false;
ADOQuery1.SQL.text:=Sql[Combobox1.itemindex];
ADOQuery1.Parameters[0].Value := edit3.text;
ADOQuery1.Active:=True;

[obolensky]

Спасибо.

Делаю курсовую. Преподаватель попросил найти решение без параметров.

[Serge_Bliznykov]

Делаю курсовую. Преподаватель попросил найти решение без параметров.

Он издевается над Вами и учит Вас плохому. Так ему и передайте!

При формировании текста запрос с подстановкой значения прямо в текст запроса сразу выползут баги, связанные с различным представлением данных (форматы даты и времени, десятичные разделители и т.п.). Кроме того, нужно обязательно знать тип поля, которое сравнивается в запросе с подставленной константой...
а выглядеть это может примерно так:

s := '';
case Combobox1.itemindex of
  0:  s:='SELECT * FROM tabl2 WHERE Plane = '+Edit3.Text; {если Plane числовое поле и в Edit3.Text находится число}
  1:  s:='SELECT * FROM tabl1 WHERE Data = ?????? нужно знать типа поля Data и формат  представления
  2:  s:='SELECT * FROM tabl1 WHERE Kills <= '+Edit3.Text; {считаем что  Kills числовое поле и в Edit3.Text находится число}
  3:  s:='SELECT * FROM tabl3 WHERE Country = '+QuotedStr(Edit3.Text); {если поле текстовое}
end;
  try
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(s);
    ADOQuery1.Active:=True;
  except
    on e:Exception do
  end;

[obolensky]

Спасибо большое Я делал почти тоже самое, но не использовал QuotedStr поэтому запросы не выполнялись.

Типа поля data - дата/время.

[Serge_Bliznykov]

Пожалуйста.

Типа поля data - дата/время.

вот об этом я и говорил - при подстановке этого поля могут быть проблемы у Вас.
А ещё хуже, когда (в силу настроек русской локали) у Вас на компьютере всё работает.
Запускаете программу на другом компьютере и получаете либо ошибку, либо (вообще жуть! ) ошибок нет, но дата '11.05.2012' будет записана в БД как 5 ноября 2012 года.

Попробуйте, например, сменить в настройках Windows формат представления даты и попытайтесь поработать с датой..

Хорошо, конечно, что у Вас только поиск. Но и то, что не найдётся нужная информация - в этом ничего хорошего нет!

Короче, вместо нормального корректного способа Вы пытаетесь сделать криво и ненадёжно. Привет преподавателю!