我如何的把SQL的查询结果直接写进数据库

Question

insert into tablename (select * from tablename2)

Answer 1

insert table1
 (字段1,...)
select 字段1...
from table2
where 条件

Answer 2

query1.SQL.Text := 'insert.......... ';
query1.ExecSQL;

Answer 3

query1.close;
query1.sql.text:='insert....'
query1.execsql;//这里用execsql,不能用open

Answer 4

是这样的吗？
query1.Close ;
query1.SQL.Clear;
query1.SQL.Text := 'insert into oldmanm(select * from oldman)';query1.ExecSQL;

Answer 5

select table1.f1,table.f2 into aa from table1 可以实现你的要求

Answer 6

你是不是想逐条访问SQL返回的数据记录啊？
可以SQL.Open；后用：First；
WHILE NOT EOF Do
   Begin;
   //你可以在这用FieldByName获得SQL返回的记录，
   ... ...
   Next；
   End;{但愿以上内容有用}