PL/SQL的異常處理機(jī)制的初步探討
2024-07-21 02:34:31
供稿：網(wǎng)友
PL/SQL處理異常不同于其他程序語(yǔ)言的錯(cuò)誤治理方法，PL/SQL的異常處理機(jī)制與ADA很相似，有一個(gè)處理錯(cuò)誤的全包含方法。當(dāng)發(fā)生錯(cuò)誤時(shí)，程序無條件轉(zhuǎn)到異常處理部分，這就要求代碼要非常干凈并把錯(cuò)誤處理部分和程序的其它部分分開。 Oracle答應(yīng)聲明其他異常條件類型以擴(kuò)展錯(cuò)誤/異常處理。這種擴(kuò)展使PL/SQL的異常處理非常靈活。
當(dāng)一個(gè)運(yùn)行時(shí)錯(cuò)誤發(fā)生時(shí)，稱為一個(gè)異常被拋出。PL/SQL程序編譯時(shí)的錯(cuò)誤不是能被處理得異常，只有在運(yùn)行時(shí)的異常能被處理。在PL/SQL程序設(shè)計(jì)中異常的拋出和處理是非常重要的內(nèi)容。
拋出異常
由三種方式拋出異常
. 通過PL/SQL運(yùn)行時(shí)引擎
. 使用RAISE語(yǔ)句
. 調(diào)用RAISE_application_ERROR存儲(chǔ)過程
當(dāng)數(shù)據(jù)庫(kù)或PL/SQL在運(yùn)行時(shí)發(fā)生錯(cuò)誤時(shí)，一個(gè)異常被PL/SQL運(yùn)行時(shí)引擎自動(dòng)拋出。異常也可以通過RAISE語(yǔ)句拋出
RAISE exception_name;
顯式拋出異常是程序員處理聲明的異常的習(xí)慣用法，但RAISE不限于聲明了的異常，它可以拋出任何任何異常。例如，你希望用TIMEOUT_ON_RESOURCE錯(cuò)誤檢測(cè)新的運(yùn)行時(shí)異常處理器，你只需簡(jiǎn)單的在程序中使用下面的語(yǔ)句：
RAISE TIMEOUT_ON_RESOUCE;
下面看一個(gè)訂單輸入系統(tǒng)，當(dāng)庫(kù)存小于訂單時(shí)拋出一個(gè)inventory_too_low異常。
DECLARE
inventory_too_low EXCEPTION;
---其他聲明語(yǔ)句
BEGIN
.
.
IF order_rec.qty>inventory_rec.qty THEN
RAISE inventory_too_low;
END IF
.
.
EXCEPTION
WHEN inventory_too_low THEN
order_rec.staus:='backordered';
replenish_inventory(inventory_nbr=>
inventory_rec.sku,min_amount=>order_rec.qty-inventory_rec.qty);
END;
這里replenish_inventory是一個(gè)觸發(fā)器。
處理異常
PL/SQL程序塊的異常部分包含了程序處理錯(cuò)誤的代碼，當(dāng)異常被拋出時(shí)，一個(gè)異常陷阱就自動(dòng)發(fā)生，程序控制離開執(zhí)行部分轉(zhuǎn)入異常部分,一旦程序進(jìn)入異常部分就不能再回到同一塊的執(zhí)行部分。下面是異常部分的一般語(yǔ)法：
EXCEPTION
WHEN exception_name THEN
Code for handing exception_name
[WHEN another_exception THEN
Code for handing another_exception]
[WHEN others THEN
code for handing any other exception.]
用戶必須在獨(dú)立的WHEN子串中為每個(gè)異常設(shè)計(jì)異常處理代碼，WHEN OTHERS子串必須放置在最后面作為缺省處理器處理沒有顯式處理的異常。當(dāng)異常發(fā)生時(shí)，控制轉(zhuǎn)到異常部分，ORACLE查找當(dāng)前異常相應(yīng)的WHEN..THEN語(yǔ)句，捕捉異常，THEN之后的代碼被執(zhí)行，假如錯(cuò)誤陷阱代碼只是退出相應(yīng)的嵌套塊，那么程序?qū)⒗^續(xù)執(zhí)行內(nèi)部塊END后面的語(yǔ)句。假如沒有找到相應(yīng)的異常陷阱，那么將執(zhí)行WHEN OTHERS。在異常部分WHEN 子串沒有數(shù)量限制。
EXCEPTION
WHEN inventory_too_low THEN
order_rec.staus:='backordered';
replenish_inventory(inventory_nbr=>
inventory_rec.sku,min_amount=>order_rec.qty-inventory_rec.qty);
WHEN discontinued_item THEN
--code for discontinued_item PRocessing
WHEN zero_divide THEN
--code for zero_divide
WHEN OTHERS THEN
--code for any other exception
END;
當(dāng)異常拋出后，控制無條件轉(zhuǎn)到異常部分，這就意味著控制不能回到異常發(fā)生的位置，當(dāng)異常被處理和解決后，控制返回到上一層執(zhí)行部分的下一條語(yǔ)句。
BEGIN
DECLARE
bad_credit;
BEGIN
RAISE bad_credit;
--發(fā)生異常，控制轉(zhuǎn)向；
EXCEPTION
WHEN bad_credit THEN
dbms_output.put_line('bad_credit');
END;
--bad_credit異常處理后，控制轉(zhuǎn)到這里
EXCEPTION
WHEN OTHERS THEN
--控制不會(huì)從bad_credit異常轉(zhuǎn)到這里
--因?yàn)閎ad_credit已被處理
END;
當(dāng)異常發(fā)生時(shí)，在塊的內(nèi)部沒有該異常處理器時(shí)，控制將轉(zhuǎn)到或傳播到上一層塊的異常處理部分。
BEGIN
DECLARE ---內(nèi)部塊開始
bad_credit;
BEGIN
RAISE bad_credit;
--發(fā)生異常，控制轉(zhuǎn)向；
EXCEPTION
WHEN ZERO_DIVIDE THEN --不能處理bad_credite異常
dbms_output.put_line('divide by zero error');
END --結(jié)束內(nèi)部塊
--控制不能到達(dá)這里，因?yàn)楫惓]有解決；
--異常部分
EXCEPTION
WHEN OTHERS THEN
--由于bad_credit沒有解決，控制將轉(zhuǎn)到這里
END;
異常傳播
沒有處理的異常將沿檢測(cè)異常調(diào)用程序傳播到外面，當(dāng)異常被處理并解決或到達(dá)程序最外層傳播停止。
在聲明部分拋出的異常將控制轉(zhuǎn)到上一層的異常部分。
BEGIN
executable statements
BEGIN
today DATE:='SYADATE'; --ERRROR
BEGIN --內(nèi)部塊開始
dbms_output.put_line('this line will not execute');
EXCEPTION
WHEN OTHERS THEN
--異常不會(huì)在這里處理
END;--內(nèi)部塊結(jié)束
EXCEPTION
WHEN OTHERS THEN
處理異常
END
執(zhí)行部分拋出的異常將首先傳遞到同一塊的異常部分，假如在同一塊的異常部分沒有處理這個(gè)異常的處理器，那么異常將會(huì)傳播到上一層的異常部分中，一直到最外層。
在異常部分拋出的異常將控制轉(zhuǎn)到上一層的異常部分。
處理異常將停止異常的傳播和解決。有時(shí)用戶希望在錯(cuò)誤發(fā)生時(shí)，程序仍然能執(zhí)行一些動(dòng)作，要達(dá)到這個(gè)目的，可以把希望執(zhí)行的動(dòng)作放在異常處理器中，然后執(zhí)行不帶參數(shù)的RAISE語(yǔ)句，RAISE語(yǔ)句將重新拋出出現(xiàn)的異常，答應(yīng)他繼續(xù)傳播。
DECLARE
order_too_old EXCEPTION;
BEGIN
RAISE order_too_old;
EXCEPTION
WHEN order_too_old THEN
DECLARE
file_handle UTL_FILE.FILE_TYPE;
BEGIN
--open file
file_handle:=UTL_FILE.FOPEN
(location=>'/ora01/app/oracle/admin/test/utlsir'
,filename=>'error.log'
.open_mode=>'W');
--write error stack
UTL_FILE.PUT_LINE(filehandle,
DBMS_UTILITY.FORMAT_ERROR_STACK);
--write the call stack
UTL_FILE.PUT_LINE(filehandle,
DBMS_UTILITY.FORMAT_CALL_STACK);
--close error log
UTL_FILE.FCLOSE(file_handle);
RAISE; --re-raise the exception
END
END
假如從FORMAT_XXX_STACK輸出一個(gè)很大的值，那么使用DBMS_OUTPUT或UTL_FILE顯示錯(cuò)誤或調(diào)用堆的異常部分自身也會(huì)拋出異常，這兩個(gè)堆常規(guī)下最多能返回2000字節(jié)，但utl_file.put_line被限制在1000字節(jié)以內(nèi)，而dbms_output.put_line限制在512字節(jié)內(nèi)。假如使用前面的代碼并且不答應(yīng)這種可能性，那么在異常處理器中將拋出一個(gè)未處理的異常。
GOTO語(yǔ)句不能用于將控制從執(zhí)行部分傳遞到異常部分或反之。
已命名異常
在PL/SQL塊的異常部分只有已命名的異常才能被WHEN子串處理，ORACLE包含了一系列已命名的異常，這些異常都聲明在STANDARD包中，這些內(nèi)建異常在這里就不一一講述，有愛好的讀者可以查閱有關(guān)資料。
常用異常處理方法
除了標(biāo)準(zhǔn)異常外，用戶可以聲明自己的已命名異常。比如商業(yè)規(guī)則錯(cuò)誤，或者將自定義異常與一個(gè)數(shù)據(jù)庫(kù)號(hào)相聯(lián)系，甚至可以將數(shù)據(jù)庫(kù)錯(cuò)誤號(hào)賦予自定義異常。PL/SQL的這個(gè)性能極大的提高了對(duì)異常的治理和處理的能力。
聲明自己的異常
假如你希望聲明自己的異常，那么你可以在異常處理器中包括WHEN子句，聲明的異常的作用范圍與聲明的變量相同。聲明在外層塊的異常能被該塊和它的子塊訪問，但聲明在子塊的異常不能被父塊處理。
例：
BEGIN
DECLARE
Insufficient_credite EXCEPTION;
BEGIN
RASISE Insufficient_credite;
EXCEPTION
WHEN Insufficient_credite THEN
--可以在此處理異常
extend_credite(cust_id);
END -嵌套塊結(jié)束
EXCEPTION
WHEN Insufficient_credite THEN
--超出范圍，不能在這里處理異常
END;
假如聲明的異常與內(nèi)建的異常同名，那么當(dāng)引用異常將解決你的異常而不是內(nèi)建的異常。
給數(shù)據(jù)庫(kù)錯(cuò)誤命名
假如希望處理一個(gè)異常，那么異常必須有一個(gè)名字，數(shù)據(jù)庫(kù)錯(cuò)誤有數(shù)千個(gè)，但是只有不到25個(gè)是內(nèi)建的已命名異常，但需要處理這些未命名的異常時(shí)，你可以將一個(gè)名字和一個(gè)錯(cuò)誤號(hào)聯(lián)系在一起，達(dá)到這個(gè)目的的語(yǔ)句是：PRAGMA EXCEPTION_INIT語(yǔ)句
語(yǔ)法如下：
PRAGMA EXCEPTION_INIT(exception_name，error_number);
執(zhí)行這個(gè)語(yǔ)句之前，必須首先聲明異常名。
