[转]http://blog.youkuaiyun.com/dingxy/archive/2009/02/19/3908550.aspx
可能不是很多人知道 RAISE_APPLICATION_ERROR 的用途是什么,虽然从字面上已经猜到这个函数是干什么用的。今天在我们的业务库里发现了触发器错才看到这东西的用法的。
其实 RAISE_APPLICATION_ERROR 是将应用程序专有的错误从服务器端转达到客户端应用程序。
RAISE_APPLICATION_ERROR 的声明:
PROCEDURE RAISE_APPLICATION_ERROR(error_number_in IN NUMBER, error_msg_in IN VARCHAR2);
里面的错误代码和内容,都是自定义的。说明是自定义,当然就不是系统中已经命名存在的错误类别,是属于一种自定义事务错误类型,才调用此函数。
error_number_in 之容许从 -20000 到 -20999 之间,这样就不会与 ORACLE 的任何错误代码发生冲突。
error_msg_in 的长度不能超过 2K,否则截取 2K。
举个例吧:
阻止小于18岁的用户增加到数据库 employee 表中
CREATE OR REPALCE TRIGGER minimun_age_check
BEFORE INSERT ON employee
FOR EACH ROW
BEGIN
IF ADD_MONTHS( :new.birth_date, 18*12) > SYSDATE
THEN
RAISE_APPLICATION_ERROR(-20001, 'Employees must at least eighteen years of age.');
END IF;
END;
在客户端,你可以写一个类似下面的程序,来测试一下。
DECLARE
no_babies_allowed EXCEPTION;
/*将名称与用于触发器中的错误号码关联起来*/
PRAGMA EXCEPTION_INIT(no_babies_allowed, -20001);
BEGIN
INSERT INTO employee ....;
EXCEPTION
WHEN no_babies_allowed
THEN
/*
|| SQLERRM 将传递给内置过程 RAISE_APPLICATION_ERROR 的消息返回
*/
DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;
注: 设置异常代码,将其定义好的异常情况,与标准的ORACLE错误联系起来,
使用EXCEPTION_INIT语句:
PRAGMA EXCEPTION_INIT(<异常情况>, <错误代码>);
An Example:
PACKAGE BODY AA
AS
PROCEDURE PROCESS_ITEM_EXPANSION_STATUS(in_inquiry_id IN inquire_all.inquiry_id%TYPE,
in_item_populate_status IN inquire_all.item_populate_status%TYPE DEFAULT 'Y',
in_supplier_cnt IN inquire_all.supplier_cnt%TYPE,
in_product_cnt IN inquire_all.product_cnt%TYPE)
IS
BEGIN
UPDATE table_1
SET item_populate_status = in_item_populate_status,
item_populate_date = sysdate,
supplier_cnt = in_supplier_cnt,
product_cnt = in_product_cnt
WHERE inquiry_id = in_inquiry_id
AND form_complete_status = 'Y';
COMMIT;
EXCEPTION
WHEN others THEN
ROLLBACK;
RAISE_APPLICATION_ERROR(-20202, 'Error updating table_1 for population');
END PROCESS_ITEM_EXPANSION_STATUS;
AS
PROCEDURE PROCESS_ITEM_EXPANSION_STATUS(in_inquiry_id IN inquire_all.inquiry_id%TYPE,
in_item_populate_status IN inquire_all.item_populate_status%TYPE DEFAULT 'Y',
in_supplier_cnt IN inquire_all.supplier_cnt%TYPE,
in_product_cnt IN inquire_all.product_cnt%TYPE)
IS
BEGIN
UPDATE table_1
SET item_populate_status = in_item_populate_status,
item_populate_date = sysdate,
supplier_cnt = in_supplier_cnt,
product_cnt = in_product_cnt
WHERE inquiry_id = in_inquiry_id
AND form_complete_status = 'Y';
COMMIT;
EXCEPTION
WHEN others THEN
ROLLBACK;
RAISE_APPLICATION_ERROR(-20202, 'Error updating table_1 for population');
END PROCESS_ITEM_EXPANSION_STATUS;