第24讲 PLSQL的例外处理.doc

第25讲 PLSQL的例外处理目的：1. 掌握PL/SQL中的例外处理（Exception handling）2. 掌握例外的定义和类型。3. 理解子块中的异常处理。4.授课内容：1. PL/SQL 异常类型：1) 预定义的异常 (Predefined exceptions)：Oracle定义了自己的，内置的异常。2) 内部异常 (Internal Exceptions)3) 用户自定义异常 (User defined exceptions)： 支持用户自定义的异常。自己编写代码。2. PL/SQL异常的定义在PL/SQL程序块中，当运行出现错误或异常时，应该捕获这种异常，像Java中的try catch () 语句。在Oracle PL/SQL中，使用EXCEPTION块来处理异常。语法：DeclareBeginException WHEN OTHERS | exception OR exception THEN Statement; statement; WHEN OTHER | exception OR exception THEN statement; statement; . End;(1) 当程序出现异常时，程序立即暂停工作，跳转到EXCEPTION部分。使用WHEN THEN 来处理系统定义的异常。使用WHEN OTHERS THEN 处理未定义的异常。(2) 当异常处理结束后，Oracle就将处理权交给调用者。结束PL/SQL块的运行。(3) 系统定义的基本异常有：- ACCESS_INTO_NULL: / 访问到空？- COLLECTION_IS_NULL: / 集合是空？- CURSOR_ALREADY_OPEN: - INVALID_CURSOR: 非法游标- INVALID_NUMBER: 非法数字。- NO_DATA_FOUND: 没有查询到数据，或没有更新到数据。- TOO_MANY_ROWS: 执行select INTO返回多行- VALUE_ERROR: 出现算术，转换，截断，尺寸错误，如程序选择一个列值存入一个字符串变量，如果该值比变量的声明长度长，则PL/SQL中止赋值，引发VALUE_ERROR异常。- DUP_VAL_ON_INDEX: 唯一性索引的表中存储重复的值。- ROW_TYPE_MISMATCH: OTHERS用于EXCEPTION中未检查到的任何异常，它总是在最后一条WHEN语句，并且是独立的，不能包含在其他异常中。Oracle内置预定义异常的例子1：create or replace procedure SP201(emp_no number,emp_name varchar2,joindate date, dept_no number, VR out varchar2)ISbegin insert into emp (empno,ename,hiredate,deptno) values(emp_no,emp_name,joindate,dept_no);VR:=YES;insert into TEMP001 values(TEMP001SQ.nextval,VR); /?exception when DUP_VAL_ON_INDEX then / 唯一性索引的表中存储重复的值 VR:=This employee has exist; insert into TEMP001 values(TEMP001SQ.nextval,VR); when others then VR:=NO; insert into TEMP001 values(TEMP001SQ.nextval,VR); end;异常处理的例子2：create or replace procedure SP201(emp_no number)is emp_sal number(12,2);begin select sal into emp_salfrom empwhere empno=emp_no;exception when no_data_found then / 没有查询到数据，或没有更新到数据 dbms_output.put_line(没有发现数据);when others then dbms_output.put_line(其他错误);end;(4) 内部异常 (Internal Exceptions)由于Oracle预定义的异常很少，用户可以依靠Oracle的错误代码，生成内部异常。语法：declare exception_name exception; / 定义异常变量名 pragma exception_init (exception_name, error_number);beginexception when exception_name then exception_handling_code;end;注：内部异常是很有用的，因为Oracle产生的错误是隐含的。Oracle产生错误时，使用的格式是：00001类似的错误号。如：02291 是修改或插入数据时违反外键约束。内部异常的例子1：create or replace function F201return varchar2is my_exception exception; pragma exception_init(my_exception, -00001); Oracle的错误代码begin insert into emp (empno,deptno) values(9101,10); return Y;exception when my_exception then dbms_output.put_line(我的错误); return N1; when others then dbms_output.put_line(其他错误);return N2;end;内部异常的例子2：create or replace function F201return varchar2is my_exception exception; pragma exception_init(my_exception, -00001); FK_exception exception; pragma exception_init(FK_exception, -02291); /修改或插入数据时违反外键约束 begin -insert into emp (empno,deptno) values(9101,10); insert into emp (empno,deptno) values(9551,60); return Y;exception when my_exception then dbms_output.put_line(我的错误); return N1; when FK_exception then dbms_output.put_line(外键约束); return N3; when others then dbms_output.put_line(其他错误);return N2;end;测试函数的匿名过程：declare rr varchar2(100);begin rr:=f201; dbms_output.put_line(rr); end;产生的错误信息我的错误N1外键约束N3(5) 用户自定义异常 (User-Defined Exception): 用户自定义的异常用于：应用的逻辑错误，不是Oracle运行时产生的错误。用于Oracle运行时没有错误，一般需要开发人员自己从PL/SQL程序中抛出此异常。 自定义的异常：(1) 在定义区内，使用异常定义语句： 异常名 EXCEPTION;(2) 在执行区，当条件满足时，使用RAISE 异常名，来抛出异常。RAISE 异常名；(3) 在异常处理区，来捕获此异常：WHEN 异常名 THEN 处理语句；语法： declareuser_defiend_exception_name EXCEPTION;begin .; if 业务逻辑条件为true then RAISE user_defined_exception_name; - 抛出用户自己定义的异常，跳转到异常处理块 end if; .;exception when user_defined_exception_name then - 异常处理语句;end;异常的例子1：create or replace procedure p001(emp_no number)as userName emp.ename%type; /变量的类型会自动与表的列的字段数据类型和尺寸相同begin select ename into userName from emp where empno=emp_no; update emp set ename=9001 where empno=emp_no; if sql%found then / 判断隐含游标sql是否操作了记录 dbms_output.put_line(yes updated); else dbms_output.put_line(no data updated); end if; commit; if sql%found then dbms_output.put_line(yes updated); else dbms_output.put_line(no data updated); end if;exception when no_data_found then dbms_output.put_line(no data found); when others then dbms_output.put_line(other error, please call me); end;自定义异常的例子2：create or replace procedure p202(userno number)is myException exception; - 自定义的异常usersal number;begin if userno10 then raise myException; - 条件满足时，抛出自定义的异常 end if; usersal:=userno/0;exception when myException then dbms_output.put_li