如何读取xml文件并将数据写到sql server 2000中

andysunlp 2008-10-09 09:18:04
如何读取xml文件并将数据写到sql server 2000中
...全文
46 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xjjrocker 2008-10-14
就是按照格式读取xml中相应节点的值和属性,然后自己插入数据库即可哦。
代码自己找吧,太多了。
回复
fangsp 2008-10-14
回复

uses msxml;
doc:IXMLDOMDocument;
budgetdoc:ixmlDomNode;
Rela:IxmlDOMNode;
rs:ixmldomnodelist;

//建立或取得XML结点
doc := CoDOMDocument.create;
doc.load('C:\temp.xml');
budgetDoc := doc.selectSingleNode('BudgetDoc');
rela := budgetdoc.SelectSingleNode('Relation');

//创建XML子结点
if not assigned(rela) then
begin
rela := doc.createElement('Relation');
rela.setAttribute('BudgetId',0);
rela.setAttribute('name','名称');
budgetdoc.appendChild(rela);
end;

//取子结点(序列)
rs := rela.selectNodes('Rela[@BudgetId="2" and @TaskId="8"]');
for i := 0 to rs.length -1 do
begin
s:= s + rs[i].attributes.getnameditem('NewRate').nodeValue;
end;

rela:=doc.ChildNodes.FindNode('DOMNode') as IxmlDOMNode;

//移除子结点
for i := rs.length -1 downto 1 do
rela.removeChild(rs[i])

//取父结点
if assigned(anode.parentNode) and (Anode.parentNode.nodeName='Task') then
result := Anode.parentNode;

//取属性
DOC.DocumentElement.Attributes['Name']
rela.Attributes['Name']
rs.Nodes[i].Attributes['Name']

Ajob:ixmldomnode;jobs:ixmldomNodeList;
jobs := Ajob.selectNodes('RCJ[@Attrib="'+AAttrib+'"]')

回复
gzmhero 2008-10-09
问得不明不白。

到底是什么样的xml?数据库是什么样的结构?
回复
发帖
数据库相关
创建于2007-08-02

2451

社区成员

Delphi 数据库相关
申请成为版主
帖子事件
创建了帖子
2008-10-09 09:18
社区公告
暂无公告