oracle 异常处理

  异常处理

begin

  ...

  ....

exception

    when others then
      rollback;
      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应用程序的开发中，也应建立起这种架构，而不是随意的处理异常。