ConvertToString-Methode – Beispiel (VBScript)
Wichtig
Ab Windows 8 und Windows Server 2012 sind RDS-Serverkomponenten nicht mehr im Windows-Betriebssystem enthalten (weitere Informationen finden Sie in den jeweiligen Kompatibilitäts-Cookbooks zu Windows 8 und Windows Server 2012). RDS-Clientkomponenten werden in einer zukünftigen Version von Windows entfernt. Nutzen Sie diese Funktionen bei Neuentwicklungen nicht mehr, und planen Sie die Änderung von Anwendungen, die diese Funktion zurzeit verwenden. Anwendungen, die RDS verwenden, sollten zu WCF Data Service migriert werden.
Im folgenden Beispiel wird gezeigt, wie ein Recordset mithilfe der RDSServer.DataFactory ConvertToString-Methode in eine MIME-codierte Zeichenfolge konvertiert wird. Anschließend wird gezeigt, wie die Zeichenfolge wieder in ein Recordset konvertiert werden kann. Schneiden Sie den folgenden Code aus, fügen Sie ihn in Editor oder einen anderen Text-Editor ein, und speichern Sie ihn als ConvertToString.htm.
<!-- BeginConvertToStringVBS -->
<HTML>
<HEAD><TITLE>ConvertToString 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 = "https://<%=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;Integrated Security='SSPI';">
<BR>
Query:
<INPUT TYPE=Text NAME=txtQueryRecordset SIZE=50
VALUE="select * from authors">
<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>
<!-- EndConvertToStringVBS -->