int li_c,li_all
string sql
sql='vw_test'
li_c=10
li_all=60
DECLARE chrg PROCEDURE FOR DBO.UP_in_smeter(:li_c,:li_all,:sql);
// @v_pdep_code = :ls_pdep_code ;
EXECUTE chrg;
if sqlca.sqlcode = - 1 then
rollback;
messagebox("警告!","初始化出错!~r~n"+sqlca.sqlerrtext)
setpointer(Arrow!)
RETURN - 1
else
commit;
// messagebox("","ok,user_charge_tbl "+ls_pdep_code)
end if
//------------------------------------------
以上是PB 中调用oracle存储过程的例子,其参数的传递方法与SQLSERVER有区别注意区分,
@v 则是SQLSERVER传参的方式!
string sql
sql='vw_test'
li_c=10
li_all=60
DECLARE chrg PROCEDURE FOR DBO.UP_in_smeter(:li_c,:li_all,:sql);
// @v_pdep_code = :ls_pdep_code ;
EXECUTE chrg;
if sqlca.sqlcode = - 1 then
rollback;
messagebox("警告!","初始化出错!~r~n"+sqlca.sqlerrtext)
setpointer(Arrow!)
RETURN - 1
else
commit;
// messagebox("","ok,user_charge_tbl "+ls_pdep_code)
end if
//------------------------------------------
以上是PB 中调用oracle存储过程的例子,其参数的传递方法与SQLSERVER有区别注意区分,
@v 则是SQLSERVER传参的方式!