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

[y_shen]

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

[feixuehenshui]

关注 ……

[Intelement]

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)

[y_shen]

在内存中，不是保存为文件！

[y_shen]

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

[老熊宝宝]

完全可以。
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

[zincoh]

dim dom as object
set dom=createobject("msxml2.domdocument")

.........

rs.save dom , adPersistXML(保存为DOM对象，可以用dom.xml方法取到字符串)

rs.open dom , , 3, 3（打开一个由Recordset保存的DOM对象）