5. 異常錯誤處理

即使是寫得最好的PL/SQL程序也會遇到錯誤或未預料到的事件。一個優秀的程序都應該能夠正確處理各種出錯情況，並儘可能從錯誤中恢復。任何ORACLE錯誤（報告爲ORA-xxxxx形式的Oracle錯誤號）、PL/SQL運行錯誤或用戶定義條件（不一寫是錯誤），都可以。當然了，PL/SQL編譯錯誤不能通過PL/SQL異常處理來處理，因爲這些錯誤發生在PL/SQL程序執行之前。

ORACLE 提供異常情況(EXCEPTION)和異常處理(EXCEPTION HANDLER)來實現錯誤處理。

5.1 異常處理概念

異常情況處理(EXCEPTION)是用來處理正常執行過程中未預料的事件,程序塊的異常處理預定義的錯誤和自定義錯誤,由於PL/SQL程序塊一旦產生異常而沒有指出如何處理時,程序就會自動終止整個程序運行.

有三種類型的異常錯誤：

1．預定義 ( Predefined )錯誤

ORACLE預定義的異常情況大約有24個。對這種異常情況的處理，無需在程序中定義，由ORACLE自動將其引發。

2．非預定義 ( Predefined )錯誤

即其他標準的ORACLE錯誤。對這種異常情況的處理，需要用戶在程序中定義，然後由ORACLE自動將其引發。

3．用戶定義(User_define) 錯誤

程序執行過程中，出現編程人員認爲的非正常情況。對這種異常情況的處理，需要用戶在程序中定義，然後顯式地在程序中將其引發。

異常處理部分一般放在 PL/SQL 程序體的後半部,結構爲:

  EXCEPTION 
  WHEN first_exception THEN <code to handle first exception > 
  WHEN second_exception THEN <code to handle second exception > 
  WHEN OTHERS THEN <code to handle others exception > 
  END;

異常處理可以按任意次序排列,但 OTHERS 必須放在最後.

5.1.1 預定義的異常處理

預定義說明的部分 ORACLE 異常錯誤

對這種異常情況的處理，只需在PL/SQL塊的異常處理部分，直接引用相應的異常情況名，並對其完成相應的異常錯誤處理即可。

例1：更新指定員工工資，如工資小於1500，則加100；

  DECLARE 
     v_empno employees.employee_id%TYPE := &empno; 
     v_sal employees.salary%TYPE; 
  BEGIN 
  SELECT salary INTO v_sal FROM employees WHERE employee_id = v_empno; 
  IF v_sal<=1500 THEN 
  UPDATE employees SET salary = salary + 100 WHERE employee_id=v_empno; 
        DBMS_OUTPUT.PUT_LINE('編碼爲'||v_empno||'員工工資已更新!'); 
  ELSE 
        DBMS_OUTPUT.PUT_LINE('編碼爲'||v_empno||'員工工資已經超過規定值!'); 
  END IF; 
  EXCEPTION 
  WHEN NO_DATA_FOUND THEN 
        DBMS_OUTPUT.PUT_LINE('數據庫中沒有編碼爲'||v_empno||'的員工'); 
  WHEN TOO_MANY_ROWS THEN 
        DBMS_OUTPUT.PUT_LINE('程序運行錯誤!請使用遊標'); 
  WHEN OTHERS THEN 
        DBMS_OUTPUT.PUT_LINE(SQLCODE||'---'||SQLERRM); 
  END;

5.1.2 非預定義的異常處理

對於這類異常情況的處理，首先必須對非定義的ORACLE錯誤進行定義。步驟如下：

1. 在PL/SQL 塊的定義部分定義異常情況：

<異常情況> EXCEPTION;

2. 將其定義好的異常情況，與標準的ORACLE錯誤聯繫起來，使用EXCEPTION_INIT語句：

PRAGMA EXCEPTION_INIT(<異常情況>, <錯誤代碼>);

3. 在PL/SQL 塊的異常情況處理部分對異常情況做出相應的處理。

例2：刪除指定部門的記錄信息，以確保該部門沒有員工。

  INSERT INTO departments VALUES(50, 'FINANCE', 'CHICAGO'); 
  DECLARE 
     v_deptno departments.department_id%TYPE := &deptno; 
     deptno_remaining EXCEPTION; 
     PRAGMA EXCEPTION_INIT(deptno_remaining, -2292); 
  /* -2292 是違反一致性約束的錯誤代碼 */ 
  BEGIN 
  DELETE FROM departments WHERE department_id = v_deptno; 
  EXCEPTION 
  WHEN deptno_remaining THEN 
        DBMS_OUTPUT.PUT_LINE('違反數據完整性約束!'); 
  WHEN OTHERS THEN 
        DBMS_OUTPUT.PUT_LINE(SQLCODE||'---'||SQLERRM); 
  END;

5.1.3 用戶自定義的異常處理

