ConvertToString Method Example (VBScript)
The following example shows how to convert a Recordset into a MIME encoded string using the RDSServer.DataFactory ConvertToString method. It then shows how the string can be converted back into a Recordset.
<HTML>
<HEAD><TITLE>ConverToString Example</TITLE><HEAD>
<BODY>
<SCRIPT LANGUAGE=VBSCRIPT>
Sub ConvertToStringX()
Dim objRs, objDF, strServer, vString
Const adcExecSync = 1
Const adcFetchUpFront = 1
' Replace value below with your server name to use without ASP.
strServer = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
Set objDF = RDS1.CreateObject("RDSServer.DataFactory", strServer)
Set objRs = objDF.Query(txtConnect.Value,txtQueryRecordset.Value)
' convert Recordset to MIME encoded string
vString = objDF.ConvertToString(objRs)
' display MIME string for demo purposes
txtRS.value = vString
' convert MIME string back to useable ADO Recordset
' using RDS.DataControl
RDC1.SQL = vString
RDC1.ExecuteOptions = adcExecSync
RDC1.FetchOptions = adcFetchUpFront
RDC1.Refresh
MsgBox "RecordCount = " & RDC1.Recordset.RecordCount
End Sub
</SCRIPT>
Connect String:
<INPUT TYPE=Text NAME=txtConnect SIZE=50
VALUE="Provider=sqloledb;Initial Catalog=pubs;User Id=sa;Password=;">
<BR>
Query:
<INPUT TYPE=Text NAME=txtQueryRecordset SIZE=50
VALUE="select * from jobs">
<BR>
<INPUT TYPE=Button VALUE="ConvertToString" OnClick="ConvertToStringX()">
<BR>
MIME Encoded RS: <BR>
<TEXTAREA NAME=txtRS ROWS=15 COLS=50 WRAP=virtual></TEXTAREA>
<!-- RDS.DataSpace ID RDS1 -->
<OBJECT ID="RDS1" WIDTH=1 HEIGHT=1
CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36">
</OBJECT>
<!-- RDS.DataControl ID RDC1 -->
<OBJECT ID="RDC1" WIDTH=1 HEIGHT=1
CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33">
</OBJECT>
</BODY>
</HTML>