Connect プロパティの例 (VBScript)

Connect プロパティの例 (VBScript)

このコードでは、デザイン時における Connect プロパティの設定方法を示します。

<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="ADC1">
.
    <PARAM NAME="SQL" VALUE="Select * from Sales">
    <PARAM NAME="CONNECT" VALUE="Provider=SQLOLEDB;User Id=sa;Password=;Initial Catalog=Pubs;Data Source=MyServer;">
    <PARAM NAME="Server" VALUE="http://MyWebServer">
.
</OBJECT>

この例では、VBScript コード内で Connect プロパティを実行時に設定する方法を示します。

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

<H2>RDS API Code Examples </H2>
<HR>
<H3>Set Connect Property at Run Time</H3>
<!-- RDS.DataControl with no parameters set at design time -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
    ID=RDS HEIGHT=1 WIDTH=1>
</OBJECT>

<TABLE DATAsrc=#rds>
<TBODY>
  <TR>
    <TD><SPAN DATAFLD="FirstName"></SPAN></TD>
    <TD><SPAN DATAFLD="LastName"></SPAN></TD>
  </TR>
</TBODY>        
</TABLE>

SERVER: <Input Size=70 Name="txtServer" Value="http://<%=Request.ServerVariables("SERVER_NAME")%>"><BR>
CONNECT: <Input Size=70 Name="txtConnect"><BR>
SQL: <Input Size=70 Name="txtSQL" Value="Select * from Employee">
<BR>
<INPUT TYPE=BUTTON NAME="Run" VALUE="Run">
<BR>
To Fill Grid enter Connect String in middle text box, try<BR> 
<B>Provider=SQLOLEDB;User Id=rdsdemo;Password=rdsdemo;Initial Catalog=AddrBookDB;Data Source=MyServer;</B>

<Script Language="VBScript">
<!--
' Set parameters of RDS.DataControl at Run Time
Sub Run_OnClick
    RDS.Server = txtServer.Value
    RDS.SQL = txtSQL.Value
    RDS.Connect = txtConnect.Value
    RDS.Refresh
End Sub
-->
</Script>