PL/SQL異常處理初步(轉)

PL/SQL異常處理初步(轉)[@more@]

　　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異常。

　　DECLAREinventory_too_low EXCEPTION;---其他宣告語句BEGIN..IF order_rec.qty>inventory_rec.qty THENRAISE inventory_too_low;END IF..EXCEPTIONWHEN inventory_too_low THENorder_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 exceptionEND;

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

　　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;

　　異常傳播

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

　　在宣告部分丟擲的異常將控制轉到上一層的異常部分。

　　BEGINexecutable statementsBEGINtoday DATE:='SYADATE'; --ERRRORBEGIN --內部塊開始dbms_output.put_line('this line will not execute');EXCEPTIONWHEN OTHERS THEN--異常不會在這裡處理END;--內部塊結束EXCEPTIONWHEN OTHERS THEN處理異常END

　　執行部分丟擲的異常將首先傳遞到同一塊的異常部分，如果在同一塊的異常部分沒有處理這個異常的處理器，那麼異常將會傳播到上一層的異常部分中，一直到最外層。

　　在異常部分丟擲的異常將控制轉到上一層的異常部分。

　　處理異常將停止異常的傳播和解決。有時使用者希望在錯誤發生時，程式仍然能執行一些動作，要達到這個目的，可以把希望執行的動作放在異常處理器中，然後執行不帶引數的RAISE語句，RAISE語句將重新丟擲出現的異常，允許他繼續傳播。

　　DECLAREorder_too_old EXCEPTION;BEGINRAISE order_too_old;EXCEPTIONWHEN order_too_old THENDECLAREfile_handle UTL_FILE.FILE_TYPE;BEGIN--open filefile_handle:=UTL_FILE.FOPEN(location=>'/ora01/app/oracle/admin/test/utlsir',filename=>'error.log'.open_mode=>'W');--write error stackUTL_FILE.PUT_LINE(filehandle,DBMS_UTILITY.FORMAT_ERROR_STACK);--write the call stackUTL_FILE.PUT_LINE(filehandle,DBMS_UTILITY.FORMAT_CALL_STACK);--close error logUTL_FILE.FCLOSE(file_handle);RAISE; --re-raise the exceptionENDEND

　　如果從FORMAT_XXX_STACK輸出一個很大的值，那麼使用DBMS_OUTPUT或UTL_FILE顯示錯誤或呼叫堆的異常部分自身也會丟擲異常，這兩個堆常規下最多能返回2000位元組，但utl_file.put_line被限制在1000位元組以內，而dbms_output.put_line限制在512位元組內。如果使用前面的程式碼並且不允許這種可能性，那麼在異常處理器中將丟擲一個未處理的異常。

　　GOTO語句不能用於將控制從執行部分傳遞到異常部分或反之。

　　已命名異常

　　在PL/SQL塊的異常部分只有已命名的異常才能被WHEN子串處理，ORACLE包含了一系列已命名的異常，這些異常都宣告在STANDARD包中，這些內建異常在這裡就不一一講述，有興趣的讀者可以查閱有關資料。

　　常用異常處理方法

　　除了標準異常外，使用者可以宣告自己的已命名異常。比如商業規則錯誤，或者將自定義異常與一個資料庫號相聯絡，甚至可以將資料庫錯誤號賦予自定義異常。PL/SQL的這個效能極大的提高了對異常的管理和處理的能力。

　　宣告自己的異常　

　　如果你希望宣告自己的異常，那麼你可以在異常處理器中包括WHEN子句，宣告的異常的作用範圍與宣告的變數相同。宣告在外層塊的異常能被該塊和它的子塊訪問，但宣告在子塊的異常不能被父塊處理。

　　例：

　　　BEGINDECLAREInsufficient_credite EXCEPTION;BEGINRASISE Insufficient_credite;EXCEPTIONWHEN Insufficient_credite THEN--可以在此處理異常　　　extend_credite(cust_id);END　-巢狀塊結束EXCEPTIONWHEN Insufficient_credite THEN--超出範圍，不能在這裡處理異常　END;

　　如果宣告的異常與內建的異常同名，那麼當引用異常將解決你的異常而不是內建的異常。

　　給資料庫錯誤命名

　　如果希望處理一個異常，那麼異常必須有一個名字，資料庫錯誤有數千個，但是隻有不到25個是內建的已命名異常，但需要處理這些未命名的異常時，你可以將一個名字和一個錯誤號聯絡在一起，達到這個目的的語句是：PRAGMA EXCEPTION_INIT語句

　　語法如下：

　　PRAGMA EXCEPTION_INIT(exception_name，error_number);

　　執行這個語句之前，必須首先宣告異常名。

　　DECLAREinvald_table_name EXCEPTION;PRAGMA EXCEPTION_INIT(invald_table_name,-942);BEGINEXCEPTIONWHEN invald_table_name THENUTL_FILE.PUT_LINE(file_handle,'user' || UID || 'hit a bad table');END;

　　另外一種處理資料庫錯誤的方法是使用內建函式SQLCODE和SQLERRM，這兩個函式在包一級宣告，SQLCODE將返回現行資料庫錯誤號，這些錯誤號中除了NO_DATA_FOUND是+100外其他都是負數。SQLERRM返回文字描述的錯誤資訊。為了獲得使用者自定義異常返回的SQLERRM和SQLCODE，你需要使用RAISE_APPLICATION_ERROR函式給自定義異常標註錯誤號。

　　給自定義錯誤標註號碼

　　RAISE_APPLICATION_ERROR內建函式用於丟擲一個異常並給異常賦予一個錯誤號以及錯誤資訊。自定義異常的預設錯誤號是+1,預設資訊是User_Defined_Exception。來自未處理的異常的一般資訊對於識別導致錯誤的原因沒有幫助，RAISE_APPLICATION_ERROR函式能夠在pl/sql程式塊的執行部分和異常部分呼叫，顯式丟擲帶特殊錯誤號的命名異常。

　　RAISE_APPLICATION_ERROR(error_name,error_message[,{TRUE|| FALSE}]);

　　錯誤號的範圍是-20,999到-20,999。錯誤資訊是文字字串，最多為2048位元組。TRUE和FALSE表示是新增(TRUE)進錯誤堆(ERROR STACK)還是覆蓋(overwrite)錯誤堆(FALSE)。預設情況下是FALSE。

　　IF product_not_found THEN　　RAISE_APPLICATION_ERROR(-20123,'Invald product code' TRUE);END IF;