Oracle pragma 举例：exception_init

最新推荐文章于 2025-06-18 11:54:10 发布

Karl_zhujt

最新推荐文章于 2025-06-18 11:54:10 发布

阅读量4.7k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Oracle 文章标签： exception oracle delete buffer sql

本文链接：https://blog.youkuaiyun.com/mh942408056/article/details/6948952

Oracle 专栏收录该内容

29 篇文章

订阅专栏

本文详细介绍了SQL中的PRAGMAEXCEPTION_INIT编译指令及其使用方式，包括如何为特定错误号创建异常名称，并通过EXCEPTION块进行异常处理。还提供了实例演示如何解决使用常规EXCEPTION处理无法捕获的异常问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

PRAGMA是一个编译指示(或命令)。编译指示在编译时被处理，它们不在运行时执行。编译指示是对编译程序发出的特殊指令。它也称为伪指令（pseudoinstruction），不会改变程序的含义。它只是向编译程序传递信息，实际上它是非常类似于嵌在 SQL 语句的注释中的性能调整提示。
EXCEPTION_INIT：将一个特定的错误号与程序中所声明的异常标示符关联起来。

示例：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;　