Mega Code Archive

 

Categories / Delphi / ADO Database

 

Birden fazla column için lookup metodu

//Birden fazla column için lookup metodu... //...::::::( KORSAN )::::::...\\ procedure TForm1.Button1Click(Sender: TObject); var MyResults: Variant; MyKeyFields, MyKeyValues: String; MySearchForValue: Integer; begin MyKeyFields := 'CustNo'; MySearchForValue := 1351; MyReturnColumns := 'Company;Addr1'; MyResults := Table1.Lookup(MyKeyFields, MySearchForValue, MyKeyValues); if not VarIsNull(MyResults) then ShowMessage('Company: ' + MyResults[0] + ' Address: ' + MyResults[1]); end;