[BlacKCheT]

Поиск по БД в любимом Acess'e
-----------------------------------------

Код:

procedure TForm6.Edit1Change(Sender: TObject);
var help1: string;
begin
help1:='%'+Form6.Edit1.text+'%';
help1:= QuotedStr(help1);
with DataModule2.ADOQuery1 do
begin
  DataModule2.ADOQuery1.Close;
  DataModule2.ADOQuery1.SQL.Clear;
  DataModule2.ADOQuery1.SQL.Add('select*from Клиенты where Имя like '+help1+' ');
  DataModule2.ADOQuery1.Open;
  end;
end;