异常处理
begin
...
....
exception
when others thenrollback;
v_ErrorCode := sqlcode; -- 错误号
v_ErrorText := SUBSTR(SQLERRM, 1, 160); --错误号对应的信息
v_ErrorText1 :=DBMS_UTILITY.format_error_backtrace; --错误所在的行数
insert into t_job_log
select se_job_id.nextval,
'失败ErrorCode' || v_ErrorCode || 'ErrorText:' ||
v_ErrorText||' 'v_ErrorText1,
sysdate
from dual;
commit;
end;
其他资料:
简单的说,异常处理,就是以一种一致的方法会机制去处理程序中的异常。
与其他程序语言一样,pl/sql的异常处理也是基于以下基本思想:
· 发现一个问题但不能处理它的函数时,引发一个异常,希望它的(直接或间接)调用者能够处理这个问题.
· 而想处理该问题的函数通过捕获这个异常来处理这个异常.
·
未捕获的异常自动往像上一层传递(按函数调用的逆序)
· 如果程序始终没有处理这个异常,最终它会被传到运行系统那里,运行系统捕获异常后通常只是简单的终止这个程序.
1.定义异常
语法如下:
DECLARE
exception_name EXCEPTION;
...
BEGIN
...
EXCEPTION
WHEN excption_name THEN
...
WHEN OTHERS THEN
END;
将异常与一个代码关联
DECLARE
exception_name EXCEPTION;
PRAGMA EXECEPTION_INIT(exception_name,integer)
...
BEGIN
...
EXCEPTION
WHEN OTHERS THEN
IF SQLCODE = integer THEN
...
END;
2.抛出异常
BEGIN
IF total_sales = 0
THEN
RAISE ZERO_DIVIDE; -- Defined in STANDARD package
ELSE
RETURN (sales_percentage_calculation (my_sales, total_sales));
END IF;
END;
以
RAISE_APPLICATION_ERROR
函数抛出异常
RAISE_APPLICATION_ERROR
定义在
DBMS_STANDARD
包中
,
声明如下
:
PROCEDURE RAISE_APPLICATION_ERROR (
num binary_integer,
msg varchar2,
keeperrorstack boolean default FALSE);
举例
:
CREATE OR REPLACE PROCEDURE raise_by_language (code_in IN PLS_INTEGER)
IS
l_message error_table.error_string%TYPE;
BEGIN
SELECT error_string
INTO l_message
FROM error_table, v$nls_parameters v
WHERE error_number = code_in
AND string_language = v.VALUE
AND v.parameter = 'NLS_LANGUAGE';
RAISE_APPLICATION_ERROR (code_in, l_message);
END;
3.
处理异常
...
BEGIN
...
EXCEPTION
WHEN exception1 THEN
...
WHEN exception2 OR exception3 THEN --
同时处理两个异常
...
WHEN OTHERS THEN
RAISE;
END;
SQLCODE
SQLCODE
相当于一个全局变量函数
,
保存着最近一次发生异常的异常代码。
SQLERRM
SQLERRM函数根据传入的异常代码返回对应的异常消息。SQLERRM的长度限制为512字节。
DBMS_UTILITY.FORMAT_ERROR_STACK
DBMS_UTILITY.FORMAT_ERROR_STACK
RETURN VARCHAR2;
DBMS_UTILITY.FORMAT_ERROR_STACK
函数返回完整的错误消息。
DBMS_UTILITY.FORMAT_ERROR_BACKTRACE
DBMS_UTILITY.FORMAT_ERROR_BACKTRACE
RETURN VARCHAR2;
DBMS_UTILITY.FORMAT_ERROR_BACKTRACE
用于返回发生异常时异常点的堆栈信息
DBMS_UTILITY.FORMAT_CALL_STACK
DBMS_UTILITY.FORMAT_CALL_STACK
RETURN VARCHAR2;
该函数返回程序当前执行点的堆栈信息
举例:
CREATE OR REPLACE PROCEDURE proc1 IS
BEGIN
DBMS_OUTPUT.put_line ('running proc1');
RAISE NO_DATA_FOUND;
END;
/
CREATE OR REPLACE PROCEDURE proc2 IS
l_str VARCHAR2 (30) := 'calling proc1';
BEGIN
DBMS_OUTPUT.put_line (l_str);
proc1;
END;
/
CREATE OR REPLACE PROCEDURE proc3 IS
BEGIN
DBMS_OUTPUT.put_line ('calling proc2');
proc2;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ('Error stack at top level:');
DBMS_OUTPUT.put_line (DBMS_UTILITY.format_error_backtrace);
END;
/
然后:
SQL> SET SERVEROUTPUT ON
SQL> BEGIN
2 DBMS_OUTPUT.put_line ('Proc3 -> Proc2 -> Proc1 backtrace');
3 proc3;
4 END;
5 /
Proc3 -> Proc2 -> Proc1 backtrace
calling proc2
calling proc1
running proc1
Error stack at top level:
ORA-06512: at "SCOTT.PROC1", line 4
ORA-06512: at "SCOTT.PROC2", line 5
ORA-06512: at "SCOTT.PROC3", line 4
屏蔽异常(异常的一种特殊处理方式)
如下例子:
1 PROCEDURE change_data IS
2 BEGIN
3 BEGIN
4 DELETE FROM employee WHERE ... ; --这里发送异常,跳得第5行
5 EXCEPTION
6 WHEN OTHERS THEN NULL; --并未处理异常,只是屏蔽掉了,程序的执行跳到第9行
7 END;
8
9 BEGIN
10 UPDATE company SET ... ;
11 EXCEPTION
12 WHEN OTHERS THEN NULL;
13 END;
14
15 BEGIN
16 INSERT INTO company_history SELECT * FROM company WHERE ... ;
17 EXCEPTION
18 WHEN OTHERS THEN NULL;
19 END;
20 END;
以上代码在
delphi
中相当于
:
1 PROCEDURE change_data
;
2 BEGIN
3 TRY
4 DELETE FROM employee WHERE ... ; //
这里发送异常
,
跳得第
5
行
5 EXCEPT
6 ; //
并未处理异常
,
只是屏蔽掉了
,
程序的执行跳到第
9
行
7 END;
8
9 TRY
10 UPDATE company SET ... ;
11 EXCEPT
12 ;
13 END;
14
15 TRY
16 INSERT INTO company_history SELECT * FROM company WHERE ... ;
17 EXCEPT
18 ;
19 END;
20 END;
4.构建有效的错误处理架构
尽管程序语言在语法上提供了异常处理的这种机制,但是一个完整的应用程序框架应该有一个合适的错误处理架构,在pl/sql应用程序的开发中,也应建立起这种架构,而不是随意的处理异常。