1. 将同一数据中一个表中查询的数据上传到另一个表中
SQL语法：INSERT  表1 (列A,列B,列C)  SELECT  列A,列B,列C  FROM 表2
1)--将表cjsdata中查询的cjsname和cjsday字段的所有内容复制到表cjsdata2的cjsname2和cjsday2字段，相当于复制表
 insert into cjsdata2(cjsname2,cjsday2) (select cjsname,cjsday from cjsdata)
2)--将表cjsdata中的所有内容插入到表cjsdata2中，需要先关闭自增长字段,即先把标识设为否，复制完后再打开 
 insert into cjsdata2 select * from cjsdata 
 truncate table cjsdata2 --删除表cjsdata2中的所有数据

2. 将一个数据库中查询的数据上传到另一个数据库中的表，qry1连接的是一个数据，qry2连接的是另一个数据库
 //这里主要是将一个数据库中cjdata表中查询的数据上传到另一个数据库中的表cjdata2中
procedure TForm1.btn1Click(Sender: TObject);
var
  sql,t1,t2,t3,t4:string;
begin
qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Add('select cjsname,cjsday,cjsmoney,updatetime from cjsdata');
qry1.Open;
qry1.First;
while not (qry1.Eof) do
begin
  t1:=qry1.fields[0].AsString;
  t2:=qry1.fields[1].AsString;
  t3:=qry1.fields[2].AsString;
  t4:=qry1.fields[3].AsString;
//  ShowMessage(t1+t2+t3+t4);
  sql:='insert into cjsdata2 (cjsname2,cjsday2,cjsmoney2,updatetime2) values ('''+t1+''','''+t2+''','''+t3+''','''+t4+''')';
  Memo1.Lines.Add(sql);
  qry2.SQL.text:=sql;
  qry2.ExecSQL;
  qry1.Next;
end;
end;