ToB企服应用市场:ToB评测及商务社交产业平台

标题: PB从入坑到放弃（六）动态SQL应用 [打印本页]
作者: 前进之路    时间: 2023-8-8 04:59
标题: PB从入坑到放弃（六）动态SQL应用
写在前面

动态 SQL 语句是部分或者整个 SQL 语句在运行时才能确定，可以更好的与用户进行交互，大大提高了SQL的灵活性
一、执行SQL语句

1.1 执行无入参SQL

① 语法
  1. EXECUTE IMMEDIATE SQLStatement {USING TransactionObject} ;
复制代码
② 说明
③ 举个栗子
删除员工信息表emp
  1. string sql = "drop table emp"
  2. EXECUTE IMMEDIATE :sql USING SQLCA;
复制代码
1.2 执行带参数SQL

① 语法
  1. PREPARE DynamicStagingArea FROM SQLStatement
  2. {USING TransactionObject} ;
  3. EXECUTE DynamicStagingAreaUSING {ParameterList} ;
复制代码
②说明
③ 举个栗子
Ⅰ 删除员工编号56的员工信息
  1. Int li_empno = 56
  2. PREPARE SQLSA FROM "DELETE FROM emp WHERE empno=?" ;
  3. EXECUTE SQLSA USING :li_empno ;
复制代码
Ⅱ 新增一个员工信息
  1. Prepare SQLSA from
  2. "insert into emp  (empno, ename, job, mgr, hiredate, sal, comm, deptno) values  (?, ?, ?, ?, ?, ?, ?, ?)"
  3. execute SQLSA using :ls_empno, :ls_ename, :ls_job, :ls_mgr, :ld_hiredate, :ld_sal, :ls_comm, :ls_deptno;
复制代码
二 、使用游标

数据库中的游标可以看作是一个指针，它指向查询语句返回的结果集中的当前行。通过游标，我们可以逐行处理结果集
2.1  语法

① do while 语法
  1. //定义游标
  2. string test
  3. //声明游标
  4. declare test cursor for select 字段名 from 表名 where 条件 using sqlca;
  5. //打开游标
  6. open test;
  7. //获取数据
  8. fetch test into:字段名变量;
  9. do while sqlca.sqlcode = 0
  10. //在这里写你的业务
  11. //再次获取数据
  12. fetch test into:字段名变量;
  13. loop
  14. //关闭游标
  15. close test;
复制代码
②  for 语法
  1. long ll_count = 10
  2. //定义游标
  3. string test
  4. //声明游标
  5. declare test cursor for select 字段名 from 表名 where 表达式 using sqlca;
  6. //打开游标
  7. open test;
  8. for i=1 to ll_count
  9. //获取数据
  10. fetch test into :变量名;
  11. //在这里写你的业务
  12. next
  13. //关闭游标
  14. close test;
复制代码
2.2 举个栗子

上面具体说了游标的两种实现语法，接下来我们就分别用两种语法实现向下拉框中添加数据的功能
① 使用do while 语法向下拉框中添加员工信息
  1. string ls_empno,ls_ename
  2. ddlb_1.Reset ()              //重置下拉列表
  4. DECLARE cur_empinfo CURSOR FOR
  5. select empno,ename from emp;
  6.    
  7. Open cur_empinfo;      // 打开游标
  8. If SQLCA.SqlCode = -1 Then      //判断打开游标是否失败，失败则弹出提示信息
  9.   messagebox ('提示信息'+SQLCA.SqlErrText)
  10.   Return -1
  11. End If
  12.   
  13. Fetch cur_empinfo Into :ls_empno,:ls_ename;
  14. ddlb_1.SetRedraw(False)   //禁止下拉列表刷新
  15. Do While SQLCA.SqlCode = 0
  16.   ddlb_1.AddItem (ls_empno+'-'+ls_ename)  //向下拉列表添加数据
  17.   Fetch cur_empinfo Into :ls_empno,:ls_ename;
  18. Loop
  19. ddlb_1.SetRedraw(True)  //刷新下拉列表
  20. Close cur_empinfo;  //关闭游标
复制代码
②  使用for 语法向下拉框中添加员工信息
  1. long ll_count = 10
  2. string ls_empno,ls_ename
  3. //定义游标
  4. string cur_empinfo
  5. //声明游标
  6. declare cur_empinfo cursor for select empno,ename from emp where deptno = '20' using sqlca;
  7. //打开游标
  8. open cur_empinfo;
  9. for i=1 to ll_count
  10. //获取数据
  11. fetch test into :ls_empno,:ls_ename;
  12.     //在这里写你的业务
  13.     ddlb_1.AddItem (ls_empno+'-'+ls_ename)  //向下拉列表添加数据
  14. next
  15. //关闭游标
  16. close cur_empinfo;
