1、異常的優點
如果沒有異常，在程序中，應當檢查每個命令的成功還是失敗，如
BEGIN
SELECT …
– check for ’no data found’ error
SELECT …
– check for ’no data found’ error
SELECT …
– check for ’no data found’ error
這種實現的方法缺點在於錯誤處理沒有與正常處理分開，可讀性差，使用異常，可以方便處理錯誤，而且異常處理程序與正常的事務邏輯分開，提高了可讀性，如
BEGIN
SELECT …
SELECT …
SELECT …
…
EXCEPTION
WHEN NO_DATA_FOUND THEN – catches all ’no data found’ errors
2、異常的分類
有兩種類型的異常，一種爲內部異常，一種爲用戶自定義異常，內部異常是執行期間返回到PL/SQL塊的ORACLE錯誤或由PL/SQL代碼的某操作引起的錯誤，如除數爲零或內存溢出的情況。用戶自定義異常由開發者顯示定義，在PL/SQL塊中傳遞信息以控制對於應用的錯誤處理。
每當PL/SQL違背了ORACLE原則或超越了系統依賴的原則就會隱式的產生內部異常。因爲每個ORACLE錯誤都有一個號碼並且在PL/SQL中異常通過名字處理，ORACLE提供了預定義的內部異常。如SELECT INTO 語句不返回行時產生的ORACLE異常NO_DATA_FOUND。對於預定義異常，現將最常用的異常列舉如下：
exception oracle error sqlcode value condition
no_data_found ora-01403 +100 select into 語句沒有符合條件的記錄返回
too_many_rows ora-01422 -1422 select into 語句符合條件的記錄有多條返回
dup_val_on_index ora-00001 -1 對於數據庫表中的某一列，該列已經被限制爲唯一索引，程序試圖存儲兩個重複的值
value_error ora-06502 -6502 在轉換字符類型，截取或長度受限時，會發生該異常，如一個字符分配給一個變量，而該變量聲明的長度比該字符短，就會引發該異常
storage_error ora-06500 -6500 內存溢出
zero_divide ora-01476 -1476 除數爲零
case_not_found ora-06592 -6530 對於選擇case語句，沒有與之相匹配的條件，同時，也沒有else語句捕獲其他的條件
cursor_already_open ora-06511 -6511 程序試圖打開一個已經打開的遊標
timeout_on_resource ora-00051 -51 系統在等待某一資源，時間超時
如果要處理未命名的內部異常，必須使用OTHERS異常處理器或PRAGMA EXCEPTION_INIT 。PRAGMA由編譯器控制，或者是對於編譯器的註釋。PRAGMA在編譯時處理，而不是在運行時處理。EXCEPTION_INIT告訴編譯器將異常名與ORACLE錯誤碼結合起來，這樣可以通過名字引用任意的內部異常，並且可以通過名字爲異常編寫一適當的異常處理器。
在子程序中使用EXCEPTION_INIT的語法如下：
PRAGMA EXCEPTION_INIT(exception_name, -Oracle_error_number);
在該語法中，異常名是聲明的異常，下例是其用法：
DECLARE
deadlock_detected EXCEPTION;
PRAGMA EXCEPTION_INIT(deadlock_detected, -60);
BEGIN
… – Some operation that causes an ORA-00060 error
EXCEPTION
WHEN deadlock_detected THEN
– handle the error
END;
對於用戶自定義異常，只能在PL/SQL塊中的聲明部分聲明異常，異常的名字由EXCEPTION關鍵字引入：
reserved_loaned Exception
產生異常後，控制傳給了子程序的異常部分，將異常轉向各自異常控制塊，必須在代碼中使用如下的結構處理錯誤：
Exception
When exception1 then
Sequence of statements;
When exception2 then
Sequence of statements;
When others then
3、異常的拋出
由三種方式拋出異常
1． 通過PL/SQL運行時引擎
使用RAISE語句
調用RAISE_APPLICATION_ERROR存儲過程
當數據庫或PL/SQL在運行時發生錯誤時，一個異常被PL/SQL運行時引擎自動拋出。異常也可以通過RAISE語句拋出
RAISE exception_name;
顯式拋出異常是程序員處理聲明的異常的習慣用法，但RAISE不限於聲明瞭的異常，它可以拋出任何任何異常。例如，你希望用TIMEOUT_ON_RESOURCE錯誤檢測新的運行時異常處理器，你只需簡單的在程序中使用下面的語句：
RAISE TIMEOUT_ON_RESOUCE;
比如下面一個訂單輸入的例子，若當訂單小於庫存數量，則拋出異常，並且捕獲該異常，處理異常
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’;
END;
RAISE_APPLICATION_ERROR內建函數用於拋出一個異常並給異常賦予一個錯誤號以及錯誤信息。自定義異常的缺省錯誤號是+1,缺省信息是User_Defined_Exception。RAISE_APPLICATION_ERROR函數能夠在pl/sql程序塊的執行部分和異常部分調用，顯式拋出帶特殊錯誤號的命名異常。 Raise_application_error(error_number,message[,true,false]))
錯誤號的範圍是-20,000到-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;
4、異常的處理
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 exception;
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 exception;
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;
5、異常的傳播
沒有處理的異常將沿檢測異常調用程序傳播到外面，當異常被處理並解決或到達程序最外層傳播停止。在聲明部分拋出的異常將控制轉到上一層的異常部分。
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
Oracle：pl/sql異常處理 （3）
處理 oracle 系統自動生成系統異常外，可以使用 raise 來手動生成錯誤。
l Raise exception;
l Raise package.exception;
l Raise;
以上是 raise 的三種使用方法。第一種用於生成當前程序中定義的異常或在 standard 中的系統異常。
Declare
Invalid_id exception;
Id_values varchar(2);
Begin
Id_value:=id_for(‘smith’);
If substr(id_value,1,1)!=’x’
Then
Raise invalid_id;
End if;
Exception
When invalid_id
Then
Dbms_output.put_line(‘this is an invalid id!’);
End;
這是一個生成自定義異常的例子，當然也可以生成系統異常：
declare
employee_id_in number;
Begin
Select employee_id into employee_id_in from employ_list where employee_name=&n;
If employee_id_in=0
Then
Raise zero_devided;
End if;
Exception
When zero_devided
Then
Dbms_output.put_line(‘wrong!’);
End;
有一些異常是定義在非標準包中的，如 UTL_FILE ， DBMS_SQL 以及程序員創建的包中異常。可以使用 raise 的第二種用法來生成異常。
If day_overdue(isbn_in, browser_in) > 365
Then
Raise overdue_pkg.book_is_lost
End if;
在最後一種 raise 的形式中，不帶任何參數。這種情況只出現在希望將當前的異常傳到外部程序時。
Exception
When no_data_found
Then
Raise;
End;
Pl.sql 使用 raise_application_error 過程來生成一個有具體描述的異常。當使用這個過程時，當前程序被中止，輸入輸出參數被置爲原先的值，但任何 DML 對數據庫所做的改動將被保留，可以在之後用 rollback 命令回滾。下面是該過程的原型：
Procedure raise_application_error(
Num binary_integer;
Msg varchar2;
Keeperrorstack Boolean default false
)
其中 num 是在 -20999 到 -20000 之間的任何數字（但事實上， DBMS_OUPUT 和 DBMS_DESCRIBLE 包使用了 -20005 到 -20000 的數字）； msg 是小於 2K 個字符的描述語，任何大於 2K 的字符都將被自動丟棄； keeperrorstack 默認爲 false ，是指清空異常棧，再將當前異常入棧，如果指定 true 的話就直接將當前異常壓入棧中。
CREATE OR REPLACE PROCEDURE raise_by_language (code_in IN PLS_INTEGER)
IS
l_message error_table.error_string%TYPE;
BEGIN
SELECT error_string
INTO l_message
FROM error_table, v$nls_parameters v
WHERE error_number = code_in
AND string_language = v.VALUE
AND v.parameter = ‘NLS_LANGUAGE’;
RAISE_APPLICATION_ERROR (code_in, l_message);
END;