var
i,kk:integer;
lis:Tstrings;
Begin
lis:=TStringlist.create;
ADOconn.GetTableName(lis);//ADOconn是Tadoconn;
For i:=0 To lis.count-1 Do
Begin
With ADOQ Do//ADOQ 连的是sql
Begin
close;
sql.clear;
Sql.add('select * from ' +Tables_Sts[i]);
open;
End;
With ADOQ_Ac Do//ADOQ_Ac 连的是access
Begin
close;
sql.clear;
Sql.add('select * from ' +Tables_Sts[i]);
open;
End;
While NOT ADOQ.Eof Do Begin
ADOQ_Ac.Append;//ADOQ_Ac连的是access
For kk:=0 To ADOQ_Ac.FieldCount-1 Do Begin
ADOQ_Ac.Fields[kk]:=ADOQ.Fields[kk];
End;
ADOQ_Ac.Post;
ADOQ.Next;
End;
End;
lis.free;
end;