當與一個異常錯誤相關的錯誤出現時，就會隱含觸發該異常錯誤。用戶定義的異常錯誤是通過顯式使用 RAISE 語句來觸發。當引發一個異常錯誤時，控制就轉向到 EXCEPTION塊異常錯誤部分，執行錯誤處理代碼。

對於這類異常情況的處理，步驟如下：

1．在PL/SQL 塊的定義部分定義異常情況：

<異常情況> EXCEPTION;

2． RAISE <異常情況>；

3．在PL/SQL 塊的異常情況處理部分對異常情況做出相應的處理。

例3：更新指定員工工資，增加100

   DECLARE
      v_empno employees.employee_id%TYPE :=&empno; 
      no_result  EXCEPTION; 
   BEGIN 
   UPDATE employees SET salary = salary+100 WHERE employee_id = v_empno; 
   IF SQL%NOTFOUND THEN 
         RAISE no_result; 
   END IF; 
   EXCEPTION 
   WHEN no_result THEN 
         DBMS_OUTPUT.PUT_LINE('你的數據更新語句失敗了!'); 
   WHEN OTHERS THEN 
         DBMS_OUTPUT.PUT_LINE(SQLCODE||'---'||SQLERRM); 
   END;

5.1.4 用戶定義的異常處理

調用DBMS_STANDARD(ORACLE提供的包)包所定義的RAISE_APPLICATION_ERROR過程，可以重新定義異常錯誤消息，它爲應用程序提供了一種與ORACLE交互的方法。

RAISE_APPLICATION_ERROR 的語法如下：

RAISE_APPLICATION_ERROR(error_number,error_message,[keep_errors] );

這裏的error_number 是從 –20,000 到 –20,999 之間的參數，

error_message 是相應的提示信息(< 2048 字節)，

keep_errors 爲可選，如果keep_errors =TRUE ,則新錯誤將被添加到已經引發的錯誤列表中。如果keep_errors=FALSE(缺省),則新錯誤將替換當前的錯誤列表。

例4：創建一個函數get_salary, 該函數檢索指定部門的工資總和，其中定義了-20991和-20992號錯誤，分別處理參數爲空和非法部門代碼兩種錯誤：

   CREATE TABLE errlog(
     Errcode NUMBER, 
     Errtext CHAR(40)); 
   CREATE OR REPLACE FUNCTION get_salary(p_deptno NUMBER) 
   RETURN NUMBER 
   AS 
     v_sal NUMBER; 
   BEGIN 
   IF p_deptno IS NULL THEN 
       RAISE_APPLICATION_ERROR(-20991, ’部門代碼爲空’); 
     ELSIF p_deptno<0 THEN 
       RAISE_APPLICATION_ERROR(-20992, ’無效的部門代碼’); 
   ELSE 
   SELECT SUM(employees.salary) INTO v_sal FROM employees  
   WHERE employees.department_id=p_deptno; 
   RETURN v_sal; 
   END IF; 
   END; 
   DECLARE 
     V_salary NUMBER(7,2); 
     V_sqlcode NUMBER; 
     V_sqlerr VARCHAR2(512); 
     Null_deptno EXCEPTION; 
     Invalid_deptno EXCEPTION; 
     PRAGMA EXCEPTION_INIT(null_deptno,-20991); 
     PRAGMA EXCEPTION_INIT(invalid_deptno, -20992); 
   BEGIN 
     V_salary :=get_salary(10); 
     DBMS_OUTPUT.PUT_LINE('10號部門工資：' || TO_CHAR(V_salary)); 
   BEGIN 
       V_salary :=get_salary(-10); 
     EXCEPTION 
   WHEN invalid_deptno THEN 
         V_sqlcode :=SQLCODE; 
         V_sqlerr  :=SQLERRM; 
   INSERT INTO errlog(errcode, errtext)  
   VALUES(v_sqlcode, v_sqlerr); 
   COMMIT; 
   END inner1; 
     V_salary :=get_salary(20); 
     DBMS_OUTPUT.PUT_LINE('部門號爲20的工資爲：'||TO_CHAR(V_salary)); 
   BEGIN 
        V_salary :=get_salary(NULL); 
   END inner2; 
     V_salary := get_salary(30); 
     DBMS_OUTPUT.PUT_LINE('部門號爲30的工資爲：'||TO_CHAR(V_salary)); 
     EXCEPTION 
   WHEN null_deptno THEN 
         V_sqlcode :=SQLCODE; 
         V_sqlerr  :=SQLERRM; 
   INSERT INTO errlog(errcode, errtext) VALUES(v_sqlcode, v_sqlerr); 
   COMMIT; 
   WHEN OTHERS THEN 
            DBMS_OUTPUT.PUT_LINE(SQLCODE||'---'||SQLERRM); 
   END outer;

例5：定義觸發器，使用RAISE_APPLICATION_ERROR阻止沒有員工姓名的新員式記錄插入：

  CREATE OR REPLACE TRIGGER tr_insert_emp 
  BEFORE INSERT ON employees 
  FOR EACH ROW 
  BEGIN 
  IF :new.first_name IS NULL OR :new.last_name is null THEN 
      RAISE_APPLICATION_ERROR(-20000,'Employee must have a name.'); 
  END IF; 
  END;

