Oracle中利用自治事务实现审计功能

在一个事务（外层事务）中可以定义一个或几个自治事务。自治事务可以独立commit,不 对外层事务产生影响，同样外层事务的 rollback 也对自治事务没有影响。

假设现在 有这样一个需求，不能对某个表进行某些操作（如更新），一旦有这类操作，就强制整个回 滚，并且在审计日志中记录该次违规操作。现在的问题是当事务回滚之后，日志中的记录也 会跟着被回滚，这时就可以利用自治事务来防止这个问题。

首先，定义日志表，用于 审计。

create table error_logs(
  id number(10)  not null,
  log_timestamp  timestamp  not null,
  error_message  varchar2(4000)
);  

create sequence error_log_seq;

创建一个自治事务的存储过程（关键字PRAGMA AUTONOMOUS_TRANSACTION代表自治事务），用于向审计表插入错误信息

create or 

replace procedure log_errors(p_error_message IN varchar2) as
  PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
  insert into error_logs (id, log_timestamp, error_message)
  values (error_log_seq.NEXTVAL, systimestamp, p_error_message);
  commit;
END;
/

创建一个测试表，定义该表的ID字段不为空

create table at_test(
  id number(10) not null,
  des varchar2(200)
);

定义一个存储过程，尝试向测试表中插入非法数据

create or replace 

procedure p1 as
BEGIN
  insert into at_test (id, des)
  values (1, 'desc1');
  insert into at_test (id, des)
  values (NULL, 'desc2');
EXCEPTION
  WHEN OTHERS THEN
    log_errors (p_error_message => SQLERRM);
    rollback;
END;
/

执行这个存储过程，查看是否审计成功

SQL> exec p1  

PL/SQL 过程已成功完成。  

SQL> select * from at_test;  

未选定行  

SQL> select * from error_logs;  

        ID LOG_TIMESTAMP                    ERROR_MESSAGE
---------- -------------------------------- ------------------------------------

-------------------
         2 28-5月 -13 03.34.51.210000 下午   ORA-01400: 无法将 NULL 插入 

("TEST"."AT_TEST"."ID")

从上面的结果可以发现，向at_test表插入数据的事务正 常回滚，而审计自治事务不回滚。

查看本栏目更多精彩内容：http://www.bianceng.cnhttp://www.bianceng.cn/database/Oracle/

以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索存储过程
， 事务
， varchar2
， create
， 审计
， 一个
error_log
oracle自治事务、oracle 自治事务处理、合肥有哪些审计事务所、南宁会计事务所审计、审计师事务所，以便于您获取更多的相关知识。