ConvertToString メソッドの例 (VB)

Public Sub ConvertToStringX()
    Dim oRDF As RDSServer.DataFactory
    Dim oRDC As RDS.DataControl
    Dim oRs As ADODB.Recordset
    Dim vString As Variant
    Dim sConnString As String
    Dim sSQL As String

    ' Create a DataFactory object
    Set oRDF = New RDSServer.DataFactory

    ' Get all of the Author records
    sConnString = "Provider=sqloledb;" & _
                        "Data Source=(local);" & _
                        "Initial Catalog=pubs;" & _
                        "Network Library=DBMSSOCN;" & _
                        "Trusted_Connection=Yes;"
    sSQL = "Select * From authors"
    Set oRs = oRDF.Query(sConnString, sSQL)
    Debug.Print oRs.RecordCount

    ' Convert the recordset into a MIME formatted string
    vString = oRDF.ConvertToString(oRs)

    ' Convert string value back into an ADO Recordset
    Set oRDC = New RDS.DataControl
    oRDC.SQL = vString
    oRDC.ExecuteOptions = adcExecSync
    oRDC.FetchOptions = adcFetchUpFront
    oRDC.Refresh
    Debug.Print oRDC.Recordset.RecordCount
End Sub