PB中调用存储过程获取返回值

86 篇文章 1 订阅

本文拟以SYBASE ASE 10.X和11.X数据库为例,说明如何在PB脚本当中获取存储过程的返回值。作为一个存储过程,其输出的结果数据可能包括三类:SELECT结果集、RETURN结果、OUTPUT参数。尽管输出方式众多,但PB脚本仅仅借助简单的FETCH…INTO…语句即可全部获取这些输出数据,具体方式如下:

(一)在SYBASE ASE 10.X和11.X数据库当中创建一个存储过程deptroster,其有一个输入参数@deptno、两个输出参数@totsal 和 @avgsal、一个RETURN值@number_of_emps以及包含职员姓名和工资的SELECT结果集,可见除了输入参数@deptno外,其他均为输出数据,我们需要在PB脚本中获取,具体代码如下:

CREATE PROCEDURE deptroster @deptno integer,

@totsal double precision output,

       @avgsal double precision output

AS

DECLARE @number_of_emps integer

SELECT emp_fname, emp_lname, salary FROM employee

       WHERE dept_id = @deptno

SELECT @totsal = sum(salary),

       @avgsal = avg(salary),

       @number_of_emps = COUNT(*) FROM employee

       WHERE dept_id = @deptno

RETURN @number_of_emps;

(二)PB脚本当中我们需要捕获SELECT结果集、RETURN值和两个输出参数,其输出顺序也是按照“SELECT结果集、RETURN值、输出参数”顺序输出,具体代码如下:

integer fetchcount = 0
long    lDeptno, rc
string  fname, lname
double  dSalary, dTotSal, dAvgSal
lDeptno = 100

//此处声明存储过程名称
DECLARE deptproc PROCEDURE FOR
    @rc = dbo.deptroster
    @deptno = :lDeptno,
    @totsal = 0 output,
    @avgsal = 0 output
USING SQLCA;

//此处开始执行存储过程
EXECUTE deptproc;

//判断执行结果
CHOOSE CASE SQLCA.sqlcode
CASE 0
    //如果返回0则表示执行成功,至少存在一个SELECT结果集
    //借助LOOP循环开始捕获这个SELECT结果集
    DO
    FETCH deptproc INTO :fname, :lname, :dSalary;

    CHOOSE CASE SQLCA.sqlcode
        CASE 0
            fetchcount++
        CASE 100
            MessageBox ("End of Result Set",  &
                    string (fetchcount) " rows fetched")
        CASE -1
            MessageBox ("Fetch Failed",  &
                    string (SQLCA.sqldbcode) " = "  &SQLCA.sqlerrtext)
    END CHOOSE
    LOOP WHILE SQLCA.sqlcode = 0
// 再单独执行一次FETCH语句以获取RETURN值和OUTPUT参数
    FETCH deptproc INTO :rc, :dTotSal, :dAvgSal;
    CHOOSE CASE SQLCA.sqlcode
        CASE 0
            MessageBox ("Fetch Return Value and Output"  &
                "Parms SUCCESSFUL", "Return Value is: "  &
                string (rc)  &
                "~r~nTotal Salary: " string (dTotSal)  &
                "~r~nAverage Sal:  " string (dAvgSal))
        CASE 100
            MessageBox ("Return Value and Output Parms"  &
                "NOT FOUND", "")
        CASE ELSE
            MessageBox ("Fetch Return Value and Output"  &
                "Parms FAILED", "SQLDBCode is "  &
                string (SQLCA.sqldbcode) " = "  &
                SQLCA.sqlerrtext)
    END CHOOSE
//此处关闭存储过程
CLOSE deptproc;
CASE 100
// 如果返回100,则表示没有返回结果集.
// 此时不需要单独执行CLOSE语句.
    MessageBox ("Execute Successful", "No result set")
CASE ELSE
//其他情况则表示存储过程执行失败,提示用户即可
    MessageBox ("Execute Failed",  &
        string (SQLCA.sqldbcode) " = "  &
            SQLCA.sqlerrtext)
END CHOOSE

pb中調用sql存儲過程(帶參數和返回值)
2008-12-18 18:37
声明储存过程:

CREATE PROCEDURE proc_pslx ( @NAME varchar(2) ,@count integer output)
AS
select @count = Count(*) from wo_info where whs_name=@NAME ;
--select @@count = Count(*) from wo_info where whs_name not in ('c1','k1','j1') ;
GO

在PB中调用:

Integer li_rtn
DECLARE lpro_test PROCEDURE FOR proc_pslx @name='C1', @count = :li_rtn OUTPUT;
EXECUTE lpro_test;
Fetch lpro_test INTO :li_rtn;
messagebox("",string(li_rtn))

在PB中調用存儲過程時參數名稱要和SQL中的一致。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值