插入记录

[nickgg]

将TADOQuery的当前一条记录（字段不定）插入到TADOTable有什么好的方法？

[xjq2003]

大致如下：
TADOTable.open();
TADOTable.insert();
TADOTable.fieldbyname("字段名").asString;=TADOQuery.fieldbyname("字段名").asString;
^…………
TADOTable.post();

具体自己写写……

[NightCloud]

以下方法前提是query和table关联的都是同一张表
adotable.insert;
for i:=0 to adoquery1.fieldcount-1 do
adotable.fields[i].value=adoquery1.fields[i].value;
adotable.post;

[ourlin]

var
i: integer;
fstr: Tstrings;
sqlStr: string;
begin
fstr:=Tstrings.create;
for i:=0 to AdoQuery1.RecordCount-1 do
fstr.add(AdoQuery1.fields[i].name);

sqlstr:='insert into AdoTable1( '
for i:=0 to fstr.itemsCount-1 do
sqlstr:=sqlstr+fstr.items[i];

sqlstr:=sqlstr+') select ';

for i:=0 to fstr.itemsCount-1 do
sqlstr:=sqlstr+fstr.items[i];
sqlstr:=sqlstr+' from AdoQuery1 where id=当前记录ID';
fstr.free;
AdoCommand1.Commandtext:=sqlstr;
AdoCommand1.Execute;