ORACLE10导出XML

1.安装xmldom，方法如下：
先在oem中手动创建一个名字为"XDB_TS"的表空间
在oracle服务器上，在命令行中切换到F:\oracle\product\10.2.0\db_1\RDBMS\ADMIN目录，执行如下命令安装xmldom包。
sqlplus /nolog
sql>connect sys/pwd@sid as sysdba;
sql>@catqm.sql password XDB_TS TEMP
命令格式：catqm.sql xdb数据库用户的密码 xdb数据库用户的表空间 xdb数据库用户的临时表空间
详细见：http://www.stanford.edu/dept/itss/docs/oracle/10g/appdev.101/b10790/appaman.htm#CACIBCBA

2. GRANT javauserpriv to 当前用户;
GRANT javasyspriv to 当前用户;
以sys用户登陆执行以下语句：
GRANT EXECUTE ON xmldom TO public;

3. 存储过程如下：


Sql代码
CREATE OR REPLACE PROCEDURE Pr_Frame_Xml_Gen IS
/******************************************************************************
利用job来调度该存储过程将公共数据库的统计数据生成为<B style="COLOR: black; BACKGROUND-COLOR: #99ff99">xml</B>文件，以便多维分析系统生成饼图数据。
作者：李凯飞
编写时间：2009-08-05
******************************************************************************/
workload_file_30 VARCHAR2(128) := 'f:\dwfx_xml\frame.<B style="COLOR: black; BACKGROUND-COLOR: #99ff99">xml</B>';
currentFLMC VARCHAR2(128);
CURSOR cur_mc IS
SELECT DISTINCT 名称 FROM frame;
CURSOR cur IS
select 名称, 分类名称, 人数
FROM frame
WHERE 名称 = currentFLMC
ORDER BY 分类名称 DESC;
personRow cur%ROWTYPE; --获取游标的行变量
doc xmlDom.DOMDocument := xmldom.newDOMDocument; -- 创建文档对象
main_node xmlDom.DOMNode := xmldom.makeNode(doc); -- 获得文档节点
root_elmt xmlDom.DOMElement := xmldom.createElement(doc,
'多维分析展示系统'); -- 创建根元素
--==================================================
--以下定义元素
tjfs_elmt xmlDom.DOMElement; --定义统计方式元素
fl_elmt xmlDom.DOMElement; --定义分类元素
--==================================================
--以下定义节点
root_node xmlDom.DOMNode; --定义统计数据节点
tjfs_node xmlDom.DOMNode; --定义统计方式节点
fl_node xmlDom.DOMNode; --定义分类节点
BEGIN
-- 向文档节点加入根节点:<多维分析展示系统></多维分析展示系统>
root_node := xmldom.appendChild(main_node, xmldom.makeNode(root_elmt));
FOR cur_tjlx_loop IN cur_mc LOOP
currentFLMC := cur_tjlx_loop.名称;
--===========================================================================--
--创建统计类型节点
--===========================================================================--
tjfs_elmt := xmldom.createElement(doc, '统计方式'); --创建统计数据
tjfs_node := xmldom.appendChild(root_node, xmldom.makeNode(tjfs_elmt));
xmlDom.SETATTRIBUTE(tjfs_elmt, '名称', cur_tjlx_loop.名称);
--===========================================================================--
--创建各统计类别下的统计指标项
--===========================================================================--
--打开游标
OPEN cur;
--遍历游标
LOOP
FETCH cur
INTO personRow;
EXIT WHEN cur%NOTFOUND;
--===========================================================================--
fl_elmt := xmldom.createElement(doc, '分类'); --创建分类元素
fl_node := xmldom.appendChild(tjfs_node, xmldom.makeNode(fl_elmt));
--===========================================================================--
--向PERSON节点加入属性下列属性
xmlDom.SETATTRIBUTE(fl_elmt, '分类名称', personRow.分类名称);
xmlDom.SETATTRIBUTE(fl_elmt, '人数', personRow.人数);
--===========================================================================--
END LOOP;
CLOSE cur;
END LOOP;
--写入硬盘
xmlDom.writeToFile(doc, workload_file_30, 'UTF-8');

--发送文件到web服务器中
--Pr_Ftp ( 'ftp -s:D:\gds_oemrep_xml_data\autoftp.conf' );
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SQLERRM);
RAISE;
END Pr_Frame_Xml_Gen;

