Connect Property Example (VBScript)

This code shows how to set the Connect property at design time:

<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">
   <PARAM NAME="Server" VALUE="http://MyWebServer">
.
</OBJECT>

The following example shows how to set the Connect property at run time in VBScript code.

To test this example, cut and paste this code between the <Body> and </Body> tags in a normal HTML document and name it ConnectVBS.asp. ASP script will identify your server.

<!-- BeginConnectVBS -->
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>ADO Connect Property</title>
   
   <%' local style sheet used for display%>
<STYLE>
<!--
BODY {
   font-family: 'Verdana','Arial','Helvetica',sans-serif;
   BACKGROUND-COLOR:white;
   COLOR:black;
    }

.tbody { 
   text-align: center;
   background-color: #f7efde;
   font-family: 'Verdana','Arial','Helvetica',sans-serif; 
   font-size: x-small;
    }
-->
</STYLE>
</HEAD>

<BODY>
<h1>ADO Connect Property (RDS)</h1>

<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>
<% ' Bind table to control for data display  %>
<TABLE DATASRC=#RDS>
<TBODY>
  <TR class="tbody">
    <TD><SPAN DATAFLD="FirstName"></SPAN></TD>
    <TD><SPAN DATAFLD="LastName"></SPAN></TD>
  </TR>
</TBODY>
</TABLE>
<FORM name="frmInput">
   SERVER: <INPUT Name="txtServer" Size="103" Value="http://<%=Request.ServerVariables("SERVER_NAME")%>"><BR>
   DATA SOURCE: <INPUT Name="txtDataSource" Size="93" Value="<%=Request.ServerVariables("SERVER_NAME")%>"><BR>
   CONNECT: <INPUT Name="txtConnect" Size="100"><BR>
   SQL: <INPUT Name="txtSQL" Size="110" Value="Select FirstName, LastName from Employees">
   <BR>
   <INPUT TYPE=BUTTON NAME="Run" VALUE="Run">
   <h4>
   To make data grid appear, click to enter Connect string in text box above.
   </h4> 
</FORM>
<Script Language="VBScript">

   ' Set parameters of RDS.DataControl at Run Time
   Sub Run_OnClick

      Dim Cnxn
         ' build connection string
      Cnxn = "Provider=SQLOLEDB;"
      Cnxn = Cnxn & "Data Source="
      Cnxn = Cnxn & document.frmInput.txtDataSource.value & ";"
      Cnxn = Cnxn & "Initial Catalog=Northwind;"
      Cnxn = Cnxn & "User Id=sa;Password=;"
         ' assign the value
      document.frmInput.txtConnect.value = Cnxn
      MsgBox "Here we go!"
         ' set RDS properties
      RDS.Server = document.frmInput.txtServer.value
      RDS.SQL = document.frmInput.txtSQL.value
      RDS.Connect = document.frmInput.txtConnect.value
      RDS.Refresh

   End Sub

</Script>

</BODY>
</HTML>
<!-- EndConnectVBS -->

Connect Property Example (VBScript)

See Also