Freigeben über

ConvertToString-Methode (Beispiel) (VBScript)

Gilt für: Access 2013 | Access 2016

Das folgende Beispiel zeigt, wie ein Recordset mithilfe der RDSServer.DataFactoryConvertToString-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, vStringConst 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 stringvString = objDF.ConvertToString(objRs) 
' display MIME string for demo purposestxtRS.value = vString 
' convert MIME string back to useable ADO Recordset' using RDS.DataControl
RDC1.SQL = vString 
RDC1.ExecuteOptions = adcExecSyncRDC1.FetchOptions = adcFetchUpFront
RDC1.Refresh 
MsgBox "RecordCount = " & RDC1.Recordset.RecordCountEnd 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 -->

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.