欢迎光临~~
20年以来,与你常在!

用ADO控件完成ACCESS查询跨表字段复制

由于比较急,好久没有搞程序了,随便弄了个垃圾东西出来,数据多处理则比较费时。
关联字段是“准考证号”,需要复制的字段是“联系地址”。

var
i:integer;
zkz1,dz:string;
begin
Adodataset1.CommandText:='select * from sheet1 ';
Adodataset1.Open ;
for i:=0 to Adodataset1.RecordCount-1 do
begin
zkz1:=Adodataset1.FieldByName('准考证号').Value;
dz:=Adodataset1.FieldByName('联系地址').asString;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add ('Update sheet2 Set 地址="'+dz+'" Where 准考证号="'+zkz1+'"');
ADOQuery1.ExecSQL  ;
adodataset1.FieldDefs.DataSet.Next;
  end;

赞(0) 打赏
未经允许不得转载:正安一片瓦博客 » 用ADO控件完成ACCESS查询跨表字段复制

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

支持站长,资源共享

支付宝扫一扫打赏

微信扫一扫打赏