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;
ADOconn是TAdoconnection连接sql或access都可以
用 With ADOQuery1 Do Begin Close; sql.clear; sql.add('create table 表名 (field1 varchar 30 Not null,field2 varchar 10 Null)'); execsql; End; 然后打开你创建这个表,把原有的那个表内容加进去就可以了. 另外:用batchmove 好像也可以。 如果以上对你有帮助,记得给我点分哦,我的分要没了!
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;
With ADOQuery1 Do
Begin
Close;
sql.clear;
sql.add('create table 表名 (field1 varchar 30 Not null,field2 varchar 10 Null)');
execsql;
End;
然后打开你创建这个表,把原有的那个表内容加进去就可以了.
另外:用batchmove 好像也可以。
如果以上对你有帮助,记得给我点分哦,我的分要没了!