在PB script 中调用存储过程

在PB script中调用存储过程有两种方式：

 

一是直接在脚本中编写语句调用存储过程。一般语句如下：

 

declare name procedure for pro_indatabase(:参数1， :参数2， ······)；

        If SQLCA.SQLcode <> 0 Then

                MessageBox("pro_indatabase","DB Error: "+ string(sqlca.sqldbcode)+"--"+sqlca.SQLErrText) SetPointer(Arrow!) Return End If

 

execute name;

 

If SQLCA.SQLcode <> 0 Then

                MessageBox("pro_indatabase","DB Error: "+ string(sqlca.sqldbcode)+"--"+sqlca.SQLErrText)    

                SetPointer(Arrow!)

rollback;

                Return

        End If

 

二是写成函数调用：

 

选择application包下的sa000t，双击编辑，选择local external functions, 添加如下语句：

        subroutine new_name(参数··) RPCFUNC ALIAS FOR "PRO_NAME"

在PB script中调用如下：

sqlca.new_name(参数····)；