7,763
社区成员
发帖
与我相关
我的任务
分享
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