如何获取SQL并记入文本文件

Question

触发条件：Insert\Update\Delete在触发器中执行的动作：将对当前表所做的Insert\Update\Delete的完整SQL语句记入文本文件。请教该如何实现？请给出示例。

Answer 1

.写文件举例
-- 环境 windows 2000 server + oracle 8.1.7
-- 先在 init.ora中的参数utl_file_dir
-- 例:  utl_file_dir=(d:\test,e:\\,e:\share)
-- set serveroutput on size 1000000 format wrapped create or replace procedure write_txtfile( -- 写一个字符串到指定文本文件中
path   in varchar2,
name   in varchar2,
pstr   in varchar2
)
as
l_output   utl_file.file_type;
str        varchar2(1000);
begin
l_output:=utl_file.fopen(path,name,'a',2000); -- 每行最大字节数最多为32K bytes
--l_output:=utl_file.fopen(path,name,'a'); -- 每行最大字节数最多为1023 bytes
utl_file.put_line(l_output,pstr);
utl_file.fclose(l_output);
exception
when utl_file.invalid_path then
raise_application_error(-20001,'INVALID_PATH!');
when utl_file.invalid_mode then
raise_application_error(-20002,'INVALID_MODE!');
when utl_file.invalid_filehandle then
raise_application_error(-20003,'INVALID_FILEHANDLE!');
when utl_file.invalid_operation then
raise_application_error(-20004,'INVALID_OPERATION!');
when utl_file.read_error then
raise_application_error(-20005,'READ_ERROR!');
when utl_file.write_error then
raise_application_error(-20006,'WRITE_ERROR!');
when utl_file.internal_error then
raise_application_error(-20007,'INTERNAL_ERROR!');
when others then
str:=sqlerrm(sqlcode);
dbms_output.put_line(str);

Answer 2

我主要是想获取SQL语句。举例：
执行SQL:Insert into T_User(ID,Name) values('1','tom');
系统会激活触发器TriggerTest;
我希望在TriggerTest中取得SQL(即Insert into T_User(ID,Name) values('1','tom'))。