Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Connect Property Example (VBScript)

Connect Property Example (VBScript)

 
System_CAPS_importantImportant

Beginning with Windows 8 and Windows Server 2012, RDS server components are no longer included in the Windows operating system (see Windows 8 and Windows Server 2012 Compatibility Cookbook for more detail). RDS client components will be removed in a future version of Windows. Avoid using this feature in new development work, and plan to modify applications that currently use this feature. Applications that use RDS should migrate to WCF Data Service.

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;Integrated Security=SSPI;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 the 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 'Run' to see the 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 & "Integrated Security='SSPI';"
            ' 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 -->
Show:
© 2015 Microsoft