作者：手机用户2502903053 | 来源：互联网 | 2014-05-30 11:33
oracle存储过程生成xml文件CREATEORREPLACEPROCEDUREPro_OracleToXML(personidvarchar2,namevarchar2,addressvarchar2,telvarchar2,ipvarchar2,emailvarchar2)ASisqlvarchar2(200);
oracle存储过程生成xml文件
CREATE OR REPLACE PROCEDURE Pro_
OracleToXML(personid varchar2,name varchar2,address varchar2,tel varchar2,ip varchar2,email varchar2)
AS
isql varchar2(200);--创建临时表
dptable varchar2(100);--删除临时表
i_insert varchar2(200);--将数据插入临时表
tableSource CLOB;
str varchar2(500);
xmlFile utl_file.file_type;
tempsql varchar2(500) ; --初始的查询语句
ex BOOLEAN;--文件是否存在
flen NUMBER;--文件长度？
bsize NUMBER;--文件大小
BEGIN
--初始化创建临时表语句
isql:=&＃39;create global temporary table people_copy(personid VARCHAR2(4),name varchar2(50),address VARCHAR2(200),tel VARCHAR2(20),fax VARCHAR2(20),email VARCHAR2(100)) on commit delete rows&＃39;;
--创建临时表
execute immediate isql;
dbms_output.put_line(isql||&＃39;执行成功&＃39;);
--将触发后的数据插入到people_copy表中
i_insert := &＃39;insert into people_copy values(&＃39;&＃39;&＃39;||personid||&＃39;&＃39;&＃39;,&＃39;&＃39;&＃39;||name||&＃39;&＃39;&＃39;,&＃39;&＃39;&＃39;||address||&＃39;&＃39;&＃39;,&＃39;&＃39;&＃39;||tel||&＃39;&＃39;&＃39;,&＃39;&＃39;&＃39;||ip||&＃39;&＃39;&＃39;,&＃39;&＃39;&＃39;||email||&＃39;&＃39;&＃39;)&＃39;;
--执行插入语句
execute immediate i_insert;
--将临时表的查询语句作为值赋给tempsql变量
tempsql := &＃39;SELECT * FROM people_copy where fax= &＃39;&＃39;&＃39;||ip||&＃39;&＃39;&＃39; order by personid asc&＃39;;
dbms_output.put_line(tempsql);
--获得内容
tableSource:=dbms_xmlgen.getXml(tempsql);
--判断文件是否存在
utl_file.fgetattr(&＃39;PEOPLE_FILE_DIR&＃39;,&＃39;/&＃39;||ip||&＃39;.xml&＃39;, ex,flen,bsize);
--chr(10)是换行符，
--chr(13)是回车，
--replace(replace(tableSource,CHR(10),&＃39;&＃39;),chr(13),&＃39;&＃39;);
if ex then
--文件存在，将tableSource的值的替换为空格
tableSource:=replace(tableSource,&＃39;&＃39;,&＃39;&＃39;);
else
--文件不存在，不用替换
dbms_output.put_line(&＃39;File Does Not Exist&＃39;);
end if;
--打开文件
xmlFile:=utl_file.fopen(&＃39;PEOPLE_FILE_DIR&＃39;,&＃39;/&＃39;||ip||&＃39;.xml&＃39;,&＃39;A&＃39;);
--将tableSource的内容赋给str字符串变量
str := tableSource||&＃39;&＃39;;
--去除str前面的空格
tableSource := trim(leading CHR(10) from str);
--去除tableSource后面的空格
tableSource := trim(trailing CHR(10) from tableSource);
dbms_output.put_line(tableSource);
--输入tableSource内容到xml文件中
utl_file.put_line(xmlFile,tableSource);
--关闭文件
utl_file.fclose(xmlFile);
--将删除临时表的语句作为值赋给dptable变量
dptable :=&＃39;drop table people_copy&＃39;;
--删除临时表
execute immediate dptable;
--出现异常，输出异常信息
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
END Pro_OracleToXML;
create or replace trigger trigger_people
after insert or update on people
referencing
for each row
declare
PRAGMA AUTONOMOUS_TRANSACTION;
begin
dbms_output.put_line(:new.personid||&＃39;已经触发了!---&＃39;);
Pro_OracleToXML(:new.personid,:new.name,:new.address,:new.tel,:new.fax,:new.email);
end;
京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有