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.異常的重新觸發
異常必須在當前塊定義，全局異常可以在子塊重處理，子塊中的異常只在只在子塊中處理，子塊中的異常定義可以傳播給上層塊，但是子塊需要重新觸發異常，上層塊才能處理相同的異常。
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;
/
更多關于云服務器，域名注冊，虛擬主機的問題，請訪問三五互聯官網：m.shinetop.cn