ConvertToString-Methode (Beispiel) (VBScript)
Wichtig
Ab Windows 8 und Windows Server 2012 sind RDS-Serverkomponenten nicht mehr im Windows-Betriebssystem enthalten (weitere Details finden Sie unter Windows 8 und Windows Server 2012 Compatibility Cookbook). RDS-Clientkomponenten werden in einer zukünftigen Version von Windows entfernt. Vermeiden Sie die Verwendung dieses Features in neuer Entwicklungsarbeit, und planen Sie, Anwendungen zu ändern, die derzeit dieses Feature verwenden. Anwendungen, die RDS verwenden, sollten zu WCF Data Servicemigrieren.
Das folgende Beispiel zeigt, wie Sie ein Recordset- mithilfe der RDSServer.DataFactory ConvertToString--Methode in eine MIME-codierte Zeichenfolge konvertieren. Anschließend wird gezeigt, wie die Zeichenfolge wieder in ein Recordset-konvertiert werden kann. Schneiden Sie den folgenden Code aus, und fügen Sie ihn in Editor oder einem anderen Texteditor 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 -->