复制代码
注： 使用游标过程中，打开了游标，业务处理完之后一定要关闭游标
三 、调用存储过程

存储过程是一组预编译的SQL代码块，它将一些复杂操作封装起来，并存储在数据库中。
由于存储过程在数据库中进行了预编译，并且能被多个客户端重复调用，可以减少网络开销，提高执行效率
3.1 调用格式
  1. // 定义过程调用
  2. // prc_Test 表示数据库中存储过程名称
  3. // ls_a,ls_b 表示存储过程中的in类型入参
  4. Declare my_proce Procedure For prc_Test(:ls_a,:ls_b);  
  6. // 执行过程，这里是不需要其他参数的
  7. Execute my_proce ;
  9. // 调用过程出现错误处理
  10. If SQLCA.SQLCode <> 0 Then
  12. End If
  14. // 获取出参值，也就是OUT的变量，如果没有out类型的变量，这句也就不需要了
  15. Fetch my_proce Into :ls_ReturnName;
  17. // 获取数据出现错误处理
  18. If SQLCA.SQLCode <> 0 Then
  20. End If
  22. // 关闭调用
  23. Close my_proce ;
复制代码
3.2 举个栗子

① PB调用无入参存储过程
Ⅰ 创建存储过程
  1. Create Or Replace Procedure prc_getEmplname(v_name Out Varchar2) As
  2. --存储过程，有一个out类型参数，无入参
  3. Begin
  4.     v_name := 'Jone';
  5. End;
复制代码
Ⅱ 调用存储过程
  1. Declare my_proce Procedure For p_get_name;  
  2. //或者
  3. Declare my_proce Procedure For p_get_name();
复制代码
② PB调用有入参存储过程
Ⅰ 创建存储过程
我们来创建一个存储过程，根据部门编号和员工姓名给该员工涨1000块钱工资
  1. CREATE OR REPLACE Procedure prc_incr_sal(pra_deptno in Varchar2,
  2.                                        pra_ename  in varchar2,
  3.                                        pra_code   out NUMBER,    --执行代码
  4.                                        pra_errmsg out VARCHAR2) As
  5. Begin
  6.    pra_code :=1;
  7.    pra_errmsg :='';
  9.    begin
  10.    update emp set sal=sal+1000 where deptno = pra_deptno and ename =pra_ename;
  11.     EXCEPTION
  12.       WHEN OTHERS THEN
  13.          pra_code := -1;
  14.          pra_errmsg := '更新员工薪水失败!'||SQLERRM;
  15.    END;
  16. End prc_incr_sal;
复制代码
Ⅱ 调用存储过程
  1. string ls_deptno
  2. string ls_ename
  3. int li_AppCode
  4. string ls_err
  5. ls_deptno = "20"
  6. ls_ename = "XIEZHR"
  7. DECLARE my_prc PROCEDURE FOR PRC_INCR_SAL
  8.         (:ls_deptno, //员工编号
  9.      :ls_ename  //员工姓名
  10.         );
  12. EXECUTE my_prc;
  13. // 执行存储过程报错处理
  14. IF SQLCA.SQLCode < 0 THEN
  15.         ls_err = SQLCA.SQLErrText
  16.         GOTO prcErr
  17. END if
  18. //获取存储过程出参数据
  19. FETCH my_prc Into :li_AppCode, :ls_err ;
  21. //获取出参数据失败处理
  22. IF SQLCA.SQLCode < 0 THEN GOTO prcErr
  24. IF li_AppCode < 0 THEN GOTO prcErr
  25. //关闭存储过程
  26. CLOSE my_prc;
  28. return 0
  30. prcErr:
  31.     rollback;
  32.     messagebox('错误信息',)
复制代码
四、小结

通过前面的三小节内容，相信你已经学会了在PB中怎么执行动态SQL语句？PB怎么调用数据库中存储过程？
PB怎么通过游标对SQL语句查询出的包含多条结果集的处理。这几种场景在PB中都是经常使用的。
以上就是本期的全部内容，希望对你有所帮助 (●'◡'●)
我们下期再见~  ヾ(•ω•`)o

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！



欢迎光临 ToB企服应用市场:ToB评测及商务社交产业平台 (https://dis.qidao123.com/) Powered by Discuz! X3.4