Question

delphi中的adotable的问题

在DELPHI中如何实现将一个ADOTABLE的所有数据都插入数据库的一个表中？有什么简单的方法 不要告诉我取出一个字段然后一条一条的加
说了ADOTABLE了 要是能换我还提问干吗?

Answer 1

和ADOTable连接的表 同样结构的表吗？
加另外一个ADOTable ADOTg；设定一下连接表为目标表并激活，然后
for i:= 1 to ADOTable.RecordCount do
begin
ADOTable.RecNo:= i;
ADOTg.Append;
for j:= 0 to ADOTable.Fields.Count - 1 do
begin
ADOTg.Fields[j].Value:= ADOTable.Fields[j].Value;
end;
ADOTg.Post;
end;

这样的笨办法行不行？
附：有自动增加字段的话就在j那里判断绕过