方法一
宣告 exception
--建立儲存過程

SQL> create procedure account_status (
2 due_date date,
3 today date
4 ) authid definer
5 is
6 past_due exception; -- 定義異常
7 begin
8 if due_date < today then
9 raise past_due; -- 宣告異常
10 end if;
11 exception
12 when past_due then -- 異常處理
13 dbms_output.put_line('Account past due.');
14 end;
15 /

過程已建立。

呼叫儲存過程，來觸發異常
SQL> set serveroutput on
SQL> l
1 begin
2 account_status(sysdate-1,sysdate);
3* end;
SQL> /
Account past due.

PL/SQL 過程已成功完成。

SQL> begin
2 account_status(sysdate-1,sysdate+1);
3 end;
4 /
Account past due.

PL/SQL 過程已成功完成。

SQL> begin
2 account_status(sysdate-1,sysdate-2);
3 end;
4 /

PL/SQL 過程已成功完成。

方法二

使用 raise_application_error 包

SQL> create or replace procedure account_status (
2 due_date date,
3 today date
4 ) authid definer
5 is
6 begin
7 if due_date < today then -- explicitly raise exception
8 raise_application_error(-20000, 'Account past due.');
9 end if;
10 end;
11 /

過程已建立。

SQL> begin
2 account_status(sysdate-1,sysdate);
3 end;
4 /
begin
*
第 1 行出現錯誤:
ORA-20000: Account past due.
ORA-06512: 在 "SCOTT.ACCOUNT_STATUS", line 8
ORA-06512: 在 line 2

SQL> declare
2 past_due exception; --declare exception
3 pragma exception_init (past_due, -20000); --assign error code to exception
4 begin
5 account_status(sysdate-1,sysdate); --invoke procedure
6 exception
7 when past_due then
8 dbms_output.put_line(to_char(sqlerrm(-20000)));
9 end;
10 /
ORA-20000: Account past due.

PL/SQL 過程已成功完成。

Oracle 11g PL/SQL 使用者自定義 Exception

相關文章