pb调用存储过程教程

在程序开发中，通过PB（PowerBuilder）调用数据库存储过程是一种常见的数据操作方式，能够有效提升业务逻辑的处理效率和数据安全性，以下是PB调用存储过程的详细教程,涵盖不同类型存储过程的调用方法及注意事项。

存储过程类型及调用前准备

在PB中调用存储过程前，需明确存储过程的类型，主要分为带返回值的存储过程（函数型）和不带返回值的存储过程（过程型），不同数据库（如Oracle、SQL Server、Sybase等）的存储过程语法略有差异,需确保存储过程已在数据库中正确创建并测试通过。

调用存储过程前,需完成以下准备工作：

1. 数据库连接配置：在PB中正确配置数据库 profile,确保应用程序能够连接到目标数据库。
2. 事务对象初始化：使用 SQLCA（PB默认的事务对象）或自定义事务对象建立数据库连接，检查连接是否成功（通过 SQLCA.SQLCode 判断）。
3. 声明变量：根据存储过程的参数声明PB变量，确保变量类型与数据库参数类型匹配（如数值型、字符型、日期型等）。

调用不带返回值的存储过程

不带返回值的存储过程通常用于执行INSERT、UPDATE、DELETE等操作，或调用无结果集返回的业务逻辑，调用时需使用EXECUTE语句或DECLARE + EXECUTE组合。

方法1：直接使用EXECUTE语句

适用于参数较少且无需返回结果集的场景,语法如下：

示例：调用Oracle数据库中的proc_update_emp存储过程,更新员工薪资：

// 声明变量 integer li_emp_id decimal ld_new_salary li_emp_id = 1001 ld_new_salary = 8000.00 // 执行存储过程 EXECUTE SQL procedure proc_update_emp(:li_emp_id, :ld_new_salary); USING SQLCA; // 检查执行结果 IF SQLCA.SQLCode <> 0 THEN MessageBox("错误", "存储过程执行失败：" + SQLCA.SQLErrText) ELSE MessageBox("成功", "员工薪资更新成功") END IF

方法2：使用DECLARE和EXECUTE（适用于含输出参数）

若存储过程包含输出参数（OUT）或输入输出参数（INOUT），需先声明游标或过程变量，再通过EXECUTE调用，以SQL Server为例：

// 声明变量 string ls_emp_name integer li_ret // 声明存储过程 DECLARE proc_get_emp_name PROCEDURE FOR dbo.get_emp_name @emp_id = :li_emp_id, @emp_name = :ls_emp_name OUTPUT USING SQLCA; // 设置输入参数 li_emp_id = 1001 // 执行存储过程 EXECUTE proc_get_emp_name; IF SQLCA.SQLCode <> 0 THEN MessageBox("错误", SQLCA.SQLErrText) RETURN END IF // 获取输出参数 ls_emp_name = ls_emp_name // 输出参数会自动赋值 MessageBox("员工姓名", ls_emp_name) // 释放资源 CLOSE proc_get_emp_name;

注意事项：

• 输出参数需在PB中预先声明变量,且变量类型与数据库参数一致。
• 执行完成后需关闭游标或释放过程资源,避免内存泄漏。

调用带返回值的存储过程（函数型）

部分数据库（如Oracle、SQL Server）支持存储过程返回结果集或单值结果，PB可通过DECLARE游标或FUNCTION语法调用。

方法1：通过游标获取结果集

以Oracle存储过程返回多行数据为例：

// 声明游标和变量 DECLARE cur_emp_data CURSOR FOR procedure get_emp_list_by_dept(:li_dept_id) USING SQLCA; string ls_emp_name integer li_emp_id date ld_hire_date // 打开游标 OPEN cur_emp_data; IF SQLCA.SQLCode <> 0 THEN MessageBox("错误", "打开游标失败：" + SQLCA.SQLErrText) RETURN END IF // 遍历结果集 DO WHILE SQLCA.SQLCode = 0 FETCH cur_emp_data INTO :li_emp_id, :ls_emp_name, :ld_hire_date; IF SQLCA.SQLCode = 0 THEN // 处理数据（如添加到DataWindow或列表框） lb_1.AddItem(string(li_emp_id) + " " + ls_emp_name) END IF LOOP // 关闭游标 CLOSE cur_emp_data;

方法2：调用返回单值的存储过程

若存储过程返回单个值（如统计结果），可直接通过FUNCTION语法调用：

// 声明变量 integer li_emp_count // 调用存储过程（假设Oracle存储过程返回员工总数） li_emp_count = SQLCA.SyntaxFromSQL("SELECT COUNT(*) FROM emp", "", "") // 此处仅为示例，实际需通过EXECUTE调用 // 正确调用方式（以SQL Server为例）： DECLARE proc_get_count PROCEDURE FOR dbo.get_emp_count() USING SQLCA; EXECUTE proc_get_count; IF SQLCA.SQLCode = 0 THEN li_emp_count = Integer(SQLCA.SqlParm) // 假设返回参数绑定到SqlParm END IF CLOSE proc_get_count; MessageBox("员工总数", string(li_emp_count))

不同数据库的调用差异

不同数据库系统的存储过程语法存在差异,调用时需注意：

常见问题与解决方案

1. SQLCode为1，提示“未找到存储过程”

   原因：存储过程名称拼写错误、数据库用户无执行权限，或存储过程未在指定数据库中创建。

   解决：检查存储过程名称及数据库连接用户权限,通过数据库管理工具手动执行存储过程验证是否存在。

2. 输出参数值为空或类型不匹配

   原因：PB变量类型与数据库参数类型不一致（如数据库为NUMBER(10,2)，PB声明为integer），或未正确绑定输出参数。

   解决：确保变量类型匹配，对于Oracle的OUT参数，需在PB中声明对应类型的变量（如decimal对应NUMBER），并通过var语法绑定。

   相关问答FAQs

   Q1：PB中如何处理存储过程返回的结果集？

   A1：可通过DECLARE声明游标（CURSOR）绑定存储过程，然后使用OPEN、FETCH、CLOSE语句遍历结果集。

   DECLARE cur_emp CURSOR FOR proc_get_emp() USING SQLCA; OPEN cur_emp; DO WHILE SQLCA.SQLCode = 0 FETCH cur_emp INTO :li_emp_id, :ls_name; // 处理数据 LOOP CLOSE cur_emp;

   Q2：调用存储过程时如何处理事务回滚？

   A2：在PB中，存储过程执行默认在当前事务中，若需回滚，可在执行失败时调用ROLLBACK USING SQLCA；若需提交，调用COMMIT USING SQLCA。

   EXECUTE SQL procedure proc_update_data(:p1, :p2) USING SQLCA; IF SQLCA.SQLCode <> 0 THEN ROLLBACK USING SQLCA; MessageBox("错误", "操作已回滚") ELSE COMMIT USING SQLCA; MessageBox("成功", "操作已提交") END IF