您还没有真正详细说明您的要求.这是一个简单的错误日志表和将错误消息记录到其中的过程:
CREATE TABLE error_log (ts TIMESTAMP NOT NULL, msg VARCHAR2(4000));
CREATE PROCEDURE log_error (msg IN VARCHAR2) IS
BEGIN
INSERT INTO error_log (ts, msg)
VALUES (SYSTIMESTAMP, SUBSTR(insert_log.msg, 1, 4000));
END log_error;
您可能需要也可能不需要它作为自治事务.这取决于您是否希望日志记录来自回滚其更改的过程的错误.
通常,这将在更通用的日志记录系统中实现,该系统不仅会记录错误,还会记录警告和调试信息.
如果你想要一个DML语句(插入/更新/删除)来记录每一行的错误(而不是只在第一行失败那么错误),你可以使用LOG ERRORS子句 – 而不是语句失败,语句将成功,未插入/更新/删除的行将写入您指定的错误日志表,以及适用的错误代码和错误消息.请参阅vettipayyan提供的链接.
如果您希望记录过程中引发的所有异常,则可以使用WHEN OTHERS捕获它们:
BEGIN
-- your code here
EXCEPTION
WHEN OTHERS THEN
log_error(DBMS_UTILITY.format_error_stack);
log_error(DBMS_UTILITY.format_error_backtrace);
RAISE;
END;