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

Question

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

Answer 1

你说得也太简单了，只能简单说一下，
 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写的，差不多了

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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;

Answer 6

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