Главная страница | назад





Article #17114: using the Lookup method to return values from multiple columns

 Question and Answer Database
FAQ2114D.txt using the Lookup method to return values from multiple columns
Category :Database/VCL
Platform :All
Product :All 32 bit
Question:
How do I use the Lookup method to return values from
multiple columns?
Answer:
The result is a variant array -- one index to the array for
every column specified in the KeyValues parameter:
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]);
{ With DBDemos data this returns
"Company: Sight Diver Address: 1 Neptune Lane" }
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99