下面的代码我没有测试 adodataset1连接源数据库 adodataset2连接目标数据库 with adodataset1 do begin close; commandtext:='select * from table1'; open; end;with adodataset2 do begin close; commandtext:='select * from table1'; open; end;adodataset1.first; while not adodataset1.eof do begin adodataset2.append; adodataset2.fieldbyname('col').asstring:=adodataset1.fieldbyname('col').asstring; //...... adodataset2.post; adodataset1.next; application.processmessages end;
adodataset1连接源数据库
adodataset2连接目标数据库
with adodataset1 do
begin
close;
commandtext:='select * from table1';
open;
end;with adodataset2 do
begin
close;
commandtext:='select * from table1';
open;
end;adodataset1.first;
while not adodataset1.eof do
begin
adodataset2.append;
adodataset2.fieldbyname('col').asstring:=adodataset1.fieldbyname('col').asstring;
//......
adodataset2.post;
adodataset1.next;
application.processmessages
end;
2、把记录解析成SQL,通过ADOCommand把记录写进去,速度好像会比1快不少。