Mega Code Archive

 

Categories / Delphi / ADO Database

 

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;