ADO Database Delphi

  1. Home
  2. Delphi
  3. ADO Database
  4. Sqlde parametre geçerek like kullanımı
Try
with Query1 do
begin
Close;
UnPrepare;
Sql.Clear;
Sql.Add('Select * from customer');
Sql.Add('Where Company Like :A');
Prepare;
Params[0].AsString:=Trim(Edit1.Text)+'%';
Open;
end;
Except
On Exception Do raise;
end;