PL/SQL異常處理初步

PL/SQL處理異常不同於其他程序語言的錯誤管理方法，PL/SQL的異常處理機制與ADA很相似，有一個處理錯誤的全包含方法。當發生錯誤時，程序無條件轉到異常處理部分，這就要求代碼要非常干淨並把錯誤處理部分和程序的其它部分分開。Oracle允許聲明其他異常條件類型以擴展錯誤/異常處理。這種擴展使PL/SQL的異常處理非常靈活。

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

拋出異常

由三種方式拋出異常

. 通過PL/SQL運行時引擎

. 使用RAISE語句

. 調用RAISE_APPLICATION_ERROR存儲過程

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

RAISE exception_name;

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

RAISE TIMEOUT_ON_RESOUCE;

下面看一個訂單輸入系統，當庫存小於訂單時拋出一個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是一個觸發器。

處理異常

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

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子串中為每個異常設計異常處理代碼，WHEN OTHERS子串必須放置在最後面作為缺省處理器處理沒有顯式處理的異常。當異常發生時，控制轉到異常部分，Oracle查找當前異常相應的WHEN..THEN語句，捕捉異常，THEN之後的代碼被執行，如果錯誤陷阱代碼只是退出相應的嵌套塊，那麼程序將繼續執行內部塊END後面的語句。如果沒有找到相應的異常陷阱，那麼將執行WHEN OTHERS。在異常部分WHEN 子串沒有數量限制。

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;

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

BEGIN
DECLARE
bad_credit;
BEGIN
RAISE bad_credit;
--發生異常，控制轉向；
EXCEPTION
WHEN bad_credit THEN
dbms_output.put_line('bad_credit');
END;
--bad_credit異常處理後，控制轉到這裡
EXCEPTION
WHEN OTHERS THEN
--控制不會從bad_credit異常轉到這裡
--因為bad_credit已被處理
END;

當異常發生時，在塊的內部沒有該異常處理器時，控制將轉到或傳播到上一層塊的異常處理部分。

BEGIN
DECLARE ---內部塊開始
bad_credit;
BEGIN
RAISE bad_credit;
--發生異常，控制轉向；
EXCEPTION
WHEN ZERO_DIVIDE THEN --不能處理bad_credite異常
dbms_output.put_line('divide by zero error');
END --結束內部塊
--控制不能到達這裡，因為異常沒有解決；
--異常部分
EXCEPTION
WHEN OTHERS THEN
--由於bad_credit沒有解決，控制將轉到這裡
END;

異常傳播

沒有處理的異常將沿檢測異常調用程序傳播到外面，當異常被處理並解決或到達程序最外層傳播停止。

在聲明部分拋出的異常將控制轉到上一層的異常部分。

BEGIN
executable statements
BEGIN
today DATE:='SYADATE'; --ERRROR
BEGIN --內部塊開始
dbms_output.put_line('this line will not execute');
EXCEPTION
WHEN OTHERS THEN
--異常不會在這裡處理
END;--內部塊結束
EXCEPTION
WHEN OTHERS THEN
處理異常
END