Recordset、SourceRecordset プロパティの例 (VBScript)

この例では、既定のビジネスオブジェクトである RDSServer.DataFactory の必須パラメータを実行時に設定する方法を示します。

この例をテストするには、このコードをコピーして、通常の HTML 文書の <Body> タグと </Body> タグの間に貼り付け、「SourceRS.asp」という名前を付けて保存してください。ASP スクリプトでサーバーを識別しています。

<Center>
<H2>RDS API Code Examples</H2>
<HR>
<H3>Using SourceRecordset and Recordset with RDSServer.DataFactory</H3>
<!-- RDS.DataSpace ID RDS1 -->
<OBJECT ID="RDS1" WIDTH=1 HEIGHT=1 
CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36">
</OBJECT>

<!-- RDS.DataControl with parameters set at Run Time -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
    ID=RDC WIDTH=1 HEIGHT=1>
</OBJECT>

<TABLE DATAsrc=#rdc>
    <TR>
        <TD> <INPUT DATAFLD="FirstName" SIZE=15> </TD>
        <TD> <INPUT DATAFLD="LastName" SIZE=15 id=text1 name=text1> </TD>
        <TD> <INPUT DATAFLD="Title" SIZE=15 id=text2 name=text2> </TD>
        <TD> <INPUT DATAFLD="Type" SIZE=15 id=text3 name=text3> </TD>
        <TD> <INPUT DATAFLD="Email" SIZE=15 id=text4 name=text4> </TD>
    </TR>
</TABLE>
<HR>
<Input Size=70 Name="txtServer" Value="http://<%=Request.ServerVariables("SERVER_NAME")%>"><BR>
<Input Size=70 Name="txtConnect" Value="Provider=SQLOLEDB;User Id=rdsdemo;Password=rdsdemo;Initial Catalog=AddrBookDB"><BR>
<Input Size=70 Name="txtSQL" Value="Select * from Employee">
<HR>
<INPUT TYPE=BUTTON NAME="Run" VALUE="Run"><BR>

</Center>
<Script Language="VBScript">
<!--
Dim ADF
Dim strServer
strServer = "http://<%=Request.ServerVariables("SERVER_NAME")%>"

Sub Run_OnClick()
    Dim objADORs            
    ' Create RDSServer.DataFactory Object
    Set RDF = RDS1.CreateObject("RDSServer.DataFactory", strServer)                  
    ' Get Recordset
    Set objADORs = RDF.Query(txtConnect.Value,txtSQL.Value)

    ' Set parameters of RDS.DataControl at run time.
    RDC.Server = txtServer.Value
    RDC.SQL = txtSQL.Value
    RDC.Connect = txtConnect.Value
    RDC.Refresh
End Sub
-->
</Script>