Oracle:pl/sql 异常处理2

pl/sql 提供了强大而灵活的手段来捕捉和处理程序产生的异常，从而使 oracle 的用户远离一些令人烦恼的 bug 。

 

异常定义

 

在一个异常产生、被捕获并处理之前，它必须被定义。 Oracle 定义了几千个异常，绝大多数只有错误编号和相关描述，仅仅命名了若干个最常被用到的异常。这些名字被储存在 STANDARD ， UTL_FILE ， DBMS_SQL 这几个系统包中，详情请见 oracle:pl/sql 异常处理（ 1 ）。

出自之外的绝大多数异常需要程序员命名。有 2 种命名异常的方法：

 

1 ：声明一个自定义异常

在 STANDARD 中的命名了的异常基本山是与系统的错误相关的（当然那些只有 errorcode 的异常也是这样），但在实际的应用中我们经常需要与特定的应用程序相关的异常，由程序员声明的异常就是用于处理这种情况的。

Oracle 异常处理模块的方便的地方在于，它并没有区别对待自定义的与预定义的异常。这使得我们可以像对待预定义异常一样，捕捉和处理自定义异常，只是在此之前需要声明它；同时对于一个自定义的异常，我们需要用 RAISE 来手动产生。

下面是一个声明的例子：

       procedure calc_ammul_sales

              (company_id_in in company.company_id%tye)

       is

              invalid_company_id exception;

              negative_balance excrption;

              duplicate_company Boolean;

       begin

              /*body of executable statement*/

       exception

              when invalid_company_id

              then /*handle exception*/

              when no_data_found

              then /*handle exception*/

              /*…..*/

       end;

需要注意的是处理定义的时候，只有两个地方会出现自定义的异常：

ü          raise exception ；

ü          when exception then

 

2 ：为非预定义异常关联一个名字

仅仅 21 个预定义异常对我们来说实在是太少了，还有几千个异常只有 errorcode 和描述。另外，程序员也可以用 RAISE_APPLICATION_ERROR 定义一个含 errorcode 和描述的异常。

当然，只用 errorcode 也可以很好地完成工作，只要你不担心会忘了那串数字代表的意思就行。比方说 ;

       exception

              when others

              then

                     if sqlcode=-1843 then /*sqlcode 是内建的用于返回最近一次错误编号的函数 */

                     …..

这的确是一段让人感到晦涩的代码，还是给它关联个名字吧。

我们要用到的是 pragma exception_init(exception,integer) ，然后就可以像对待预定义异常一样对待它了，我是说没必要像上面的那种一样用 raise 。 Exception_init 是一个编译时运行的函数，它只能出现在代码的声明部分，而异常名字必须在此之前被定义。下面用一个匿名过程举个例子：

       declare

              invalid_company_id exception;

              pragma exception_init(invalid_company_id, -1834);

要注意的时：

ü          不可以用 -1403 （ no_data_found ），用 100 ，事实上 exception_init 中的 integer 对应的是 sqlcode 返回的值。

ü          不能为 0 ，不能大于 100 ，不能小于 -1000000

一个例子：

       procedure delete_company(company_id_in in number)

       is

              still_have_emplyee exception;

              pragma exception(still_have_employee, -2293);

       begin

              delete from compamy

              where company_id=company_id_in;

       exception

              when still_have_employee

              then dbms_output.put_line(‘delete employees for company first’);

       end;

在一下两种情况下，我们有必要使用 exception_init ：

ü          一个非预定义异常是经常要被用到的。

ü          我们将用 raise_applocation_error 产生了一个自定义的 errorcode 时。

一种简便的方法是将以上两种情况中的异常定义在一个包中，这样我们就没有必要每次都重复定义了。

       Create or replace package dynsql

       Is

              Invalid_table_name exception;

              Pragma exception_init(invalid_table_name, -903);

              Invalid_column_name exception;

              Pragma exception_init(invalid_column_name, -904);

              En_too_young const number:=-200001;

              Exc_too_young exception;

              Pragma exception_init(exc_too_young, -20001);

       End;

有了上面这个包，就可以方便的处理异常了 ;

       procedure validate_emp(birthdate in date)

       is

              min_tear const pls_integer:=18;

       begin

              if add_month(sysdate,min_year*12*-1)<birthdate_in

              then

raise_application_error(dynsql.en_too_young, ‘employee must be’ || min_year ||‘old’);

              end if;

       end;

除了 standard 包中的 21 个预定义异常外，还有一些包也定义了一些异常。但与 standard 包中异常不同的是，在使用这些异常时，需要带上包的名字。如：

       when dbms_lob.invalid_argval then ……

 

非常有用的一点是，可以在最外层的 pl/sql 块的异常处理模块中加入 others ，这样就可以把从内部传递出来的未被处理的剩余异常全部处理掉了。

       Exception

       When others

              Then ….