Oracle/PLSQL存储过程详解

原文链接：https://blog.csdn.net/zezezuiaiya/article/details/79557621

Oracle/PLSQL存储过程详解

2018-03-14 17:31:55 阅读数 9866更多
分类专栏： 存储过程
 

一.在plsql中创建一个存储过程

打开plsql，右键procedures，新建。
新建
如果新建毫无反应
直接文件-新建-程序窗口-空白，新建一个程序窗口： 
新建2


存储过程创建语法：

  1. create [or replace] procedure 存储过程名（param1 in type，param2 out type）
  2. as
  3. 变量1 类型（值范围）;
  4. 变量2 类型（值范围）;
  5. Begin
  6. Select count(*) into 变量1 from 表A where列名=param1；
  7.  
  8. If (判断条件) then
  9. Select 列名 into 变量2 from 表A where列名=param1；
  10. Dbms_output。Put_line(‘打印信息’);
  11. Elsif (判断条件) then
  12. Dbms_output。Put_line(‘打印信息’);
  13. Else
  14. Raise 异常名（NO_DATA_FOUND）;
  15. End if;
  16.  
  17. Exception
  18. When others then
  19. Rollback;
  20. End;

二：实例：写存储过程（例子）

  1. --创建一个名为p_contract_purchase_import的存储过程
  2. create or replace procedure p_contract_purchase_import(
  3. --以下写存储过程的外部参数（传入的参数）
  4. --格式为：参数名 in 参数类型
  5. --注意，这里的varchar不标注大小
  6. V_IN_SUBCOMPANYID in VARCHAR2, --专业分公司
  7. V_IN_PURCONTRACTMONEY in NUMBER, --采购合同金额
  8. V_IN_PARTYBNAME in VARCHAR2, --供应商名称
  9. --设置一个返回值
  10. v_o_ret out number --返回结果0:成功；1：失败； 4：查不到供应商； 5：添加关联失败；6：新增采购合同失败
  11.  
  12. )
  13.  
  14. --以下写内部参数
  15. --格式为：参数名称 参数类型
  16. --注意，这里的varchar需要标注大小
  17. as
  18. V_SUPPLIERID INTEGER; --供应商编号
  19. V_PARTYBACCOUNT VARCHAR2(100);--收款账号
  20. V_SQLERRM VARCHAR2(4000);--错误详情
  21.  
  22. --存储过程开始
  23. begin
  24. --为某些变量赋初值
  25. --格式为 变量名 := 值
  26. v_o_ret := 1;
  27. V_SUPPLIERID := '';
  28. V_PARTYBACCOUNT := '';
  29.  
  30. --写具体的操作语句（sql）
  31. --if语句
  32. if(V_IN_PARTYBNAME is not null) then
  33. begin
  34. select t.SUPPLIERID,t.PARTYBACCOUNT,t.PARTYBBANK ,t.PARTYBNAME
  35. into V_SUPPLIERID,V_PARTYBACCOUNT,V_PARTYBBANK,V_PARTYBNAME
  36. from T_SUPPLIER t where t.PARTYBNAME=trim(V_IN_PARTYBNAME) and t.SUBCOMPANYID=trim(V_IN_SUBCOMPANYID);
  37. --抛异常
  38. exception
  39. when others then
  40. v_o_ret := 4 ; --找不到该供应商
  41. V_PARTYBNAME := V_IN_PARTYBNAME;
  42.  
  43. -- 将异常原因写入存储过程日志表
  44. V_SQLERRM := SQLERRM;
  45. INSERT INTO T_LOG_DBERR
  46. (ERRTIME, ERRMODEL, ERRDESC)
  47. VALUES
  48. (SYSDATE,
  49. 'PROCEDURES',
  50. 'p_contract_purchase_import:ret=' || v_o_ret ||','||
  51. V_SQLERRM);
  52. COMMIT;
  53. end ;
  54. end if;
  55.  
  56. ······
  57.  
  58. end ;
  59. commit;
  60. v_o_ret :=0 ;
  61.  
  62.  
  63. return;
  64.  
  65. EXCEPTION
  66. WHEN OTHERS THEN
  67. ROLLBACK;
  68. -- 插入异常原因
  69. V_SQLERRM := SQLERRM;
  70. INSERT INTO T_LOG_DBERR
  71. (ERRTIME, ERRMODEL, ERRDESC)
  72. VALUES
  73. (SYSDATE,
  74. 'PROCEDURES',
  75. 'p_contract_purchase_import:ret=' || v_o_ret ||','||
  76. V_SQLERRM);
  77. COMMIT;
  78.  
  79. --存储过程结束
  80. end p_contract_purchase_import;

1.注意begin 和 end成对 

2.务必将错误内容打印出来。否则，有的时候，就算调试看出来时哪一个语句的错误，也闹不明白错在哪里

