怎么在内存中实现RecordSet转化为XML

Question

rst.Save FileName:=strFileName, PersistFormat:=adPersistXML
Microsoft ActiveX Data Object 2.0 Library (Not OK)
Microsoft ActiveX Data Object 2.1 Library (OK)
Microsoft ActiveX Data Object 2.5 Library (OK)
Microsoft ActiveX Data Object 2.6 Library (OK)

Answer 1

完全可以。
ADO 2.5以后就已经支持将Recordset存入Stream对象内了。Dim RS As ADODB.Recordset
Dim DataStream As ADODB.Stream   
Set RS = cn.open(……）
Set DataStream = New ADODB.Stream
' Save the recordset object as XML into the stream
RS.Save DataStream, adPersistXML
' Read and pass the XML string from the Stream to the 
' SoapSerialized object
pSoapSerializer.writeXML DataStream.ReadText

Answer 2

怎么又能在内存中实现XML转化为RecordSet?

Answer 3

dim dom as object
set dom=createobject("msxml2.domdocument").........rs.save dom , adPersistXML(保存为DOM对象，可以用dom.xml方法取到字符串)rs.open dom , , 3, 3（打开一个由Recordset保存的DOM对象）