Question

在PB中用游标循环插入到一个表中数据，但是结果只插入一条数据。具体代码：

do while true

fetch mycur into :temp_xm;
if sqlca.sqlcode <> 0 then exit;
insert into jh_pd(pdhm,brxm) values(1,:temp_xm);
commit;
loop
temp_xm有多条数据，但是插到jh_pd中，只插进去第一条数据。

Answer 1

问题出在commit,如果后面为空,PB语法默认为commit using sqlca;
如果提交成功，sqlca.sqlcode=0,就退出循环了。
解决方法有2个
1）先全部执行完毕插入操作后，再统一提交，也就是将commit放置在do while ...loop循环后面
2) 另创建一个链接如mysqlca,链接参数与sqlca一样，提交时使用commit using mysqlca;