XML与ADODB.Recordset

fan0217

1. 
   
2. Public Function ReadXml(xmlFile As String) As ADODB.Recordset
   
3.     Dim rs As New ADODB.Recordset
   
4.         rs.Open xmlFile, "Provider=MSPersist", , , adCmdFile
   
5.     Set ReadXml = rs
   
6.     Set rs = Nothing
   
7. End Function
   
8. Public Sub SaveXml(sql As String, xmlFile As String)
   
9.     Dim conn As New ADODB.Connection
   
10.     Dim rs As New ADODB.Recordset
    
11.     Set conn = CurrentProject.Connection
    
12.         rs.Open sql, conn, adOpenKeyset, adLockReadOnly
    
13.         rs.Save xmlFile, adPersistXML
    
14.     Set rs = Nothing
    
15.     Set conn = Nothing
    
16. End Sub
    
17. Private Sub DelFile(xmlFile As String)
    
18.     Dim fso
    
19.         Set fso = CreateObject("Scripting.FileSystemObject")
    
20.         If fso.FileExists(xmlFile) Then
    
21.             fso.DeleteFile xmlFile
    
22.         End If
    
23.     Set fso = Nothing
    
24. End Sub
    
25. Sub ReadXmlTest()
    
26.     Dim strXmlFile As String
    
27.     Dim rs As New ADODB.Recordset
    
28.    
    
29.         strXmlFile = "C:\Test.xml"
    
30.         Set rs = ReadXml(strXmlFile)
    
31.         
    
32.         Do While Not rs.EOF
    
33.             Debug.Print rs("帐目编号")
    
34.             rs.MoveNext
    
35.         Loop
    
36. End Sub
    
37. Sub SaveXmlTest()
    
38.     Dim strXmlFile As String, strSQL As String
    
39.         strSQL = "SELECT * FROM 帐目;"
    
40.         strXmlFile = "C:\Test.xml"
    
41.         DelFile strXmlFile
    
42.         SaveXml strSQL, strXmlFile
    
43. End Sub
    
44. 
    
45. 
    

复制代码

用这样的方法，我们可以持久保存ADODB.Recordset，也可以替代临时表使用。

tmtony

这个是否也要引用xml

fan0217

原帖由 tmtony 于 2008-8-31 22:40 发表
这个是否也要引用xml

对，也需要引用xml