Поиск в БД

[dimGangboy]

Есть combobox и edit1. не выводит строки.что не так?

procedure TForm2.Button4Click(Sender: TObject);
  var i:integer;
begin
i:=ComboBox1.ItemIndex;

case i of
0:ADOQuery1.SQL.Add('SELECT * FROM tab_image WHERE nomber LIKE '+Edit1.Text+'');
1:ADOQuery1.SQL.Add('SELECT * FROM tab_image WHERE V LIKE '+Edit1.Text+'');
2:ADOQuery1.SQL.Add('SELECT * FROM tab_image WHERE Pp LIKE '+Edit1.Text+'');
3:ADOQuery1.SQL.Add('SELECT * FROM tab_image WHERE Pn LIKE '+Edit1.Text+'');
4:ADOQuery1.SQL.Add('SELECT * FROM tab_image WHERE Att LIKE '+Edit1.Text+'');
5:ADOQuery1.SQL.Add('SELECT * FROM tab_image WHERE FIO LIKE "'+Edit1.Text+'%" ');
6:ADOQuery1.SQL.Add('SELECT * FROM tab_image WHERE Prim LIKE "'+Edit1.Text+'%" ');
7:ADOQuery1.SQL.Add('SELECT * FROM tab_image WHERE dat LIKE "'+Edit1.Text+'%" ');
else
ShowMessage('Âûáåðèòå êàòåãîðèþ!');

end;

[Sciv]

В Вашем случае вроде бы нужно использовать такую конструкцию:

ADOQuery1.SQL.Text:='SELECT * FROM tab_image WHERE nomber LIKE '+Edit1.Text+''

И где ADOQuery1.Open?

[dimGangboy]

написал перед case...of open. но все равно выводит пустую строку...

procedure TForm2.Button4Click(Sender: TObject);
var i:integer;
begin
i:=ComboBox1.ItemIndex;
ADOQuery1.Open;
ADOQuery1.SQL.Clear;
case i of
0:ADOQuery1.SQL.Text:='SELECT * FROM tab_image WHERE nomber LIKE '+Edit1.Text+'';
1:ADOQuery1.SQL.Text:='SELECT * FROM tab_image WHERE V LIKE '+Edit1.Text+'';
2:ADOQuery1.SQL.Text:='SELECT * FROM tab_image WHERE Pp LIKE '+Edit1.Text+'';
3:ADOQuery1.SQL.Text:='SELECT * FROM tab_image WHERE Pn LIKE '+Edit1.Text+'';
4:ADOQuery1.SQL.Text:='SELECT * FROM tab_image WHERE Att LIKE '+Edit1.Text+'';
5:ADOQuery1.SQL.Text:='SELECT * FROM tab_image WHERE FIO LIKE "'+Edit1.Text+'%" ';
6:ADOQuery1.SQL.Text:='SELECT * FROM tab_image WHERE Prim LIKE "'+Edit1.Text+'%" ';
7:ADOQuery1.SQL.Text:='SELECT * FROM tab_image WHERE dat LIKE "'+Edit1.Text+'%" ';
else
ShowMessage('Âûáåðèòå êàòåãîðèþ!');
//ADOQuery1.Close;
end;

[Sciv]

написал перед case...of open. но все равно выводит пустую строку...

А надо было после...

Принцип работы простой же:

ADOQuery1.Close;
ADOQuery1.SQL.Text:='...';
ADOQuery1.Open;

Команда Open вообще-то выполняет тот запрос, который в SQL.Text забит. Пока Квери закрыт - запрос не выполнен, следовательно, и данные не выводятся.

[dimGangboy]

Спасибо за вразумительный ответ...разобрался.....