如何把一个表的一条纪录，新增加到另一表中?

[qgj99]

小弟问一下：
如何把一个表的一条纪录，新增加到另一表中？
小弟很是着急！
请赐教！

[icemanpro]

你说得也太简单了，只能简单说一下，
ADOQuery1->FieldByName("truename")。AsString
ADOQuery1->FieldByName("datetime").AsString
读出记录。

写记录用
frmdata->CD_Txiek->Active=true;
frmdata->CD_Txiek->Insert();
frmdata->CD_Txiek->FieldValues["npkh"]=Kh;
frmdata->CD_Txiek->FieldValues["yklxbh"]=yklxbh;
frmdata->CD_Txiek->FieldValues["ypbh"]=frmXieIck->ypbh;
frmdata->CD_Txiek->FieldValues["dj"]=frmXieIck->Dj;
frmdata->CD_Txiek->FieldValues["cz"]=(float)(Je)/100;
frmdata->CD_Txiek->FieldValues["ye"]=0;
frmdata->CD_Txiek->FieldValues["xy"]=(float)(Je)/100;
frmdata->CD_Txiek->FieldValues["rq"]=Date();
frmdata->CD_Txiek->FieldValues["zke"]=0;
frmdata->CD_Txiek->FieldValues["dzbz"]=78;
frmdata->CD_Txiek->FieldValues["jybz"]=106;
frmdata->CD_Txiek->FieldValues["cs"]=-1;
frmdata->CD_Txiek->FieldValues["sign"]=0;
frmdata->CD_Txiek->FieldValues["sj"]=Time();
frmdata->CD_Txiek->FieldValues["flag"]=0;
frmdata->CD_Txiek->FieldValues["bh"]=ykcz->Bh;
frmdata->CD_Txiek->FieldValues["bj"]="no";
frmdata->CD_Txiek->Post();
CB写的，差不多了

[NewPrince]

如果两个表字段完全相同那么：
insert into 表1
select * from 表2 where 条件

[oracs]

name := Table1.Field[0].AsStirng;
.....
//向Table2添加纪录
Table2.Insert;
Table2.Fields[0].AsString := name;
...
Table2.Post;

[angle097113]

insert into 表1
select * from 表2 where 条件
就是这样的 但是要保证表的结构一样 否则不能用* 而是自己选择合适的列类型匹配的列

[sailer_shi]

with query1 do
begin
close;
sql.clear;
sql.add('select * from tablename where 你的条件');
parameters.ParamByName('你定义的参数').value := 你给得值;
………………
open;
frist;
with query2 do
begin
close;
sql.clear;
sql.add('select * from tablename<-你要插入的表')；
open;
end;
while not eof do
begin
query2.insert;
query2.fieldbyname('你要插入的列').value := fieldbyname('从Query1中得到数据的列').value;
………………
query2.post;
next;
end;
end;

[sailer_shi]

楼上的方法快，但是我得方法安全

[newnewworm]

Atable
Btable
Select * from ATable where 你的条件语句 into BTable
一条SQL语句就可以解决了·！