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

825次阅读
没有评论

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

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;

正文完
 
正安一片瓦
版权声明:本站原创文章,由 正安一片瓦 2006-05-21发表,共计487字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
评论(没有评论)
验证码