三.存储过程调试

1.按F8或是菜单栏第三行第二个执行按键编译存储过程。此时，如果有语法上的明显错误，plsql会给予提示。 
2.在procedures中找到要调试的存储过程，右键，选测试。注意，要记得勾选添加调试信息啊。 
开启调试 
3.打开调试窗口，填写输入参数 
4.点测试窗口的调试按键（如图中画圈的位置）开始调试 
填参数并打开调试
5.逐步调试，如下图： 
调试
图中1：点击单步调试，主要就是使用这个来进行调试。执行到的代码会高亮显示，此外，注意图中4的位置，可以在这里输入变量的名字，来查看变量的当前值。 
图中2/3：分别为跳出单步执行和全部执行，调试时不推荐使用。

单步调试过程中，如果执行到哪一步直接跳转到了exception结束，那么，就是这一步出来问题，可以记住这个位置，再次调试，通过查看这附近变量的值，以及查看错误日志记录的错误详情，来确认出错的具体原因并进行修改。

四.在java中调用

存储过程调试好之后，就可以在java中调用该存储过程。

  1. logger.info("调用存储过程p_contract_purchase_import");
  2. //存储过程名称。有多少个传入参数打几个问号（包括v_o_ret）
  3. String procName="{Call p_contract_purchase_import(?,?,?,?) }";
  4. DataSource ds = SessionFactoryUtils.getDataSource(this.getHibernateTemplate().getSessionFactory());
  5. Connection conn = null;
  6. CallableStatement call = null;
  7. //ResultSet rs =null;
  8.  
  9. try
  10. {
  11. //创建连接
  12. conn = ds.getConnection();
  13. call = conn.prepareCall(procName);
  14. //传入数据
  15. call.setString(1, (importList.get(0)).trim());
  16. if(ratio_amount==null) {
  17. call.setString(2,null);
  18. } else {
  19. call.setLong(2, ratio_amount);
  20. }
  21. call.setString(3, (importList.get(2)).trim());
  22.  
  23. //第四个参数是作为返回值存在的
  24. call.registerOutParameter(4, Types.BIGINT);
  25. //执行存储过程
  26. call.executeUpdate();
  27. //获取返回的结果
  28. ret = call.getInt(17) ;
  29. logger.info("ret:"+ret); ;//call.getInt(6));
  30.  
  31. try
  32. {
  33. //关闭连接
  34. call.close();
  35. call = null ;
  36. conn.close();
  37. conn = null ;
  38. } catch (SQLException e) {
  39. // TODO Auto-generated catch block
  40. }
  41.  
  42. }catch (SQLException e){
  43. logger.error("打开存储过程错误：",e);
  44. }
  45. finally{
  46. try {
  47. if (call != null) {
  48. call.close();
  49. }
  50. if (conn != null) {
  51. conn.close();
  52. }
  53. } catch (SQLException e) {
  54. // TODO Auto-generated catch block
  55. conn = null;
  56. }
  57. }

需要注意的是，call.setLong()不可以传入空值。如果内容有可能为空的话，set之前需要判断是否为空，不为空才能使用setLong()方法，否则，要使用setString方法。


五：注意事项：

  1. 存储过程参数不带取值范围，in表示传入，out表示输出
  2. 变量带取值范围，后面接分号
  3. 在判断语句前最好先用count(*)函数判断是否存在该条操作记录
  4. 用select … into … 给变量赋值
  5. 在代码中抛异常用 raise+异常名

已命名的异常:

命名的系统异常产生原因
ACCESS_INTO_NULL 未定义对象
CASE_NOT_FOUND CASE 中若未包含相应的 WHEN ，并且没有设置ELSE 时
COLLECTION_IS_NULL 集合元素未初始化
CURSER_ALREADY_OPEN 游标已经打开
DUP_VAL_ON_INDEX 唯一索引对应的列上有重复的值
INVALID_CURSOR 在不合法的游标上进行操作
INVALID_NUMBER 内嵌的 SQL 语句不能将字符转换为数字
NO_DATA_FOUND 使用 select into 未返回行，或应用索引表未初始化的
TOO_MANY_ROWS 执行 select into 时，结果集超过一行
ZERO_DIVIDE 除数为 0
SUBSCRIPT_BEYOND_COUNT 元素下标超过嵌套表或 VARRAY 的最大值
SUBSCRIPT_OUTSIDE_LIMIT 使用嵌套表或 VARRAY 时，将下标指定为负数
VALUE_ERROR 赋值时，变量长度不足以容纳实际数据
LOGIN_DENIED PL/SQL 应用程序连接到 oracle 数据库时，提供了不正确的用户名或密码
NOT_LOGGED_ON PL/SQL 应用程序在没有连接 oralce 数据库的情况下访问数据
PROGRAM_ERROR PL/SQL 内部问题，可能需要重装数据字典＆ pl./SQL系统包
ROWTYPE_MISMATCH 宿主游标变量与 PL/SQL 游标变量的返回类型不兼容
SELF_IS_NULL 使用对象类型时，在 null 对象上调用对象方法
STORAGE_ERROR 运行 PL/SQL 时，超出内存空间
SYS_INVALID_ID 无效的 ROWID 字符串
TIMEOUT_ON_RESOURCE Oracle 在等待资源时超时

