ConvertToString メソッドの使用例 (VBScript)

適用先: Access 2013 | Access 2016

次の例は、RDSServer.DataFactoryConvertToString メソッドを使用して Recordset を MIME でエンコードされた文字列に変換する方法を示しています。 次に、文字列を Recordset に変換する方法を示 します。 次のコードを切り取ってメモ帳または別のテキスト エディターに貼り付け、 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 -->

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on