[转]DELPHI ADO控件 Locate 与 Lookup 用法

定位

多字段

ADOTable1.Locate('id;age',VarArrayOf(['108',21]),[loPartialKey]);

单字段

ADOTable1.Locate('id','108',[loPartialKey]);

Lookup与定位类似

单字段

var v:Variant;

begin

//根据ID，返回姓名

v:=ADOTable1.Lookup('id','108','age');

if VarType(v) <> varNull then

begin

ShowMessage(IntToStr(v));

end;

end;

多字段

var v:Variant;

begin

//根据ID，姓名，搜索，返回姓名，年龄

v:=ADOTable1.Lookup('id;age',VarArrayOf(['108',21]),'name;age');

if VarType(v) <> varNull then

begin

ShowMessage(v[0]+inttostr(v[1]));

end;

end;

循环

with ADOTable1 do

begin

DisableControls;

First;

while not eof do

begin

ShowMessage(Fields[1].Value);

Next;

end;

EnableControls;

end;