六：基本语法

1. 基本结构

  1. CREATE OR REPLACE PROCEDURE 存储过程名字
  2. (
  3. 参数1 IN NUMBER,
  4. 参数2 IN NUMBER
  5. ) IS
  6. 变量1 INTEGER :=0;
  7. 变量2 DATE;
  8. BEGIN
  9. --执行体
  10. END 存储过程名字;

2. SELECT INTO STATEMENT

将select查询的结果存入到变量中，可以同时将多个列存储多个变量中，必须有一条记录，否则抛出异常(如果没有记录抛出NO_DATA_FOUND) 
例子：

  1. BEGIN
  2. SELECT col1,col2 into 变量1,变量2 FROM typestruct where xxx;
  3. EXCEPTION
  4. WHEN NO_DATA_FOUND THEN
  5. xxxx;
  6. END;

3. IF 判断

  1. IF V_TEST=1 THEN
  2. BEGIN
  3. do something
  4. END;
  5. END IF;

4. while 循环

  1. WHILE V_TEST=1 LOOP
  2. BEGIN
  3. XXXX
  4. END;
  5. END LOOP;

5. 变量赋值

 V_TEST := 123;

6. 用for in 使用cursor

  1. IS
  2. CURSOR cur IS SELECT * FROM xxx;
  3. BEGIN
  4. FOR cur_result in cur LOOP
  5. BEGIN
  6. V_SUM :=cur_result.列名1+cur_result.列名2
  7. END;
  8. END LOOP;
  9. END;

7. 带参数的cursor

  1. CURSOR C_USER(C_ID NUMBER) IS SELECT NAME FROM USER WHERE TYPEID=C_ID;
  2. OPEN C_USER(变量值);
  3. LOOP
  4. FETCH C_USER INTO V_NAME;
  5. EXIT FETCH C_USER%NOTFOUND;
  6. do something
  7. END LOOP;
  8. CLOSE C_USER;

8. 用pl/sql developer debug

连接数据库后建立一个Test WINDOW,在窗口输入调用SP的代码,F9开始debug,CTRL+N单步调试

八：关于oracle存储过程的若干问题备忘

1.在oracle中，数据表别名不能加as，如：

  1. select a.appname from appinfo a;-- 正确
  2. select a.appname from appinfo as a;-- 错误

也许，是怕和oracle中的存储过程中的关键字as冲突的问题吧

2.在存储过程中，select某一字段时，后面必须紧跟into，如果select整个记录，利用游标的话就另当别论了。

  1. select af.keynode into kn from APPFOUNDATION af
  2. where af.appid=aid and af.foundationid=fid;-- 有into，正确编译
  3. select af.keynode from APPFOUNDATION af
  4. where af.appid=aid and af.foundationid=fid;-- 没有into，编译报错，提示：Compilation
  5.  
  6. Error: PLS-00428: an INTO clause is expected in this SELECT statement

3.在利用select…into…语法时，必须先确保数据库中有该条记录，否则会报出”no data found”异常。

可以在该语法之前，先利用select count(*) from 查看数据库中是否存在该记录，如果存在，再利用select…into…

4.在存储过程中，别名不能和字段名称相同，否则虽然编译可以通过，但在运行阶段会报错

  1. --正确
  2. select keynode into kn from APPFOUNDATION where appid=aid and foundationid=fid;
  3.  
  4. --错误
  5. select af.keynode into kn from APPFOUNDATION af
  6. where af.appid=appid and af.foundationid=foundationid;
  7. -- 运行阶段报错，提示ORA-01422:exact fetch returns more than requested number of rows

5.在存储过程中，关于出现null的问题

假设有一个表A，定义如下：

  1. create table A(
  2. id varchar2(50) primary key not null,
  3. vcount number(8) not null,
  4. bid varchar2(50) not null -- 外键
  5. );

如果在存储过程中，使用如下语句：

select sum(vcount) into fcount from A where bid='xxxxxx';

如果A表中不存在bid=”xxxxxx”的记录，则fcount=null(即使fcount定义时设置了默认值，如：fcount number(8):=0依然无效，fcount还是会变成null)，这样以后使用fcount时就可能有问题，所以在这里最好先判断一下：

  1. if fcount is null then
  2. fcount:=0;
  3. end if;

这样就一切ok了。

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/xudj/p/11840532.html