在Oracle表数据和xml文件间相互导入导出的PL/SQL 过程-CSDN博客

学校里要求做个题，题目要求是写出将已知格式xml文件中的数据导入Oracle数据库、把数据库中的数据导出成xml文件的过程。
已知格式xml文件如下：

<? xml version="1.0" ?>

< PEOPLE >

< PERSON PERSONID ="E01" >

< NAME > Tony Blair </ NAME >

< ADDRESS > 10 Downing Street, London, UK </ ADDRESS >

< TEL > (061) 98765 </ TEL >< FAX > (061) 98768 </ FAX >

< EMAIL > blair@everywhere.com </ EMAIL >

</ PERSON >

< PERSON PERSONID ="E02" >

< NAME > Bill Clinton </ NAME >

< ADDRESS > White House, USA </ ADDRESS >

< TEL > (001) 6400 98765 </ TEL >< FAX > (001) 6400 98769 </ FAX >

< EMAIL > bill@everywhere.com </ EMAIL >

</ PERSON >

< PERSON PERSONID ="E03" >

< NAME > Tom Cruise </ NAME >

< ADDRESS > 57 Jumbo Street, New York, USA </ ADDRESS >

< TEL > (001) 4500 67859 </ TEL >< FAX > (001) 4500 67895 </ FAX >

< EMAIL > cruise@everywhere.com </ EMAIL >

</ PERSON >

< PERSON PERSONID ="E04" >

< NAME > Linda Goodman </ NAME >

< ADDRESS > 78 Crax Lane, London, UK </ ADDRESS >

< TEL > (061) 54 56789 </ TEL >< FAX > (061) 54 56772 </ FAX >

< EMAIL > linda@everywhere.com </ EMAIL >

</ PERSON >

</ PEOPLE >

于是写出过程如下：

-- 建表

CREATE TABLE PEOPLE

(

PERSONID VARCHAR2 ( 10 ) PRIMARY KEY ,

NAME VARCHAR2 ( 20 ),

ADDRESS VARCHAR2 ( 60 ),

TEL VARCHAR2 ( 20 ),

FAX VARCHAR2 ( 20 ),

EMAIL VARCHAR2 ( 40 )

);

-- 从xml文件载入数据保存到数据库的过程

create or replace procedure xml2db(xmlfile varchar2 ) as

p xmlparser.Parser;

doc xmldom.DOMDocument;

n xmldom.DOMNode;

nl xmldom.DOMNodeList;

len number ;

-- 根据PERSON结点生成插入SQL语句的过程

function insertsql(node xmldom.DOMNode) return varchar2

n xmldom.DOMNode;

nl xmldom.DOMNodeList;

len number ;

nnm xmldom.DOMNamedNodeMap;

isql varchar2 ( 200 );

begin

-- 取得PERSON结点所有属性

nnm : = xmldom.getAttributes(node);

isql : = ' insert into people values( ' ;

isql : = isql || '''' ;

-- 取得所有属性中的第一个属性，即"PERSONID"，并拼接到SQL语句中

isql : = isql || xmldom.getNodeValue(xmldom.item(nnm, 0 ));

isql : = isql || '''' ;

-- 取得PERSON结点下的所有结点，准备遍历

nl : = xmldom.getChildNodes(node);

len : = xmldom.getLength(nl);

for i in 0 .. len - 1 loop

-- 取出第i个结点

n : = xmldom.item(nl,i);

isql : = isql || ' , ' ;

isql : = isql || '''' ;

-- 将结点的文本值取出并拼接到SQL语句中

isql : = isql || xmldom.getNodeValue(xmldom.getFirstChild(n));

isql : = isql || '''' ;

end loop;

isql : = isql || ' ) ' ;

return isql;

end insertsql;

begin

p : = xmlparser.newParser;

xmlparser.parse(p,xmlfile);

-- 转换xml文件成DOM对像

doc : = xmlparser.getDocument(p);

xmlparser.freeParser(p);

-- 取出所有PERSON元素

nl : = xmldom.getElementsByTagName(doc, ' PERSON ' );

len : = xmldom.getLength(nl);

-- 清空people表的内容

delete from people;

for i in 0 .. len - 1 loop

-- 取出第i个PERSON元素

n : = xmldom.item(nl,i);

-- 执行插入该PERSON元素所用的SQL语句

execute immediate insertsql(n);

end loop;

commit ;

xmldom.freeDocument(doc);

end xml2db;

-- 将数据库中的数据导出成xml文件的过程

create or replace procedure db2xml(xmlfile varchar2 ) as

doc xmldom.DOMDocument;

ret xmldom.DOMNode;

peoplenode xmldom.DOMNode;

-- 遍历整个people表的游标

Cursor cur_people is select * from people;

-- 将people表中一行记录转换为元素

-- 并插入到DOM文档对像根结点PEOPLE下的过程

procedure addperson(doc xmldom.DOMDocument,people xmldom.DOMNode,

v_pid varchar2 ,v_name varchar2 ,v_addr varchar2 ,

v_tel varchar2 ,v_fax varchar2 ,v_email varchar2 )

personelem xmldom.DOMElement;

personnode xmldom.DOMNode;

itemelem xmldom.DOMElement;

itemnode xmldom.DOMNode;

text xmldom.DOMText;

begin

-- 创建PERSON结点

personelem : = xmldom.createElement(doc, ' PERSON ' );

-- 设置PERSONID属性

xmldom.setAttribute(personelem, ' PERSONID ' ,v_pid);

personnode : = xmldom.appendChild(peoplenode,xmldom.makeNode(personelem));

-- 向PERSON结点中添加NAME元素

itemelem : = xmldom.createElement(doc, ' NAME ' );

-- 将NAME结点添加到PERSON结点中

itemnode : = xmldom.appendChild(personnode,xmldom.makeNode(itemelem));

-- 创建文本结点

text : = xmldom.createTextNode(doc,v_name);

-- 将文本结点添加到NAME结点下，以构成完整NAME元素