xml写入oracle数据库,Oracle解释xml文档存入数据库

create or replace procedure add_to_stockmarket

(fileName IN varchar2,recordName IN varchar2)

as

document xmldom.DOMDocument;--声明文档对象模型

subelement xmldom.DOMElement;--声明元素类型

nodelistStock xmldom.DOMNodeList;

nodelistStockChild xmldom.DOMNodeList;

stock_code char(6);--stock字段

stock_name varchar2(30);--stockname字段

stock_shortname varchar(30);--stockshortname字段

recordCountOuter number;--存储xml文档中stock元素的个数

begin

document:=xmlparser.parse(fileName);--解析xml文档

subelement:=xmldom.getDocumentElement(document);--获得根元素

nodelistStock:=xmldom.getElementsByTagName(subelement,recordName);

recordCountOuter:=xmldom.getLength(nodelistStock);

for outerCycle in 0..recordCountOuter-1 loop

nodelistStockChild:=xmldom.getChildNodes(xmldom.item(nodelistStock,outerCycle));

stock_code:=xmldom.getNodeValue(xmldom.getFirstChild(xmldom.item(nodelistStockChild,0)));

stock_name:=xmldom.getNodeValue(xmldom.getFirstChild(xmldom.item(nodelistStockChild,1)));

stock_shortname:=xmldom.getNodeValue(xmldom.getFirstChild(xmldom.item(nodelistStockChild,2)));

insert into stockmarket values(stock_code,stock_name,stock_shortname);

end loop;

commit;

end;