pl/sql
提供了強(qiáng)大而靈活的手段來(lái)捕捉和處理程序產(chǎn)生的異常，從而使
oracle
的用戶遠(yuǎn)離一些令人煩惱的
bug
。
?
異常定義
?
在一個(gè)異常產(chǎn)生、被捕獲并處理之前，它必須被定義。
Oracle
定義了幾千個(gè)異常，絕大多數(shù)只有錯(cuò)誤編號(hào)和相關(guān)描述，僅僅命名了若干個(gè)最常被用到的異常。這些名字被儲(chǔ)存在
STANDARD
，
UTL_FILE
，
DBMS_SQL
這幾個(gè)系統(tǒng)包中，詳情請(qǐng)見(jiàn)
oracle:pl/sql
異常處理（
1
）。
出自之外的絕大多數(shù)異常需要程序員命名。有
2
種命名異常的方法：
?
1
：聲明一個(gè)自定義異常
在
STANDARD
中的命名了的異常基本山是與系統(tǒng)的錯(cuò)誤相關(guān)的（當(dāng)然那些只有
errorcode
的異常也是這樣），但在實(shí)際的應(yīng)用中我們經(jīng)常需要與特定的應(yīng)用程序相關(guān)的異常，由程序員聲明的異常就是用于處理這種情況的。
Oracle
異常處理模塊的方便的地方在于，它并沒(méi)有區(qū)別對(duì)待自定義的與預(yù)定義的異常。這使得我們可以像對(duì)待預(yù)定義異常一樣，捕捉和處理自定義異常，只是在此之前需要聲明它；同時(shí)對(duì)于一個(gè)自定義的異常，我們需要用
RAISE
來(lái)手動(dòng)產(chǎn)生。
下面是一個(gè)聲明的例子：
?????? 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;
需要注意的是處理定義的時(shí)候，只有兩個(gè)地方會(huì)出現(xiàn)自定義的異常：
ü????????
raise exception
；
ü????????
when exception then
?
2
：為非預(yù)定義異常關(guān)聯(lián)一個(gè)名字
僅僅
21
個(gè)預(yù)定義異常對(duì)我們來(lái)說(shuō)實(shí)在是太少了，還有幾千個(gè)異常只有
errorcode
和描述。另外，程序員也可以用
RAISE_APPLICATION_ERROR
定義一個(gè)含
errorcode
和描述的異常。
當(dāng)然，只用
errorcode
也可以很好地完成工作，只要你不擔(dān)心會(huì)忘了那串?dāng)?shù)字代表的意思就行。比方說(shuō)
;
?????? exception
????????????? when others
????????????? then
???????????????????? if sqlcode=-1843 then? /*sqlcode
是內(nèi)建的用于返回最近一次錯(cuò)誤編號(hào)的函數(shù)
*/
?????????????
?????? …..
這的確是一段讓人感到晦澀的代碼，還是給它關(guān)聯(lián)個(gè)名字吧。
我們要用到的是
pragma exception_init(exception,integer)
，然后就可以像對(duì)待預(yù)定義異常一樣對(duì)待它了，我是說(shuō)沒(méi)必要像上面的那種一樣用
raise
。
Exception_init
是一個(gè)編譯時(shí)運(yùn)行的函數(shù)，它只能出現(xiàn)在代碼的聲明部分，而異常名字必須在此之前被定義。下面用一個(gè)匿名過(guò)程舉個(gè)例子：
?????? declare
??????
?????? invalid_company_id exception;
??????
?????? pragma exception_init(invalid_company_id, -1834);
要注意的時(shí)：
ü????????
不可以用
-1403
（
no_data_found
），用
100
，事實(shí)上
exception_init
中的
integer
對(duì)應(yīng)的是
sqlcode
返回的值。
ü????????
不能為
0
，不能大于
100
，不能小于
-1000000
一個(gè)例子：
?????? 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
：
ü????????
一個(gè)非預(yù)定義異常是經(jīng)常要被用到的。
ü????????
我們將用
raise_applocation_error
產(chǎn)生了一個(gè)自定義的
errorcode
時(shí)。
一種簡(jiǎn)便的方法是將以上兩種情況中的異常定義在一個(gè)包中，這樣我們就沒(méi)有必要每次都重復(fù)定義了。
?????? 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;
有了上面這個(gè)包，就可以方便的處理異常了
;
?????? 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
個(gè)預(yù)定義異常外，還有一些包也定義了一些異常。但與
standard
包中異常不同的是，在使用這些異常時(shí)，需要帶上包的名字。如：
?????? when dbms_lob.invalid_argval then ……
?
非常有用的一點(diǎn)是，可以在最外層的
pl/sql
塊的異常處理模塊中加入
others
，這樣就可以把從內(nèi)部傳遞出來(lái)的未被處理的剩余異常全部處理掉了。
?????? Exception
?????? When others
??????
?????? Then ….