请教高手一个ado的问题.

Question

用AdoTable1打开datatagher数据库中的tbsale表，用AdoTable2打开access数据库中的tbasale表var
  i: integer;
begin
  AdoTable2.First;
  while not AdoTable2.eof do
  begin
    AdoTable1.Append;
    for i := 0 to AdoTable2.Fields.Count - 1 do
      AdoTable1.Fields[i].Value := AdoTable2.Fields[i].Value;
    Post;
    AdoTable2.Next;
  end;
end;

Answer 1

用两个ADODataSet分别打开两张表，然后依次从一个数据集中读出，向另一个写入就可以了。

Answer 2

不要用ADO连接，用BDE连接，然后用DELPHI自带的控件：TBATCHMOVE 设置一下源表和目标表就可以互相倒入数据。    TBATCHMOVE.EXECUTE