建站服務器 1. PL/SQL異常處理

創(chuàng)新互聯公司專注于青海網站建設服務及定制，我們擁有豐富的企業(yè)做網站經驗。 熱誠為您提供青海營銷型網站建設，青海網站制作、青海網頁設計、青海網站官網定制、微信小程序服務，打造青海網絡公司原創(chuàng)品牌,更為您提供青海網站排名全網營銷落地服務。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. 測試

創(chuàng)建存儲過程

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

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

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

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

1、預定義 ( Predefined )錯誤

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

2、用戶定義(User_define) 錯誤

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

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

? 內部錯誤碼定義的異常

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

1.3.預定義異常處理

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

錯誤號

異常錯誤信息名稱

說明

ORA-0001

Dup_val_on_index

違反了唯一性限制

ORA-0051

Timeout-on-resource

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

ORA-0061

Transaction-backed-out

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

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

內存不夠引發(fā)的內部錯誤

ORA-6501

Program-error

內部錯誤

ORA-6502

Value-error

轉換或截斷錯誤

ORA-6504

Rowtype-mismatch

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

ORA-6511

CURSOR-already-OPEN

試圖打開一個已處于打開狀態(tài)的游標

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.用戶定義的異常處理

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

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

異常定義

DECLARE

past_due EXCEPTION;

BEGIN

NULL;

END;

/

異常的范圍

異常必須在當前塊定義，全局異?？梢栽谧訅K重處理，子塊中的異常只在只在子塊中處理，子塊中的異常定義可以傳播給上層塊，但是子塊需要重新觸發(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. 內部錯誤碼定義的異常

<異常情況> 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;

觸發(fā)異常

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

異常必須在當前塊定義，全局異?？梢栽谧訅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.異常的處理

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

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

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

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異常處理
URL地址：http://chinadenli.net/article46/cpoheg.html

成都網站建設公司_創(chuàng)新互聯，為您提供網站建設、App設計、網站內鏈、品牌網站設計、網站設計公司、建站公司

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