Partager via

ConvertToString (méthode) – Exemple (VBScript)

S’applique à : Access 2013 | Access 2016

L’exemple suivant montre comment convertir un objet Recordset en chaîne encodée MIME à l’aide de la méthode RDSServer.DataFactoryConvertToString . Il montre ensuite comment la chaîne peut être reconverti en objet Recordset. Coupez et collez le code suivant dans le Bloc-notes ou un autre éditeur de texte et enregistrez-le sous 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 -->

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.