[Dux]

ОРГАНИЗАЦИЯ ПОИСКА В БД С ПОМОЩЬЮ SQL-ЗАПРОСА

В этом примере осуществляется поиск в таблице Data1 (в столбце Name) в соответствии с значением, вводимым в поле Edit1. Запишем в обработчике событий OnChange компонента Edit1 следующий код:

Код:

procedure TForm1.Edit1Change(Sender: TObject);
  begin  
  ADOQuery1.Active:=false;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT *');
  ADOQuery1.SQL.Add('FROM Data1');
  ADOQuery1.SQL.add('WHERE Name like ''' +'%'+Edit1.Text + '%''');
  ADOQuery1.Active:=true;  
end;

Admin: Пользуемся тегами!