Question

vb6.0读写XML和XML与数据库进行数据交换的代码

有没有VB6.0里读写XML的好点的代码，或者插件呢？还有XML和数据库进行数据交换的简单实现方法。

Answer 1

对于XML文档，插入、修改、检索等数据操作可以通过一个XML解析器及其列举的一系列对象来完成。Microsoft的XML解析器驻留在名为msxml.dll的动态链接库文件中。因为msxml是一个COM对象，所以可以在任何兼容ActiveX的环境中使用它，例如在Visual Basic和ASP中。

（1）新建一个工程。在Form1中添加一个CommandButton控件。为了使用msxml解析器，必须事先设置工程项目对msxml.dll的引用。选择“工程”→“引用”命令，打开“引用”对话框，在此选择Microsoft XMLv2.6或更高版本。
（2）装载XML文档。遍历节点集合，可以使用Visual Basic的For Each…Next循环结构在节点对象集合中循环。在“显示XML数据”按钮事件代码后添加下列代码：
Private Sub Command1_Click()
Set xml = New DOMDocument
Call xml.Load(App.Path & "\index.xml") 'index.xml为描述图书信息的XML文档
Dim root As IXMLDOMElement
Set root = xml.documentElement
Dim node As IXMLDOMNode
For Each node In root.childNodes
List1.AddItem node.Text
Next
End Sub

可以参考以上方法，复杂的还得自己研究。

Answer 2

Dim domXmlDocument As System.Xml.XmlDocument
Dim tmpPath As String = AppTempFilePath
Dim xmlFile As String = tmpPath + "\testXml.xml"

'窗体加载事件
Private Sub TestXml_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'读xml过程测试通过
Dim domXmlDocument As System.Xml.XmlDocument
Dim tmpPath As String = AppTempFilePath
Dim xmlFile As String = tmpPath + "\testXml.xml"
Dim reader As System.Xml.XmlReader = Nothing
Try
reader = New Xml.XmlTextReader(xmlFile)
'reader.
While reader.Read
Me.lboxXml.Items.Add(reader.Name + reader.Value)
End While

Catch ex As Exception
MsgBox(ex.Message)
Finally
If Not (reader Is Nothing) Then
reader.Close()
End If
End Try

End Sub

'载入xml事件
Private Sub btnXmlLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXmlLoad.Click
'Me.lboxXml.Items.Clear()
''读xml过程测试通过

'Dim reader As System.Xml.XmlReader = Nothing
'Try
' reader = New Xml.XmlTextReader(xmlFile)
' While reader.Read
' Me.lboxXml.Items.Add(reader.Name + ":" + reader.Value)
' End While
'Catch ex As Exception
' MsgBox(ex.Message)
'Finally
' If Not (reader Is Nothing) Then
' reader.Close()
' End If
'End Try
Dim ds As New DataSet
Try