解决在Oracle表数据和xml文件间相互导入导出的PL/SQL 过程

最新推荐文章于 2023-06-12 16:58:50 发布

bobojava

最新推荐文章于 2023-06-12 16:58:50 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏：数据库文章标签： xml oracle email sql 文档数据库

本文链接：https://blog.youkuaiyun.com/bobojava/article/details/4512240

数据库专栏收录该内容

3 篇文章

订阅专栏

网上很多导入版本的都是9g下运行，直接输入文件路径，在10g下运行会报找不到路径的错误，修改如下：

1.先创建DIRECTORY：

CREATE OR REPLACE DIRECTORY DIR AS 'C:/xml/';

2.为用户分配权限：

GRANT READ ON DIRECTORY DIR TO maximo;

3.修改解析文件路径：
原来 xmlparser.parse(p,xmlfile);

修改后 xmlparser.parse(p,'DIR'||'/' ||xmlfile);

4.调用时直接输入文件名即可。

exec xml2db('people.xml');

success

5.导出暂时还没有测试。

以下内容为转载后修改：

已知格式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,'DIR'||'/' ||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元素