如何在delphi5中，通过query组件进行sql的insert操作？

Question

sql_plus中：
 insert into dz_output_amount
 select * from dz_return_amount;
成功！但在delphi5中，如下语句，却死活通不过！
with query1 do
begin
close;
sql.clear;
sql.add('insert into dz_output_amount');
sql.add('select dz_code,sum(input_sum) from dz_input_tbl1 group by dz_code order by dz_code');
prepare;
execsql;
end;
请高手指点一二！谢谢！

Answer 1

sql.add('insert into dz_output_amount(Field1,Field2)');
sql.add('select dz_code,sum(input_sum) from dz_input_tbl1 group by dz_code');

Answer 2

谢谢！
但是还是不行，提示：SQL命令未正确结束！

Answer 3

什么数据库？什么数据库引擎？
很多库比如interbase 不支持你这类的写法，后面的select 不能用order by

Answer 4

逐条分开执行
with query1 do
begin
close;
sql.clear;
sql.add('insert into dz_output_amount');
prepare;
execsql;
close;
sql.Clear;
sql.add('select dz_code,sum(input_sum) from dz_input_tbl1 group by dz_code order by dz_code');
prepare;
execsql;
end;

Answer 5

sql.add('insert into dz_output_amount(Field1,Field2)');
sql.add('select dz_code as 序号,sum(input_sum) as 合计 from dz_input_tbl1 group by dz_code');

Answer 6

你不要把这两个SQL语句写到一起，再说你插入，然后用group by，用了group by后是不能修改数据库的！
有问题请发信息到我的E-mail:[email protected]