在触发器中获取SQL语句的方法

文章作者 100test 发表时间 2007:10:15 12:56:37
来源 100Test.Com百考试题网

从Oracle9i开始，Oracle增加了在触发器中获取触发语句的功能。
9i开始，在系统定义事件属性中，增加了ORA_SQL_TXT属性，可以返回触发触发器的SQL语句。
使用方法很简单，看一个简单的例子：

SQL> CREATE TABLE T (ID NUMBER, NAME VARCHAR2(30)).
表已创建。
SQL> CREATE TABLE T_LOG (EXECUTE_DATE DATE, SQL_STATMENT CLOB).
表已创建。
SQL> CREATE OR REPLACE TRIGGER T
2 BEFORE INSERT OR UPDATE OR DELETE ON T
3 FOR EACH ROW
4 DECLARE
5 V_SQL_OUT ORA_NAME_LIST_T.
6 V_NUM NUMBER.
7 V_SQL_STATMENT VARCHAR2(32767).
8 BEGIN
9 V_NUM := ORA_SQL_TXT(V_SQL_OUT).
10 FOR I IN 1 .. V_NUM LOOP
11 V_SQL_STATMENT := V_SQL_STATMENT || V_SQL_OUT(I).
12 END LOOP.
13 INSERT INTO T_LOG (EXECUTE_DATE, SQL_STATMENT)
14 VALUES (SYSDATE, V_SQL_STATMENT).
15 END.
16 /

触发器已创建
SQL> INSERT INTO T VALUES (1, ’A’).
已创建 1 行。
SQL> INSERT INTO T (ID) VALUES (2).
已创建 1 行。
SQL> UPDATE T SET NAME = ’B’ WHERE ID = 2.
已更新 1 行。
SQL> DELETE T.
已删除2行。
SQL> ALTER SESSION SET NLS_DATE_FORMAT = ’YYYY-MM-DD HH24:MI:SS’.
会话已更改。
SQL> SELECT * FROM T_LOG.
EXECUTE_DATE SQL_STATMENT
------------------- -----------------------------------------------
2007-09-13 22:55:35 INSERT INTO T VALUES (1, ’A’)
2007-09-13 22:55:46 INSERT INTO T (ID) VALUES (2)
2007-09-13 22:55:54 UPDATE T SET NAME = ’B’ WHERE ID = 2
2007-09-13 22:56:00 DELETE T
2007-09-13 22:56:00 DELETE T

也可以利用VARCHAR2(4000)来代替CLOB，不过在插入的时候需要注意截取前4000个字符。
注意，从9206及以上版本，Oracle不再允许DML触发器中使用这个函数，只有在系统事件触发器中才能获取到SQL语句。
试图在DML触发器中使用ORA_SQL_TXT函数，这个函数返回NULL，而且传入的OUT变量将不会被初始化。