Oracle导出XML文件

1、创建目录-- Create directory

create or replace directory XML_PATH  as 'D:\AAA';

?2、导出XML

create or replace procedure cllx_db2xmlis   doc xmldom.DOMDocument;   ret xmldom.DOMNode;   rootnode xmldom.DOMNode;   xmlfile varchar2(100) := 'XML_PATH'||'\'||'cllx.xml';   cursor cur_cllx is select * from code where dmlb='1';   procedure addcllx(doc xmldom.DOMDocument,parentnode xmldom.DOMNode,dmz varchar2,dmsm varchar2)   is      cllxelem xmldom.DOMElement;      cllxnode xmldom.DOMNode;      itemelem xmldom.DOMElement;      itemnode xmldom.DOMNode;      text xmldom.DOMText;      begin        cllxelem := xmldom.createElement(doc,'dmxx');        cllxnode := xmldom.appendChild(parentnode,xmldom.makeNode(cllxelem));        itemelem := xmldom.createElement(doc,'dmz');        itemnode := xmldom.appendChild(cllxnode,xmldom.makeNode(itemelem));        text := xmldom.createTextNode(doc,dmz);        itemnode := xmldom.appendChild(itemnode,xmldom.makeNode(text));        itemelem := xmldom.createElement(doc,'dmms');        itemnode := xmldom.appendChild(cllxnode,xmldom.makeNode(itemelem));        text := xmldom.createTextNode(doc,dmsm);        itemnode := xmldom.appendChild(itemnode,xmldom.makeNode(text));      end addcllx;begin      --创建一个新的文档对象      doc := xmldom.newDOMDocument;      --根标签      rootnode := xmldom.makeNode(xmldom.createElement(doc,'jtfs'));      ret := xmldom.appendChild(xmldom.makeNode(doc),rootnode);      --遍历结果集      for v_row in cur_cllx loop          addcllx(doc,ret,v_row.dmz,v_row.dmsm1);      end loop;        --设置版本号      xmldom.setVersion(doc,'1.0');      --把数据写入文件      xmldom.writeToFile(doc,xmlfile,'GBK');      --释放文档对象资源      xmldom.freeDocument(doc);end cllx_db2xml;