建站服務(wù)器

1. PL/SQL異常處理

1.1.編譯告警

1.1.1. 設(shè)置告警

1、設(shè)置參數(shù)PLSQL_WARNINGS，記錄告警

會(huì)話級(jí)別啟用所有告警類型

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

會(huì)話級(jí)別關(guān)閉所有告警

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

開啟 SEVERE warnings, 關(guān)閉 PERFORMANCE warnings, PLW-06002 告警為錯(cuò)誤

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

2、通過(guò)dbms告警包記錄告警

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

檢查告警設(shè)置

SELECT DBMS_WARNING.get_warning_setting_string()
FROM DUAL;

1.1.2. 測(cè)試

創(chuàng)建存儲(chǔ)過(guò)程

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;

查看錯(cuò)誤

Show errors:

1.2.異常處理概述

即使是寫得最好的PL/SQL程序也會(huì)遇到錯(cuò)誤或未預(yù)料到的事件。一個(gè)優(yōu)秀的程序都應(yīng)該能夠正確處理各種出錯(cuò)情況，并盡可能從錯(cuò)誤中恢復(fù)。任何ORACLE錯(cuò)誤（報(bào)告為ORA-xxxxx形式的Oracle錯(cuò)誤號(hào)）、PL/SQL運(yùn)行錯(cuò)誤或用戶定義條件（不一寫是錯(cuò)誤），都可以。當(dāng)然了，PL/SQL編譯錯(cuò)誤不能通過(guò)PL/SQL異常處理來(lái)處理，因?yàn)檫@些錯(cuò)誤發(fā)生在PL/SQL程序執(zhí)行之前。

ORACLE 提供異常情況(EXCEPTION)和異常處理(EXCEPTION HANDLER)來(lái)實(shí)現(xiàn)錯(cuò)誤處理。

異常情況處理(EXCEPTION)是用來(lái)處理正常執(zhí)行過(guò)程中未預(yù)料的事件,程序塊的異常處理預(yù)定義的錯(cuò)誤和自定義錯(cuò)誤,由于PL/SQL程序塊一旦產(chǎn)生異常而沒(méi)有指出如何處理時(shí),程序就會(huì)自動(dòng)終止整個(gè)程序運(yùn)行。

有兩大類類型的異常錯(cuò)誤：

1、預(yù)定義 ( Predefined )錯(cuò)誤

ORACLE預(yù)定義的異常情況大約有24個(gè)。對(duì)這種異常情況的處理，無(wú)需在程序中定義，由ORACLE自動(dòng)將其引發(fā)。

2、用戶定義(User_define) 錯(cuò)誤

程序執(zhí)行過(guò)程中，出現(xiàn)編程人員認(rèn)為的非正常情況。對(duì)這種異常情況的處理，需要用戶在程序中定義，然后顯式地在程序中將其引發(fā)。

用戶定義錯(cuò)誤有分為兩類。

? 內(nèi)部錯(cuò)誤碼定義的異常

? 用戶定義的錯(cuò)誤代碼異常

1.3.預(yù)定義異常處理

預(yù)定義說(shuō)明的部分 ORACLE 異常錯(cuò)誤

錯(cuò)誤號(hào)

異常錯(cuò)誤信息名稱

說(shuō)明

ORA-0001

Dup_val_on_index

違反了唯一性限制

ORA-0051

Timeout-on-resource

在等待資源時(shí)發(fā)生超時(shí)

ORA-0061

Transaction-backed-out

由于發(fā)生死鎖事務(wù)被撤消

ORA-1001

Invalid-CURSOR

試圖使用一個(gè)無(wú)效的游標(biāo)

ORA-1012

Not-logged-on

沒(méi)有連接到ORACLE

ORA-1017

Login-denied

無(wú)效的用戶名/口令

ORA-1403

No_data_found

SELECT
INTO沒(méi)有找到數(shù)據(jù)

ORA-1422

Too_many_rows

SELECT
INTO 返回多行

ORA-1476

Zero-divide

試圖被零除

ORA-1722

Invalid-NUMBER

轉(zhuǎn)換一個(gè)數(shù)字失敗

ORA-6500

Storage-error

內(nèi)存不夠引發(fā)的內(nèi)部錯(cuò)誤

ORA-6501

Program-error

內(nèi)部錯(cuò)誤

ORA-6502

Value-error

轉(zhuǎn)換或截?cái)噱e(cuò)誤

ORA-6504

Rowtype-mismatch

宿主游標(biāo)變量與 PL/SQL變量有不兼容行類型

ORA-6511

CURSOR-already-OPEN

試圖打開一個(gè)已處于打開狀態(tài)的游標(biāo)

ORA-6530

Access-INTO-null

試圖為null 對(duì)象的屬性賦值

ORA-6531

Collection-is-null

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

ORA-6532

Subscript-outside-limit

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

ORA-6533

Subscript-beyond-count

對(duì)嵌套或varray 索引得引用大于集合中元素的個(gè)數(shù).

對(duì)這種異常情況的處理，只需在PL/SQL塊的異常處理部分，直接引用相應(yīng)的異常情況名，并對(duì)其完成相應(yīng)的異常錯(cuò)誤處理即可

1.4.用戶定義的異常處理

程序執(zhí)行過(guò)程中，出現(xiàn)編程人員認(rèn)為的非正常情況。對(duì)這種異常情況的處理，需要用戶在程序中定義，然后顯式地在程序中將其引發(fā)。

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

異常定義

DECLARE

past_due EXCEPTION;

BEGIN

NULL;

END;

/

異常的范圍

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

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. 內(nèi)部錯(cuò)誤碼定義的異常

<異常情況> EXCEPTION;

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

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. 用戶定義的錯(cuò)誤代碼異常

<異常情況> EXCEPTION;

觸發(fā)異常

RAISE <異常情況>；

在PL/SQL 塊的異常情況處理部分對(duì)異常情況做出相應(yīng)的處理。

舉例

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.異常的重新觸發(fā)

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

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.異常的處理

定義中出現(xiàn)錯(cuò)誤，直接關(guān)閉塊。異常中出現(xiàn)錯(cuò)誤，后續(xù)操作時(shí)。

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

Displaying SQLCODE and SQLERRM

創(chuàng)建表

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. 異常處理—異常出發(fā)后繼續(xù)執(zhí)行

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. 異常處理—重新開始事務(wù)

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. 異常處理—定位變量標(biāo)識(shí)異常位置

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;

/

總結(jié)

以上是生活随笔為你收集整理的PL/SQL异常处理的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。