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;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 this code between the <Body> and </Body> tags in a normal HTML document and name it ConnectVBS.asp. ASP script will identify your server.

<%@ 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>

Connect Property Example (VBScript)

See Also