VB6 RecordSet与XML转换

Public Function SaveRSToXML(ByVal ConnectionString As String, ByVal strSQL As String) As String
    Dim oCn As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
    Dim oStream As New ADODB.Stream
    
    oCn.Open ConnectionString
    oRs.Open strSQL, oCn, adOpenKeyset, adLockReadOnly
    oRs.Save oStream, adPersistXML
    SaveRSToXML = oStream.ReadText
    
    oStream.Close
    Set oStream = Nothing
    
    oRs.Close
    Set oRs = Nothing
    
    oCn.Close
    Set oCn = Nothing
End Function

Public Function RecordsetFromXMLString(ByVal sXml As String) As ADODB.Recordset
    Dim oStream As ADODB.Stream
    Set oStream = New ADODB.Stream
    
    oStream.Open
    oStream.WriteText sXml

    oStream.Position = 0

    Dim oRecordset As ADODB.Recordset
    Set oRecordset = New ADODB.Recordset
       
    oRecordset.Open oStream

    oStream.Close
    Set oStream = Nothing

    Set RecordsetFromXMLString = oRecordset

    Set oRecordset = Nothing
End Function


  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值