Export (0) Print
Expand All

SQL Property Example (VBScript)

Important note Important

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.

The following code shows how to set the RDS.DataControl SQL parameter at design time and bind it to a data-aware control using the database called Pubs, which ships with Microsoft SQL Server. To test the example, copy the following code into a normal ASP document named SQLDesignVBS.asp on your Web server.

<!-- BeginSQLDesignVBS -->
<%@ Language=VBScript %>
<html>
<head>
    <meta name="VI60_DefaultClientScript"  content=VBScript>
    <meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
    <title>SQL Property Example (VBScript)</title>
<style>
<!--
body {
   font-family: 'Verdana','Arial','Helvetica',sans-serif;
   BACKGROUND-COLOR:white;
   COLOR:black;
    }
.thead {
   background-color: #008080; 
   font-family: 'Verdana','Arial','Helvetica',sans-serif; 
   font-size: x-small;
   color: white;
   }
.thead2 {
   background-color: #800000; 
   font-family: 'Verdana','Arial','Helvetica',sans-serif; 
   font-size: x-small;
   color: white;
   }
.tbody { 
   text-align: center;
   background-color: #f7efde;
   font-family: 'Verdana','Arial','Helvetica',sans-serif; 
   font-size: x-small;
    }
-->
</style>
</head>

<body>
<h1>SQL Property Example (VBScript)</h1>

<!-- RDS.DataControl -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID=RDC HEIGHT=1 WIDTH=1>
   <PARAM NAME="SQL" VALUE="Select FirstName, LastName from Employees">
   <PARAM NAME="SERVER" VALUE="http://<%=Request.ServerVariables("SERVER_NAME")%>">
   <PARAM NAME="CONNECT" VALUE="Provider='sqloledb';Initial Catalog='Northwind';Integrated Security='SSPI';">
</OBJECT>

<!-- Data Table -->

<TABLE DATASRC=#RDC BORDER=1>
   <TR>
      <TD> <SPAN DATAFLD="FirstName"></SPAN> </TD>
      <TD> <SPAN DATAFLD="LastName"></SPAN> </TD>
   </TR>
</TABLE>

</body>
</html>
<!-- EndSQLDesignVBS -->

The following example shows how to set the necessary parameters of RDS.DataControl at run time. To test this example, cut and paste the following code into a normal ASP document and name it SQLRuntimeVBS.asp. ASP script will identify your server.

<!-- BeginSQLRuntimeVBS -->
<%@ Language=VBScript %>
<html>
<head>
    <meta name="VI60_DefaultClientScript"  content=VBScript>
    <meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
    <title>SQL Property Example (VBScript)</title>
<style>
<!--
body {
   font-family: 'Verdana','Arial','Helvetica',sans-serif;
   BACKGROUND-COLOR:white;
   COLOR:black;
    }
.thead {
   background-color: #008080; 
   font-family: 'Verdana','Arial','Helvetica',sans-serif; 
   font-size: x-small;
   color: white;
   }
.thead2 {
   background-color: #800000; 
   font-family: 'Verdana','Arial','Helvetica',sans-serif; 
   font-size: x-small;
   color: white;
   }
.tbody { 
   text-align: center;
   background-color: #f7efde;
   font-family: 'Verdana','Arial','Helvetica',sans-serif; 
   font-size: x-small;
    }
-->
</style>
</head>

<body>
<h1>SQL Property Example (VBScript)</h1>

<H2>RDS API Code Examples </H2>
<H3>Remote Data Service SQL Property Set at Run Time</H3>

<!-- RDS.DataControl with no parameters set at design time -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
   ID=RDC HEIGHT=1 WIDTH=1>
</OBJECT>

<TABLE DATASRC=#RDC>
   <TR>
      <TD> <SPAN DATAFLD="FirstName"></SPAN> </TD>
      <TD> <SPAN DATAFLD="LastName"></SPAN> </TD>
      <TD> <SPAN DATAFLD="Title"></SPAN> </TD>
      <TD> <SPAN DATAFLD="Type"></SPAN> </TD>
      <TD> <SPAN DATAFLD="Email"></SPAN> </TD>
   </TR>
</TABLE>

<HR>
<Input Size=70 Name="txtServer" Value= "http://<%=Request.ServerVariables("SERVER_NAME")%>">
<BR>
<Input Size=70 Name="txtConnect" Value="Provider='sqloledb';Integrated Security='SSPI';Initial Catalog='Northwind';">
<BR>
<Input Size=70 Name="txtSQL" VALUE="Select * from Employees">
<HR>
<INPUT TYPE=BUTTON NAME="Run" VALUE="Run"><BR>

<Script Language="VBScript">
<!--
' Set parameters of RDS.DataControl at Run Time.
Sub Run_OnClick
   RDC.Server = txtServer.Value
   RDC.SQL = txtSQL.Value
   RDC.Connect = txtConnect.Value
   RDC.Refresh
End Sub
-->
</Script>
   
</body>
</html>
<!-- EndSQLRuntimeVBS -->
Show:
© 2014 Microsoft