|
#1
|
|||
|
|||
Поиск
Поиск по БД в любимом 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; Последний раз редактировалось BlacKCheT, 18.06.2018 в 18:20. |
Этот пользователь сказал Спасибо BlacKCheT за это полезное сообщение: | ||
Alegun (18.06.2018)
|