with AdoQuery1 do begin Close; SQL.Text:='select c1,c2 from table1'; Open; end; while not AdoQuery1.Eof do begin with AdoQuery2 do begin Close; SQL.Text:='Insert into table2 (c1,c2) '+ 'values ('+ ''''+Trim(AdoQuery1.FieldByName('c1').AsString)+''','+ ''''+Trim(AdoQuery1.FieldByName('c1').AsString)+''')'; ExecSql; end; AdoQuery1.Next; end;以上只是提供一个大致的思想,如果有什么具体问题,我会尽量帮你:)
begin
Close;
SQL.Text:='select c1,c2 from table1';
Open;
end;
while not AdoQuery1.Eof do
begin
with AdoQuery2 do
begin
Close;
SQL.Text:='Insert into table2 (c1,c2) '+
'values ('+
''''+Trim(AdoQuery1.FieldByName('c1').AsString)+''','+
''''+Trim(AdoQuery1.FieldByName('c1').AsString)+''')';
ExecSql;
end;
AdoQuery1.Next;
end;以上只是提供一个大致的思想,如果有什么具体问题,我会尽量帮你:)
使用两个ADOquery,分别连接两个数据库,然后通过query取得库里的信息到入到另外一个库中!
甚至可以是不同类型的数据库
针对具体的数据库,只要控制SQL语句就行了。
AdoQuery1 连你的数据库一
AdoQuery2 连你的数据库二AdoQuery1 取到数据后,用SaveToFile保存;
AdoQuery2 用LoadFromFile读过来然后就用UPDATEQUERY刷呀