如何使用VB读取XML文件中的数据?

Question

如何使用VB读取XML文件中的数据?麻烦了

Answer 1

Option ExplicitDim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
    rs.CursorLocation = adUseClient
    rs.Open "Select * from students", cn, adOpenStatic, adLockBatchOptimistic
    MsgBox rs.RecordCount
    '保存为XML
    rs.Save "c:\bbb.xml", adPersistXML
    rs.Close
    '读取XML文件
    rs.Open "c:\bbb.xml", cn, adOpenStatic, adLockReadOnly, adCmdFile
    MsgBox rs.RecordCount
    rs.Close
End SubPrivate Sub Form_Load()
    If cn.State = 1 Then
        cn.Close
    End If
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
End Sub

Answer 2

在工程里引用Microsoft XML,v3.0,然后用DOM对象对XML文件进行操作
Set w_XmlDoc = CreateObject("Msxml2.DOMDocument")
w_XmlDoc.async = False
w_XmlDoc.load("c:\a.xml")
...........................

Answer 3

rs.Save "c:\bbb.xml", adPersistXML
能不能保存到STRING变量,不保存为文件啊???