SQL> create table t1(a number);

表已创建。

SQL> create table t_sql(username varchar2(30),

2  client_ip varchar2(20),sql_text varchar2(4000),

3  table_name varchar2(30),owner varchar2(30));

表已创建。

SQL> create or replace trigger capt_sql

2   BEFORE DELETE OR INSERT OR UPDATE ON t1

3   declare

4   n        number;

5   stmt     varchar2(4000);

6   sql_text ora_name_list_t;

7   begin

8   n := ora_sql_txt(sql_text);

9   FOR i IN 1..n LOOP

10    stmt := stmt || sql_text(i);

11   END LOOP;

12

13   insert into t_sql(USERNAME,CLIENT_IP,SQL_TEXT,TABLE_NAME,OWNER)

14               values(user,sys_context('userenv','ip_address'),stmt,'T1','RAINY');

15

16   end;

17  /

触发器已创建

SQL>

SQL> insert into t1 values(1);

已创建 1 行。

SQL> commit;

提交完成。

SQL> select * from t_sql

2  ;

USERNAME                       CLIENT_IP

------------------------------ --------------------

SQL_TEXT

----------------------------------------------------

TABLE_NAME                     OWNER

------------------------------ ---------------------

SYSTEM

insert into t1 values(1)

T1                             RAINY