在 Oracle 中自定义 PL/SQL 异常
-
21-09-2019 - |
题
我经常发现自己在一个或多个表中执行一些插入/删除/更新的功能,并且我看到一些预期的异常得到了处理,例如 no_data_found
, dupl_val_on_index
, , ETC。对于这样的插入:
create or replace FUNCTION "INSERT_PRODUCTS" (
a_supplier_id IN FORNECEDOR.ID_FORNECEDOR%TYPE,
a_prodArray IN OUT PRODTABLE
)
RETURN NUMBER IS
v_error_code NUMBER;
v_error_message VARCHAR2(255);
v_result NUMBER:= 0;
v_prod_id PRODUTO.ID_PROD%TYPE;
v_supplier FORNECEDOR%ROWTYPE;
v_prodInserted PROD_OBJ;
newList prodtable := prodtable();
BEGIN
SELECT FORNEC_OBJ(ID_FORNECEDOR,NOME_FORNECEDOR,MORADA,ARMAZEM,EMAIL,TLF,TLM,FAX) into v_supplier from fornecedor where id_fornecedor = a_supplier_id;
FOR i IN a_prodArray.FIRST .. a_prodArray.LAST LOOP
INSERT INTO PRODUTO (PRODUTO.ID_PROD,PRODUTO.NOME_PROD,PRODUTO.PREC_COMPRA_PROD,PRODUTO.IVA_PROD,PRODUTO.PREC_VENDA_PROD,PRODUTO.QTD_STOCK_PROD,PRODUTO.QTD_STOCK_MIN_PROD)
VALUES (S_PRODUTO.nextval,a_prodArray(i).NOME_PROD,a_prodArray(i).PREC_COMPRA_PROD,a_prodArray(i).IVA_PROD,NULL,NULL,NULL);
/* If the above insert didn't failed, we can insert in weak entity PROD_FORNECIDO. */
SELECT ID_PROD into v_prod_id from PRODUTO where NOME_PROD = a_prodArray(i).NOME_PROD;
INSERT INTO PROD_FORNECIDO VALUES (a_supplier_id, v_prod_id,a_prodArray(i).PREC_COMPRA_PROD);
SELECT PROD_OBJ(ID_PROD,NOME_PROD,PREC_COMPRA_PROD,PREC_VENDA_PROD,QTD_STOCK_PROD,QTD_STOCK_MIN_PROD,IVA_PROD) into v_prodInserted from PRODUTO where ID_PROD= v_prod_id;
a_prodarray(i).ID_PROD := v_prod_id;
END LOOP;
INSERT INTO FORNECPRODS VALUES (a_supplier_id,v_supplier, a_prodarray);
v_result:= 1;
RETURN v_result;
COMMIT;
Exception
When no_data_found then
v_error_code := 0;
v_error_message:= 'Insert Products: One of selects returned nothing';
Insert Into errors Values (v_error_code,v_error_message, systimestamp);
RETURN v_result;
When others Then
ROLLBACK;
v_error_code := SQLCODE;
v_error_message:=substr(SQLERRM,1,50);
Insert Into errors Values (v_error_code,'Error inserting products list',systimestamp);
RETURN v_result;
END;
我想自定义更多异常或为每个选择/插入执行异常块。这可能或正确吗?
如果是这样,请向我展示一些代码,其中包含该函数引发的重要异常?
解决方案
在例外部分;您可以引发应用程序错误或返回 0 以及错误代码说明。这是关于你的选择。
如果您想在异常部分(或主要部分)记录错误,请使用 AUTONOMOUS TRANSACTION 编写您自己的日志记录过程。因此,您的日志记录机制不会受到主事务的 COMMIT 或 ROLLBACK 的影响。(看: http://www.dba-oracle.com/t_autonomous_transaction.htm)
Oracle 10gR2(及更高版本)中的另一个日志记录机制(DML 错误日志)是 LOG ERRORS 子句(请参阅: http://www.oracle-base.com/articles/10g/DmlErrorLogging_10gR2.php).
其他提示
如果你只是想取代自己的错误消息,有RAISE_APPLICATION_ERROR
...
When no_data_found then
RAISE_APPLICATION_ERROR(-20000
, 'Insert Products: One of selects returned nothing';
, true);
第三个参数返回原始误差以及自定义之一。
Oracle还使我们能够定义我们的例外的选项。如果我们想将异常传递到调用程序这是很有用...
Declare
no_product_found exception;
Begin
....
When no_data_found then
raise no_product_found;
如果我们定义在包装说明书中的NO_PRODUCT_FOUND例外它可以通过外部程序单元被引用这将是最有效的。
此外,Oracle提供了INIT_EXCEPTION编译它使我们能够Oracle错误数字与我们的自定义异常关联。不幸的是,我们不能超载甲骨文已经定义(例如,我们不能对于已经覆盖的NO_DATA_FOUND异常ORA-1403创造我们自己的异常)错误编号。 了解更多。