CREATE OR REPLACE PROCEDURE Pr_Frame_Xml_Gen IS
/******************************************************************************
利用job来调度该存储过程将公共数据库的统计数据生成为xml文件，以便多维分析系统生成饼图数据。
作者：李凯飞
编写时间：2009-08-05
******************************************************************************/
workload_file_30 VARCHAR2(128) := 'f:\dwfx_xml\frame.xml';
currentFLMC VARCHAR2(128);
CURSOR cur_mc IS
SELECT DISTINCT 名称 FROM frame;
CURSOR cur IS
select 名称, 分类名称, 人数
FROM frame
WHERE 名称 = currentFLMC
ORDER BY 分类名称 DESC;
personRow cur%ROWTYPE; --获取游标的行变量
doc xmlDom.DOMDocument := xmldom.newDOMDocument; -- 创建文档对象
main_node xmlDom.DOMNode := xmldom.makeNode(doc); -- 获得文档节点
root_elmt xmlDom.DOMElement := xmldom.createElement(doc,
'多维分析展示系统'); -- 创建根元素
--==================================================
--以下定义元素
tjfs_elmt xmlDom.DOMElement; --定义统计方式元素
fl_elmt xmlDom.DOMElement; --定义分类元素
--==================================================
--以下定义节点
root_node xmlDom.DOMNode; --定义统计数据节点
tjfs_node xmlDom.DOMNode; --定义统计方式节点
fl_node xmlDom.DOMNode; --定义分类节点
BEGIN
-- 向文档节点加入根节点:<多维分析展示系统></多维分析展示系统>
root_node := xmldom.appendChild(main_node, xmldom.makeNode(root_elmt));
FOR cur_tjlx_loop IN cur_mc LOOP
currentFLMC := cur_tjlx_loop.名称;
--===========================================================================--
--创建统计类型节点
--===========================================================================--
tjfs_elmt := xmldom.createElement(doc, '统计方式'); --创建统计数据
tjfs_node := xmldom.appendChild(root_node, xmldom.makeNode(tjfs_elmt));
xmlDom.SETATTRIBUTE(tjfs_elmt, '名称', cur_tjlx_loop.名称);
--===========================================================================--
--创建各统计类别下的统计指标项
--===========================================================================--
--打开游标
OPEN cur;
--遍历游标
LOOP
FETCH cur
INTO personRow;
EXIT WHEN cur%NOTFOUND;
--===========================================================================--
fl_elmt := xmldom.createElement(doc, '分类'); --创建分类元素
fl_node := xmldom.appendChild(tjfs_node, xmldom.makeNode(fl_elmt));
--===========================================================================--
--向PERSON节点加入属性下列属性
xmlDom.SETATTRIBUTE(fl_elmt, '分类名称', personRow.分类名称);
xmlDom.SETATTRIBUTE(fl_elmt, '人数', personRow.人数);
--===========================================================================--
END LOOP;
CLOSE cur;
END LOOP;
--写入硬盘
xmlDom.writeToFile(doc, workload_file_30, 'UTF-8');

--发送文件到web服务器中
--Pr_Ftp ( 'ftp -s:D:\gds_oemrep_xml_data\autoftp.conf' );
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE(SQLERRM);
RAISE;
END Pr_Frame_Xml_Gen;


4. 执行后，在oracle 9i中，运行正常，在oracle10中执行 xmlDom.writeToFile时报
ora-29280 ora-06512 SYS.UTL_FILE 路径错误.
解决方式如下：
1、创建你打算输出文件的目录(mkdir dwfx_xml),如：f:\dwfx_xml
2、用文本编辑器打开x:\oracle\product\10.2.0\db_1\database\initkyy.ora文件；
3、在后面追加如下行：
*.utl_file_dir='F:\dwfx_xml'
4、重新启动数据库；
5、在sqlplus中用下面的命令检查是否生效
SQL> show parameter utl_file_dir;
NAME TYPE VALUE
------------------------------------ ----------- --------------
utl_file_dir string F:\dwfx_xml
如果utl_file_dir 参数的value不是你设置的目录或为空(缺省为空)，则说明你的设置未生效。



5.生成后内容如下：



Xml代码
<?<B style="COLOR: black; BACKGROUND-COLOR: #99ff99">xml</B> version="1.0" encoding="UTF-8"?>
<多维分析展示系统>
<统计方式 名称="教职工按学历分布饼状图">
<分类 分类名称="专科及以下" 人数="3650"/>
<分类 分类名称="硕士" 人数="1014"/>
<分类 分类名称="博士" 人数="907"/>
<分类 分类名称="本科" 人数="2019"/>
</统计方式>
<统计方式 名称="研究生政治面貌分布情况统计饼图">
<分类 分类名称="中国农工民主党党员" 人数="12"/>
<分类 分类名称="无党派民主人士" 人数="1"/>
<分类 分类名称="群众" 人数="1605"/>
<分类 分类名称="九三学社社员" 人数="2"/>
</统计方式>
</多维分析展示系统>

<?xml version="1.0" encoding="UTF-8"?>
<多维分析展示系统>
<统计方式 名称="教职工按学历分布饼状图">
<分类 分类名称="专科及以下" 人数="3650"/>
<分类 分类名称="硕士" 人数="1014"/>
<分类 分类名称="博士" 人数="907"/>
<分类 分类名称="本科" 人数="2019"/>
</统计方式>
<统计方式 名称="研究生政治面貌分布情况统计饼图">
<分类 分类名称="中国农工民主党党员" 人数="12"/>
<分类 分类名称="无党派民主人士" 人数="1"/>
<分类 分类名称="群众" 人数="1605"/>
<分类 分类名称="九三学社社员" 人数="2"/>
</统计方式>
</多维分析展示系统>