Table of contents
Collapse the table of content
Expand the table of content

Connect Property Example (VBScript)

office 365 dev account|Last Updated: 6/12/2017
1 Contributor

Applies to: Access 2013 | Access 2016

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"> 

The following example shows how to set the Connect property at run time in VBScript code. To test this example, copy and paste this code between the and tags in a normal HTML document and name it ConnectVBS.asp. ASP script will identify your server.

<!-- BeginConnectVBS --><%@ Language=VBScript %>
<title>ADO Connect Property</title><%' local style sheet used for display%>
BODY {font-family: 'Verdana','Arial','Helvetica',sans-serif;
}.tbody {
text-align: center;background-color: #f7efde;
font-family: 'Verdana','Arial','Helvetica',sans-serif;font-size: x-small;
<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">
</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">
<h4>To make data grid appear, click 'Run' to see the connect string in text box above.
<Script Language="VBScript">' Set parameters of RDS.DataControl at Run Time
Sub Run_OnClickDim Cnxn
' build connection stringCnxn = "Provider='sqloledb';"
Cnxn = Cnxn &; "Data Source="Cnxn = Cnxn &; document.frmInput.txtDataSource.value &; ";"
Cnxn = Cnxn &; "Initial Catalog='Northwind';"Cnxn = Cnxn &; "Integrated Security='SSPI';"
' assign the valuedocument.frmInput.txtConnect.value = Cnxn
MsgBox "Here we go!"' set RDS properties
RDS.Server = document.frmInput.txtServer.valueRDS.SQL = document.frmInput.txtSQL.value
RDS.Connect = document.frmInput.txtConnect.valueRDS.Refresh
End Sub</Script>
<!-- EndConnectVBS -->

Access for developers forum on MSDN
Access help on
Access help on
Search for specific Access error codes on Bing
Access forums on UtterAccess
Access wiki on UtterAcess
Access developer and VBA programming help center (FMS)
Access posts on StackOverflow

© 2018 Microsoft