Mega Code Archive

 

Categories / Delphi / ADO Database

 

Adotable üzerinde locate kullanarak arama

var aranan:string; kriter: TLocateOptions; begin aranan:=InputBox('Arama','Field1:',"); kriter := [loPartialKey]; ADOTable1.Locate('FIELD1', aranan, kriter); end;