Set r = New ADOR.Recordset r.fields.Append "1", adVarChar, 60 r.fields.Append "2", adVarChar, 60
r.CursorType = adOpenDynamic r.open
Dim xmlDom As New DOMDocument Dim xmlNode As IXMLDOMElement Dim i As Integer
Dim xNode As IXMLDOMNode
If xmlDom.Load("D:\test.xml") Then
Set xmlNode = xmlDom.documentElement.childNodes(0)
For i = 0 To xmlNode.childNodes.length - 1 With r .AddNew .fields(0).Value = xmlNode.childNodes(i).childNodes(0).Text .fields(1).Value = xmlNode.childNodes(i).childNodes(1).Text
用rs.open "xx.xml"
之后将rs邦定到datagrid上
Set r = New ADOR.Recordset
r.fields.Append "1", adVarChar, 60
r.fields.Append "2", adVarChar, 60
r.CursorType = adOpenDynamic
r.open
Dim xmlDom As New DOMDocument
Dim xmlNode As IXMLDOMElement
Dim i As Integer
Dim xNode As IXMLDOMNode
If xmlDom.Load("D:\test.xml") Then
Set xmlNode = xmlDom.documentElement.childNodes(0)
For i = 0 To xmlNode.childNodes.length - 1
With r
.AddNew
.fields(0).Value = xmlNode.childNodes(i).childNodes(0).Text
.fields(1).Value = xmlNode.childNodes(i).childNodes(1).Text
End With
Next
Set DataGrid1.DataSource = r