VB程序如何处理XML文件

[林伽一]

请问各位：
如何在VB中实现对XML文件操作：创建、读取、修改等等。

[林伽一]

怎么样才能生成自己想要的XML格式的文件呢。
比方说，我获取或者输入了一些数据，
我需要将这些数据按照一定的格式存为XML文件，
具体代码如何实现呢？

[bucher]

最简单的方法是自己生成XML串，XML本来就是一个规范而已
也可以使用MSXML的XML对象模型

[xiaobinliu]

set aa=CreateObject("msxml2.domdocument")
aa.**

[林伽一]

有没有方便的方法生成XML串哦
可不要只能是纯粹编程生成一个XML文件，未必太麻烦了吧
VB中有没有可能直接对XML文件中的各个节点进行操作呢？
谢谢大家了

[kimryo]

有个接口可用，直接CreateObject就行了。

[bucher]

ADO的Recordset对象可以把其中的数据变成XML

[echos]

Private Sub SaveAsXML(theRecordset As ADODB.Recordset)
'save in binary format
theRecordset.Save App.Path & "\testdata.xml", adPersistXML
End Sub

[echos]

或者，
Set oStream = New ADODB.Stream
rs.Save oStream, adPersistXML

oStream里就是xml格式化的冬冬

[林伽一]

我用DOM来处理了
整理好了再发出来

[林伽一]

Dim XmlDoc As MSXML2.DOMDocument
Dim root As IXMLDOMElement
Dim DomEle As IXMLDOMElement
Dim XmlText As IXMLDOMText

Set XmlDoc = New MSXML2.DOMDocument
XmlDoc.loadXML "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "gb2312" & Chr(34) & " ?><index></index>"
XmlDoc.Save "c:/test.xml"

XmlDoc.async = False
XmlDoc.Load "c:/test.xml"

Set root = XmlDoc.documentElement
Set DomEle = XmlDoc.createElement("item1")
root.appendChild DomEle

Set DomEle = XmlDoc.createElement("sub_item1")
root.lastChild.appendChild DomEle
Set XmlText = XmlDoc.createTextNode("sub_item1中的值")
DomEle.appendChild XmlText

将创建如下文件
<?xml version="1.0" encoding"gb2312" ?>
<index>
<item1>
<sub_item1>sub_item1中的值</sub_item1>
</item1>
</index>