当前位置:Gxlcms > mysql > Oraclepragma举例:exception_init()

Oraclepragma举例:exception_init()

时间:2021-07-01 10:21:17 帮助过:2人阅读

PRAGMA EXCEPTION_INIT(DEADLOCK_DETECTED, -60);EXCEPTION_INIT编译指 令,从字面意思上我们能了解一点,即EXCEPTION的初始化。

PRAGMA EXCEPTION_INIT(DEADLOCK_DETECTED, -60);

EXCEPTION_INIT编译指 令,从字面意思上我们能了解一点,即EXCEPTION的初始化。

语法也简单,PRAGMA EXCEPTION (exception_name, error_number);

大家都有经验,在处理EXCEPTION 是,当没有已经定义好了的EXCEPTION NAME可用时,我们就用OTHERS来处理未被捕捉的所有的EXCEPTION,PL/SQL设计者建议大家尽量使用已知的EXCEPTION NAME来捕捉,不到最后,尽量不用这个选项,虽然不知道为什么,但估计是跟性能有关,而且编译出来的代码应该会很长。

这个编译指令的引入也为这带来了解决方案。比如,我们要捕捉死锁这个EXCEPTION怎么办? 系统没有预定义好的EXCEPTION NAME可用。这时我们就可以用这个编译指令了。

我们知道ora-60错误是代表死锁的意思,那我们就可以为这个错误号起一个EXCEPTION NAME,比如DEADLOCK_DETECTED,语法如下:

DECLARE
DEADLOCK_DETECTED EXCEPTION;
PRAGMA EXCEPTION_INIT(DEADLOCK_DETECTED, -60);

好我们就可以像下面一样来捕捉处理这个死锁的EXCEPTION了。

EXCEPTION
WHEN DEADLOCK_DETECTED THEN
......

这样,,我们就避免了用when others then来捕捉处理这个异常了。

这个编译指令几乎可以用在所有的程序的声明项中,但要注意作用范围,另外要注意的是记住只为一个错误号起一个EXCEPTION NAME。

下面附上一段通过SQLERRM函数找出Oracle预定义的错误号码及相应的错误信息。这在10g版本通过,在之前的版本可能会报buffer overflow错误,这是由于set serveroutput on默认为2000字节,但在10g中默认是unlimited了。

SET SERVEROUTPUT ON
SPOOL ERRORMSG.LOG
DECLARE
VMSG VARCHAR2(500);
BEGIN
FOR I IN 0..20000 LOOP
VMSG := SQLERRM(-I);
IF INSTR(VMSG,'not found') = 0 THEN
DBMS_OUTPUT.PUT_LINE(VMSG);
END IF;
END LOOP;
END;
/

SPOOL OFF

---------------再加一个例子---------------

下面看一个例子

create or replace procedure SP_Del_Test
(P_ItemAdmin in mfitem.itemadmin%type, --ItemAdmin
P_ItemCd in mfitem.itemcd%type, --ItemCode
P_Return out number --输出参数
) is
exp exception;
PRAGMA Exception_Init(exp, -2292);
begin
delete from mfitem t
where t.itemcd = P_ItemCd
and t.itemadmin = P_ItemAdmin; --这一句会引发-2292异常,有级连删除异常
EXCEPTION
WHEN EXP THEN
P_Return := 9;
ROLLBACK;
WHEN OTHERS THEN
ROLLBACK;
end SP_Del_Test;  

linux

人气教程排行