5.2 異常錯誤傳播

由於異常錯誤可以在聲明部分和執行部分以及異常錯誤部分出現，因而在不同部分引發的異常錯誤也不一樣。

5.2.1 在執行部分引發異常錯誤

當一個異常錯誤在執行部分引發時，有下列情況：

l 如果當前塊對該異常錯誤設置了處理，則執行它併成功完成該塊的執行，然後控制轉給包含塊。

l 如果沒有對當前塊異常錯誤設置定義處理器，則通過在包含塊中引發它來傳播異常錯誤。然後對該包含塊執行步驟1)。

5.2.2 在聲明部分引發異常錯誤

如果在聲明部分引起異常情況，即在聲明部分出現錯誤，那麼該錯誤就能影響到其它的塊。比如在有如下的PL/SQL程序：

  DECLARE
  name varchar2(12):='EricHu';
  其它語句
  BEGIN
  其它語句
  EXCEPTION
  WHEN OTHERS THEN
  其它語句
  END;

例子中，由於Abc number(3)=’abc’; 出錯，儘管在EXCEPTION中說明了WHEN OTHERS THEN語句，但WHEN OTHERS THEN也不會被執行。但是如果在該錯誤語句塊的外部有一個異常錯誤，則該錯誤能被抓住，如：

  BEGIN
  DECLARE
  name varchar2(12):='EricHu';
  其它語句
  BEGIN
  其它語句
  EXCEPTION
  WHEN OTHERS THEN
  其它語句
  END;
  EXCEPTION
  WHEN OTHERS THEN
  其它語句
  END;

5.3 異常錯誤處理編程

在一般的應用處理中，建議程序人員要用異常處理，因爲如果程序中不聲明任何異常處理，則在程序運行出錯時，程序就被終止，並且也不提示任何信息。下面是使用系統提供的異常來編程的例子。

5.4 在 PL/SQL 中使用 SQLCODE, SQLERRM異常處理函數

由於ORACLE 的錯信息最大長度是512字節，爲了得到完整的錯誤提示信息，我們可用 SQLERRM和 SUBSTR 函數一起得到錯誤提示信息，方便進行錯誤，特別是如果WHEN OTHERS異常處理器時更爲方便。

SQLCODE 返回遇到的Oracle錯誤號,

SQLERRM 返回遇到的Oracle錯誤信息.

如:  SQLCODE=-100   è SQLERRM=’no_data_found ‘

    SQLCODE=0      è SQLERRM=’normal, successfual completion’

例6. 將ORACLE錯誤代碼及其信息存入錯誤代碼表

  CREATE TABLE errors (errnum NUMBER(4), errmsg VARCHAR2(100));
  DECLARE
  err_msg VARCHAR2(100);
  BEGIN
  /* 得到所有 ORACLE 錯誤信息 */
  FOR err_num IN -100 .. 0 LOOP
  err_msg := SQLERRM(err_num);
  INSERT INTO errors VALUES(err_num, err_msg);
  END LOOP;
  END;
  DROP TABLE errors;

例7. 查詢ORACLE錯誤代碼；

  BEGIN
  INSERT INTO employees(employee_id, first_name,last_name,hire_date,department_id)
  VALUES(2222, 'Eric','Hu', SYSDATE, 20);
  DBMS_OUTPUT.PUT_LINE('插入數據記錄成功!');
  INSERT INTO employees(employee_id, first_name,last_name,hire_date,department_id)
  VALUES(2222, '胡','勇', SYSDATE, 20);
  DBMS_OUTPUT.PUT_LINE('插入數據記錄成功!');
  EXCEPTION
  WHEN OTHERS THEN
  DBMS_OUTPUT.PUT_LINE(SQLCODE||'---'||SQLERRM);
  END;

例8. 利用ORACLE錯誤代碼，編寫異常錯誤處理代碼；

  DECLARE
  empno_remaining EXCEPTION;
  PRAGMA EXCEPTION_INIT(empno_remaining, -1);
  /* -1 是違反唯一約束條件的錯誤代碼 */
  BEGIN
  INSERT INTO employees(employee_id, first_name,last_name,hire_date,department_id)
  VALUES(3333, 'Eric','Hu', SYSDATE, 20);
  DBMS_OUTPUT.PUT_LINE('插入數據記錄成功!');
  INSERT INTO employees(employee_id, first_name,last_name,hire_date,department_id)
  VALUES(3333, '胡','勇',SYSDATE, 20);
  DBMS_OUTPUT.PUT_LINE('插入數據記錄成功!');
  EXCEPTION
  WHEN empno_remaining THEN
  DBMS_OUTPUT.PUT_LINE('違反數據完整性約束!');
  WHEN OTHERS THEN
  DBMS_OUTPUT.PUT_LINE(SQLCODE||'---'||SQLERRM);
  END;

5. 異常錯誤處理