十万火急,请各位兄弟姐妹帮忙!!!! VB 中如何将XML信息显示在DataGrid中,给我个例子,马上给分!!!!!!!

Question

RT谢谢了

Answer 1

写一个xml的解析函数，然后可以去构建一个recordset对象集绑定到datagrid中

Answer 2

呵呵！接分来了！！！
     Dim r As ADOR.Recordset
   
    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