调用SQL存储过程

[追风_GaoWu]

string ls_msg
DECLARE Mddy_PB_01 PROCEDURE FOR SP_PPM_IMPORT_OUTQTY @timestamp='2017/3/22 16:00', @lineid='Line-YPP',@plant='32A3',@pn='52-09624-00A',@qty='100',@inputJSON=Null,@type='2'
EXECUTE Mddy_PB_01 using ls_PPM;

if ls_PPM.sqlcode <> 0 then
fetch Mddy_PB_01 into :ls_msg;//返回提示代码
messagebox('info',ls_PPM.SQLErrText+' '+ls_msg)
rollback;
else
commit;
end if

close Mddy_PB_01;

没有返回错误信息，可是数据就是没有写入，不知道什么原因，请帮忙看看

[WorldMobile]

如果sqlca.sqlcode = 0问题应该是出在你的存储过程里了SP_PPM_IMPORT_OUTQTY，存储过程不好调试，你可以把代码注释掉，写个最简单的insert语句试试你传入的参数是否正确

[追风_GaoWu]

这个权限只能执行这个存储过程，没有办法直接insert. 可是我在ssmsj里执行这个存储过程是OK的 SSMS里的语句是

SP_PPM_IMPORT_OUTQTY @timestamp='2017/2/22 16:00', @lineid='Line-YPP',@plant='32A3',@pn='52-09624-00A',@qty='100',@inputJSON=Null,@type='2'

不知道为何在PB 里不能执行。

[DYFDWX]

string ls_msg DECLARE Mddy_PB_01 PROCEDURE FOR SP_PPM_IMPORT_OUTQTY @timestamp='2017/3/22 16:00', @lineid='Line-YPP',@plant='32A3',@pn='52-09624-00A',@qty='100',@inputJSON=Null,@type='2' EXECUTE Mddy_PB_01 using ls_PPM; fetch Mddy_PB_01 into :ls_msg;//返回提示代码 成功返回一个字符如ok close Mddy_PB_01; if ls_msg='ok' then commit; else rollback; end if