Oracle/PLSQL存储过程详解

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

打开plsql，右键procedures，新建。

如果新建毫无反应
直接文件-新建-程序窗口-空白，新建一个程序窗口：

存储过程创建语法：

    create [or replace] procedure 存储过程名（param1 in type，param2 out type）
as
变量1 类型（值范围）;
变量2 类型（值范围）;
BeginSelect count(*) into 变量1 from 表A where列名=param1；If (判断条件) thenSelect 列名 into 变量2 from 表A where列名=param1；Dbms_output。Put_line(‘打印信息’);Elsif (判断条件) thenDbms_output。Put_line(‘打印信息’);ElseRaise 异常名（NO_DATA_FOUND）;End if;ExceptionWhen others thenRollback;
End;

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

--创建一个名为p_contract_purchase_import的存储过程
create or replace procedure p_contract_purchase_import(--以下写存储过程的外部参数（传入的参数）--格式为：参数名  in 参数类型--注意，这里的varchar不标注大小V_IN_SUBCOMPANYID       in VARCHAR2,  --专业分公司V_IN_PURCONTRACTMONEY   in NUMBER,        --采购合同金额                                            V_IN_PARTYBNAME         in VARCHAR2,  --供应商名称--设置一个返回值v_o_ret         out number                --返回结果0:成功；1：失败； 4：查不到供应商； 5：添加关联失败；6：新增采购合同失败)--以下写内部参数
--格式为：参数名称  参数类型
--注意，这里的varchar需要标注大小
as
V_SUPPLIERID            INTEGER;  --供应商编号
V_PARTYBACCOUNT         VARCHAR2(100);--收款账号
V_SQLERRM         VARCHAR2(4000);--错误详情--存储过程开始
begin--为某些变量赋初值 --格式为  变量名 := 值v_o_ret := 1;   V_SUPPLIERID := '';V_PARTYBACCOUNT := '';--写具体的操作语句（sql）--if语句if(V_IN_PARTYBNAME is not null) thenbeginselect t.SUPPLIERID,t.PARTYBACCOUNT,t.PARTYBBANK ,t.PARTYBNAME into V_SUPPLIERID,V_PARTYBACCOUNT,V_PARTYBBANK,V_PARTYBNAMEfrom T_SUPPLIER t where t.PARTYBNAME=trim(V_IN_PARTYBNAME) and t.SUBCOMPANYID=trim(V_IN_SUBCOMPANYID);--抛异常exceptionwhen others thenv_o_ret := 4 ;  --找不到该供应商V_PARTYBNAME := V_IN_PARTYBNAME;-- 将异常原因写入存储过程日志表V_SQLERRM := SQLERRM;INSERT INTO T_LOG_DBERR(ERRTIME, ERRMODEL, ERRDESC)VALUES(SYSDATE,'PROCEDURES','p_contract_purchase_import:ret=' || v_o_ret ||','||V_SQLERRM);COMMIT;end ;end if;······end ; commit;v_o_ret :=0 ;return;EXCEPTIONWHEN OTHERS THENROLLBACK;-- 插入异常原因V_SQLERRM := SQLERRM;INSERT INTO T_LOG_DBERR(ERRTIME, ERRMODEL, ERRDESC)VALUES(SYSDATE,'PROCEDURES','p_contract_purchase_import:ret=' || v_o_ret ||','||V_SQLERRM);COMMIT;--存储过程结束
end p_contract_purchase_import;

1.注意begin 和 end成对

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

三.存储过程调试

1.按F8或是菜单栏第三行第二个执行按键编译存储过程。此时，如果有语法上的明显错误，plsql会给予提示。
2.在procedures中找到要调试的存储过程，右键，选测试。注意，要记得勾选添加调试信息啊。

3.打开调试窗口，填写输入参数
4.点测试窗口的调试按键（如图中画圈的位置）开始调试

5.逐步调试，如下图：

图中1：点击单步调试，主要就是使用这个来进行调试。执行到的代码会高亮显示，此外，注意图中4的位置，可以在这里输入变量的名字，来查看变量的当前值。
图中2/3：分别为跳出单步执行和全部执行，调试时不推荐使用。

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

四.在java中调用

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

logger.info("调用存储过程p_contract_purchase_import");
//存储过程名称。有多少个传入参数打几个问号（包括v_o_ret）
String procName="{Call p_contract_purchase_import(?,?,?,?) }";
DataSource ds = SessionFactoryUtils.getDataSource(this.getHibernateTemplate().getSessionFactory());Connection conn = null;CallableStatement call = null;//ResultSet rs =null;try{//创建连接conn = ds.getConnection();call = conn.prepareCall(procName);//传入数据call.setString(1, (importList.get(0)).trim());if(ratio_amount==null) {call.setString(2,null);} else {call.setLong(2, ratio_amount);}call.setString(3, (importList.get(2)).trim());//第四个参数是作为返回值存在的call.registerOutParameter(4, Types.BIGINT);//执行存储过程call.executeUpdate();//获取返回的结果ret = call.getInt(17) ;logger.info("ret:"+ret); ;//call.getInt(6));try{//关闭连接call.close();call = null ;conn.close();conn = null ;} catch (SQLException e) {// TODO Auto-generated catch block}}catch (SQLException e){logger.error("打开存储过程错误：",e);}finally{try {if (call != null) {call.close();}if (conn != null) {conn.close();}} catch (SQLException e) {// TODO Auto-generated catch blockconn = null;}}

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

五：注意事项：

存储过程参数不带取值范围，in表示传入，out表示输出
变量带取值范围，后面接分号
在判断语句前最好先用count(*)函数判断是否存在该条操作记录
用select … into … 给变量赋值
在代码中抛异常用 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. 基本结构

CREATE OR REPLACE PROCEDURE 存储过程名字
(参数1 IN NUMBER,参数2 IN NUMBER
) IS
变量1 INTEGER :=0;
变量2 DATE;
BEGIN--执行体
END 存储过程名字;

2. SELECT INTO STATEMENT

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

  BEGINSELECT col1,col2 into 变量1,变量2 FROM typestruct where xxx;EXCEPTIONWHEN NO_DATA_FOUND THENxxxx;END;

3. IF 判断

 IF V_TEST=1 THENBEGIN do somethingEND;END IF;

4. while 循环

  WHILE V_TEST=1 LOOPBEGINXXXXEND;END LOOP;

5. 变量赋值

 V_TEST := 123;

6. 用for in 使用cursor

  ISCURSOR cur IS SELECT * FROM xxx;BEGINFOR cur_result in cur LOOPBEGINV_SUM :=cur_result.列名1+cur_result.列名2END;END LOOP;END;

7. 带参数的cursor

  CURSOR C_USER(C_ID NUMBER) IS SELECT NAME FROM USER WHERE TYPEID=C_ID;OPEN C_USER(变量值);LOOPFETCH C_USER INTO V_NAME;EXIT FETCH C_USER%NOTFOUND;do somethingEND LOOP;CLOSE C_USER;

8. 用pl/sql developer debug

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

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

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

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

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

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

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

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

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

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

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

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

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

create table A(
id varchar2(50) primary key not null,
vcount number(8) not null,
bid varchar2(50) not null -- 外键
);

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

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

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

if fcount is null thenfcount:=0;
end if;

这样就一切ok了。