‘发送端
。。。。。。。。。。。。。。。。。。。。。。。
strSQL = "select * from member"
With rs
If .State = adStateOpen Then
.Close
End If
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.ActiveConnection = conn
.Open strSQL
End With
rs.Save AppPath + "member.XML", adPersistXML
。。。。。。。。。。。。。。。。。。。。。。。。。。
’接收端
。。。。。。。。。。。。。。。。。。。。。。。。。。
Set XMLDoc = New msxml2.DOMDocument
XMLDoc.Load AppPath + "member.XML"
Set xrs = New ADODB.Recordset
xrs.Open XMLDoc
。。。。。。。。。。。。。。。。。。。。。。。。。。