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

转自：http://www.examda.com/oracle/jishu/20071011/101133971.html
从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变量将不会被初始化。