建站服務器

1. PL/SQL異常處理

1.1.編譯告警

1.1.1. 設置告警

1、設置參數PLSQL_WARNINGS，記錄告警

會話級別啟用所有告警類型

ALTER SESSION SET PLSQL_WARNINGS=\'ENABLE:ALL\';

會話級別關閉所有告警

ALTER SESSION SET PLSQL_WARNINGS=\'DISABLE:ALL\';

開啟 SEVERE warnings, 關閉 PERFORMANCE warnings, PLW-06002 告警為錯誤

ALTER SESSION SET PLSQL_WARNINGS=\'ENABLE:SEVERE\',
\'DISABLE:PERFORMANCE\', \'ERROR:06002\';

2、通過dbms告警包記錄告警

CALL DBMS_WARNING.set_warning_setting_string
(\'ENABLE:ALL\' ,\'SESSION\');

檢查告警設置

SELECT DBMS_WARNING.get_warning_setting_string()
FROM DUAL;

1.1.2. 測試

創建存儲過程

CREATE OR REPLACE PROCEDURE unreachable_code AS

x CONSTANT
BOOLEAN := TRUE;

BEGIN

IF x THEN

DBMS_OUTPUT.PUT_LINE(\'TRUE\');

ELSE

DBMS_OUTPUT.PUT_LINE(\'FALSE\');

END IF;

END unreachable_code;

/

開啟告警記錄

CALL DBMS_WARNING.set_warning_setting_string
(\'ENABLE:ALL\' ,\'SESSION\');

重新編譯

ALTER PROCEDURE unreachable_code COMPILE;

查看錯誤

Show errors:

1.2.異常處理概述

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

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

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

有兩大類類型的異常錯誤：

1、預定義 ( Predefined )錯誤

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

2、用戶定義(User_define) 錯誤

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

用戶定義錯誤有分為兩類。

? 內部錯誤碼定義的異常

? 用戶定義的錯誤代碼異常

1.3.預定義異常處理

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

錯誤號

異常錯誤信息名稱

說明

ORA-0001

Dup_val_on_index

違反了唯一性限制

ORA-0051

Timeout-on-resource

在等待資源時發生超時

ORA-0061

Transaction-backed-out

由于發生死鎖事務被撤消

ORA-1001

Invalid-CURSOR

試圖使用一個無效的游標

ORA-1012

Not-logged-on

沒有連接到ORACLE

ORA-1017

Login-denied

無效的用戶名/口令

ORA-1403

No_data_found

SELECT
INTO沒有找到數據

ORA-1422

Too_many_rows

SELECT
INTO 返回多行

ORA-1476

Zero-divide

試圖被零除

ORA-1722

Invalid-NUMBER

轉換一個數字失敗

ORA-6500

Storage-error

內存不夠引發的內部錯誤

ORA-6501

Program-error

內部錯誤

ORA-6502

Value-error

轉換或截斷錯誤

ORA-6504

Rowtype-mismatch

宿主游標變量與 PL/SQL變量有不兼容行類型

ORA-6511

CURSOR-already-OPEN

試圖打開一個已處于打開狀態的游標

ORA-6530

Access-INTO-null

試圖為null 對象的屬性賦值

ORA-6531

Collection-is-null

試圖將Exists 以外的集合( collection)方法應用于一個null pl/sql 表上或varray上

ORA-6532

Subscript-outside-limit

對嵌套或varray索引得引用超出聲明范圍以外

ORA-6533

Subscript-beyond-count

對嵌套或varray 索引得引用大于集合中元素的個數.

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

1.4.用戶定義的異常處理

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

1.4.1. 異常定義和異常的范圍

異常定義

DECLARE

past_due EXCEPTION;

BEGIN

NULL;

END;

/

異常的范圍

異常必須在當前塊定義，全局異常可以在子塊重處理，子塊中的異常只在只在子塊中處理，子塊中的異常定義可以傳播給上層塊，但是子塊需要重新觸發異常。

DECLARE

past_due EXCEPTION;

acct_num NUMBER;

BEGIN

DECLARE -- sub-block begins

past_due EXCEPTION; -- this declaration prevails

acct_num NUMBER;

due_date DATE := SYSDATE - 1;

todays_date DATE := SYSDATE;

BEGIN

IF due_date < todays_date THEN

RAISE past_due; -- this is not handled

END IF;

END; -- sub-block ends

EXCEPTION

-- Does not handle raised exception

WHEN past_due THEN

DBMS_OUTPUT.PUT_LINE (\'Handling PAST_DUE
exception.\');

WHEN OTHERS THEN

DBMS_OUTPUT.PUT_LINE

(\'Could not recognize PAST_DUE_EXCEPTION
in this scope.\');

END;

/

1.4.2. 內部錯誤碼定義的異常

<異常情況> EXCEPTION;

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

DECLARE

deadlock_detected EXCEPTION;

PRAGMA
EXCEPTION_INIT(deadlock_detected, -60);

BEGIN

NULL; --
Some operation that causes an ORA-00060 error

EXCEPTION

WHEN
deadlock_detected THEN

NULL; --
handle the error

END;

/

1.4.3. 用戶定義的錯誤代碼異常

<異常情況> EXCEPTION;

觸發異常

RAISE <異常情況>；

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

舉例

DECLARE

out_of_stock EXCEPTION;

number_on_hand NUMBER := 0;

BEGIN

IF
number_on_hand < 1 THEN

RAISE
out_of_stock;

END IF;

EXCEPTION

WHEN
out_of_stock THEN

DBMS_OUTPUT.PUT_LINE(\'Out-of-stock error.\');

END;

/

1.5.異常的傳播

1.6.異常的重新觸發

異常必須在當前塊定義，全局異?？梢栽谧訅K重處理，子塊中的異常只在只在子塊中處理，子塊中的異常定義可以傳播給上層塊，但是子塊需要重新觸發異常，上層塊才能處理相同的異常。

DECLARE

salary_too_high EXCEPTION;

current_salary NUMBER := 20000;

max_salary NUMBER := 10000;

erroneous_salary NUMBER;

BEGIN

BEGIN -- sub-block begins

IF
current_salary > max_salary THEN

RAISE
salary_too_high; -- raise the exception

END IF;

EXCEPTION

WHEN
salary_too_high THEN

--
first step in handling the error

DBMS_OUTPUT.PUT_LINE(\'Salary \' || erroneous_salary ||\' is out of
range.\');

DBMS_OUTPUT.PUT_LINE (\'Maximum salary is \' || max_salary || \'.\');

RAISE; -- reraise exception

END; -- sub-block ends

EXCEPTION

WHEN
salary_too_high THEN

-- handle
error more thoroughly

erroneous_salary := current_salary;

current_salary := max_salary;

DBMS_OUTPUT.PUT_LINE (

\'Revising salary from \' || erroneous_salary ||

\' to \'
|| current_salary || \'.\'

);

END;

/

1.7.異常的處理

定義中出現錯誤，直接關閉塊。異常中出現錯誤，后續操作時。

1.7.1. 異常處理---記錄錯誤代碼和錯誤消息

Displaying SQLCODE and SQLERRM

創建表

CREATE TABLE errors (

code NUMBER,

message VARCHAR2(64),

happened TIMESTAMP

);

DECLARE

name EMPLOYEES.LAST_NAME%TYPE;

v_code NUMBER;

v_errm VARCHAR2(64);

BEGIN

SELECT
last_name INTO name

FROM
EMPLOYEES

WHERE
EMPLOYEE_ID = -1;

EXCEPTION

WHEN OTHERS
THEN

v_code := SQLCODE;

v_errm :=
SUBSTR(SQLERRM, 1, 64);

DBMS_OUTPUT.PUT_LINE

(\'Error
code \' || v_code || \': \' || v_errm);

INSERT
INTO errors (code, message, happened)

VALUES
(v_code, v_errm, SYSTIMESTAMP);

commit;

END;

/

1.7.2. 異常處理—異常出發后繼續執行

CREATE TABLE employees_temp AS

SELECT
employee_id, salary, commission_pct

FROM
employees;

DECLARE

sal_calc
NUMBER(8,2);

BEGIN

INSERT INTO
employees_temp (employee_id, salary, commission_pct)

VALUES
(301, 2500, 0);

SELECT
(salary / commission_pct) INTO sal_calc

FROM
employees_temp

WHERE
employee_id = 301;

INSERT INTO
employees_temp VALUES (302, sal_calc/100, .1);

EXCEPTION

WHEN
ZERO_DIVIDE THEN

DBMS_OUTPUT.PUT_LINE(sqlcode||sqlerrm);

null;

END;

/

1.7.3. 異常處理—重新開始事務

DROP TABLE results;

CREATE TABLE results (

res_name
VARCHAR(20),

res_answer
VARCHAR2(3)

);

CREATE UNIQUE INDEX res_name_ix ON results
(res_name);

INSERT INTO results (res_name, res_answer)

VALUES (\'SMYTHE\', \'YES\');

INSERT INTO results (res_name, res_answer)

VALUES (\'JONES\', \'NO\');

DECLARE

name VARCHAR2(20) := \'SMYTHE\';

answer VARCHAR2(3) := \'NO\';

suffix NUMBER := 1;

BEGIN

FOR i IN
1..5 LOOP -- try 5 times

BEGIN -- sub-block begins

SAVEPOINT start_transaction;

--
Remove rows from a table of survey results:

DELETE
FROM results WHERE res_answer = \'NO\';

-- Add
a survey respondent\'s name and answers:

INSERT
INTO results (res_name, res_answer)

VALUES
(name, answer);

-- If
two respondents have same name, raise DUP_VAL_ON_INDEX.

COMMIT;

EXIT;

EXCEPTION

WHEN
DUP_VAL_ON_INDEX THEN

ROLLBACK TO start_transaction; --
undo changes

suffix := suffix + 1; --
try to fix problem

name
:= name || TO_CHAR(suffix);

END; -- sub-block ends

END LOOP;

END;

/

1.7.4. 異常處理—定位變量標識異常位置

CREATE OR REPLACE PROCEDURE loc_var AS

stmt_no NUMBER;

name_ VARCHAR2(100);

BEGIN

stmt_no :=
1; -- designates 1st SELECT statement

SELECT
table_name INTO name_

FROM
user_tables

WHERE
table_name LIKE \'ABC%\';

stmt_no :=
2; -- designates 2nd SELECT statement

SELECT
table_name INTO name_

FROM
user_tables

WHERE
table_name LIKE \'XYZ%\';

EXCEPTION

WHEN
NO_DATA_FOUND THEN

DBMS_OUTPUT.PUT_LINE (\'Table name not found in query \' || stmt_no);

END;

/

總結

以上是生活随笔為你收集整理的PL/SQL异常处理的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。