Oracle PL/SQL語言初級教程之異常處理

2024-08-29 13:50:04

字體：大中小

供稿：網(wǎng)友

　　PL/SQL處理異常不同于其他程序語言的錯誤治理方法，PL/SQL的異常處理機制與ADA很相似，有一個處理錯誤的全包含方法。當發(fā)生錯誤時，程序無條件轉(zhuǎn)到異常處理部分，這就要求代碼要非常干凈并把錯誤處理部分和程序的其它部分分開。Oracle答應(yīng)聲明其他異常條件類型以擴展錯誤/異常處理。這種擴展使PL/SQL的異常處理非常靈活。

　　當一個運行時錯誤發(fā)生時，稱為一個異常被拋出。PL/SQL程序編譯時的錯誤不是能被處理得異常，只有在運行時的異常能被處理。在PL/SQL程序設(shè)計中異常的拋出和處理是非常重要的內(nèi)容。

　　拋出異常

　　由三種方式拋出異常

　　　. 通過PL/SQL運行時引擎

　　　. 使用RAISE語句

　　　. 調(diào)用RAISE_application_ERROR存儲過程

　　當數(shù)據(jù)庫或PL/SQL在運行時發(fā)生錯誤時，一個異常被PL/SQL運行時引擎自動拋出。異常也可以通過RAISE語句拋出

　　RAISE exception_name;

　　顯式拋出異常是程序員處理聲明的異常的習慣用法，但RAISE不限于聲明了的異常，它可以拋出任何任何異常。例如，你希望用TIMEOUT_ON_RESOURCE錯誤檢測新的運行時異常處理器，你只需簡單的在程序中使用下面的語句：

　　RAISE TIMEOUT_ON_RESOUCE;

　　下面看一個訂單輸入系統(tǒng)，當庫存小于訂單時拋出一個inventory_too_low異常。

DECLARE
inventory_too_low EXCEPTION;
---其他聲明語句
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是一個觸發(fā)器。
　
　　處理異常

　　PL/SQL程序塊的異常部分包含了程序處理錯誤的代碼，當異常被拋出時，一個異常陷阱就自動發(fā)生，程序控制離開執(zhí)行部分轉(zhuǎn)入異常部分,一旦程序進入異常部分就不能再回到同一塊的執(zhí)行部分。下面是異常部分的一般語法：

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.]

　　用戶必須在獨立的WHEN子串中為每個異常設(shè)計異常處理代碼，WHEN OTHERS子串必須放置在最后面作為缺省處理器處理沒有顯式處理的異常。當異常發(fā)生時，控制轉(zhuǎn)到異常部分，ORACLE查找當前異常相應(yīng)的WHEN..THEN語句，捕捉異常，THEN之后的代碼被執(zhí)行，假如錯誤陷阱代碼只是退出相應(yīng)的嵌套塊，那么程序?qū)⒗^續(xù)執(zhí)行內(nèi)部塊END后面的語句。假如沒有找到相應(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;

　　當異常拋出后，控制無條件轉(zhuǎn)到異常部分，這就意味著控制不能回到異常發(fā)生的位置，當異常被處理和解決后，控制返回到上一層執(zhí)行部分的下一條語句。

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
　　　--控制不會從bad_credit異常轉(zhuǎn)到這里
　　　--因為bad_credit已被處理
END;

　　當異常發(fā)生時，在塊的內(nèi)部沒有該異常處理器時，控制將轉(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)部塊

　　　--控制不能到達這里，因為異常沒有解決；
　　　--異常部分

　　EXCEPTION
　　WHEN OTHERS THEN
　　　--由于bad_credit沒有解決，控制將轉(zhuǎn)到這里
END;

　　異常傳播

　　沒有處理的異常將沿檢測異常調(diào)用程序傳播到外面，當異常被處理并解決或到達程序最外層傳播停止。
在聲明部分拋出的異常將控制轉(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
--異常不會在這里處理
END;--內(nèi)部塊結(jié)束

EXCEPTION
WHEN OTHERS THEN
處理異常
END

　　執(zhí)行部分拋出的異常將首先傳遞到同一塊的異常部分，假如在同一塊的異常部分沒有處理這個異常的處理器，那么異常將會傳播到上一層的異常部分中，一直到最外層。

　　在異常部分拋出的異常將控制轉(zhuǎn)到上一層的異常部分。

　　處理異常將停止異常的傳播和解決。有時用戶希望在錯誤發(fā)生時，程序仍然能執(zhí)行一些動作，要達到這個目的，可以把希望執(zhí)行的動作放在異常處理器中，然后執(zhí)行不帶參數(shù)的RAISE語句，RAISE語句將重新拋出出現(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輸出一個很大的值，那么使用DBMS_OUTPUT或UTL_FILE顯示錯誤或調(diào)用堆的異常部分自身也會拋出異常，這兩個堆常規(guī)下最多能返回2000字節(jié)，但utl_file.put_line被限制在1000字節(jié)以內(nèi)，而dbms_output.put_line限制在512字節(jié)內(nèi)。假如使用前面的代碼并且不答應(yīng)這種可能性，那么在異常處理器中將拋出一個未處理的異常。

　　GOTO語句不能用于將控制從執(zhí)行部分傳遞到異常部分或反之。

　　已命名異常

　　在PL/SQL塊的異常部分只有已命名的異常才能被WHEN子串處理，ORACLE包含了一系列已命名的異常，這些異常都聲明在STANDARD包中，這些內(nèi)建異常在這里就不一一講述，有愛好的讀者可以查閱有關(guān)資料。　　PL/SQL處理異常不同于其他程序語言的錯誤治理方法，PL/SQL的異常處理機制與ADA很相似，有一個處理錯誤的全包含方法。當發(fā)生錯誤時，程序無條件轉(zhuǎn)到異常處理部分，這就要求代碼要非常干凈并把錯誤處理部分和程序的其它部分分開。oracle答應(yīng)聲明其他異常條件類型以擴展錯誤/異常處理。這種擴展使PL/SQL的異常處理非常靈活。

　　當一個運行時錯誤發(fā)生時，稱為一個異常被拋出。PL/SQL程序編譯時的錯誤不是能被處理得異常，只有在運行時的異常能被處理。在PL/SQL程序設(shè)計中異常的拋出和處理是非常重要的內(nèi)容。

　　拋出異常

　　由三種方式拋出異常

　　　. 通過PL/SQL運行時引擎

　　　. 使用RAISE語句

　　　. 調(diào)用RAISE_APPLICATION_ERROR存儲過程

　　當數(shù)據(jù)庫或PL/SQL在運行時發(fā)生錯誤時，一個異常被PL/SQL運行時引擎自動拋出。異常也可以通過RAISE語句拋出

　　RAISE exception_name;

　　顯式拋出異常是程序員處理聲明的異常的習慣用法，但RAISE不限于聲明了的異常，它可以拋出任何任何異常。例如，你希望用TIMEOUT_ON_RESOURCE錯誤檢測新的運行時異常處理器，你只需簡單的在程序中使用下面的語句：

　　RAISE TIMEOUT_ON_RESOUCE;

　　下面看一個訂單輸入系統(tǒng)，當庫存小于訂單時拋出一個inventory_too_low異常。

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;