如何用记录集读取XML?

Question

好象见过此用法,找不到了
就是
conn.connectstring="………………"　　'忘了
rs.open "c:\test.xml",conn然后就可以用rs("标签１")这样的值了

Answer 1

我的博客论坛有关于这个问题的www.yltyu.com

Answer 2

先对打开的recordset用save方法保存为xml文件，这个xml文件才可以用recordset的open打开..

Answer 3

示例：
    Dim rs As Recordset
    Dim i As Long
    Dim xmlFile As String
    
    xmlFile = "d:\MyXml.xml"
    
    Set rs = New Recordset
    With rs
        '创建一个测试记录集
        .Fields.Append "Name", adVarChar, 20
        .Fields.Append "Age", adInteger, 4
        .Open
        For i = 1 To 10
            .AddNew
            .Fields(0) = Chr(i + 65)
            .Fields(1) = 20 + i
            .Update
        Next
        '保存为xml
        .Save xmlFile, adPersistXML
        .Close
    End With
    Set rs = Nothing
    
    '打开持久记录集
    Set rs = New Recordset
    rs.Open xmlFile, "Provider=MSPersist", , , adCmdFile
    While Not rs.EOF
        Debug.Print rs!Name & "/" & rs!age
        rs.MoveNext
    Wend
    Set rs = Nothing