Esempio di metodo ConvertToString (VBScript)
Importante
A partire da Windows 8 e Windows Server 2012, i componenti del server Servizi Desktop remoto non sono più inclusi nel sistema operativo Windows (vedere Windows 8 e Guida di riferimento per la compatibilità di Windows Server 2012 per altri dettagli). I componenti client di Servizi Desktop remoto verranno rimossi in una versione futura di Windows. Evitare di usare questa funzionalità nel nuovo lavoro di sviluppo e pianificare la modifica delle applicazioni che attualmente usano questa funzionalità. Le applicazioni che usano Servizi Desktop remoto devono eseguire la migrazione a WCF Data Service.
Nell'esempio seguente viene illustrato come convertire un Recordset in una stringa con codifica MIME usando il metodo RDSServer.DataFactory ConvertToString. Viene quindi illustrato come la stringa può essere convertita nuovamente in un oggetto Recordset . Tagliare e incollare il codice seguente nel Blocco note o in un altro editor di testo e salvarlo come 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 -->