Export (0) Print
Expand All

DataFactory Object, Query Method, and CreateObject Method 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.

This example creates an RDSServer.DataFactory object using the CreateObject method of the RDS.DataSpace object. To test this example, cut and paste this code between the <Body> and </Body> tags in a normal HTML document and name it DataFactoryVBS.asp. ASP script will identify your server.

<!-- BeginDataFactoryVBS -->
<HTML>
<HEAD>
<!--use the following META tag instead of adovbs.inc-->
<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<META name="VI60_DefaultClientScript" Content="VBScript">

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>DataFactory Object, Query Method, and 
CreateObject Method 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>DataFactory Object, Query Method, and 
CreateObject Method Example (VBScript)</h1>
<H2>RDS API Code Examples</H2>
<HR>
<H3>Using Query Method of RDSServer.DataFactory</H3>

<!-- RDS.DataSpace  ID RDS1-->
<OBJECT ID="RDS1" WIDTH=1 HEIGHT=1
CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36">
</OBJECT>

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

<TABLE DATASRC=#RDS>
<TBODY>
  <TR>
    <TD><SPAN DATAFLD="FirstName"></SPAN></TD>
    <TD><SPAN DATAFLD="LastName"></SPAN></TD>
  </TR>
</TBODY>    
</TABLE>

<HR>
<INPUT TYPE=BUTTON NAME="Run" VALUE="Run">
<BR>
<H4>Click Run -  
The <i>CreateObject</i> Method of the RDS.DataSpace Object Creates 
an instance of the RDSServer.DataFactory; 
The <i>Query</i> Method of the RDSServer.DataFactory is used
to bring back a Recordset. </H4>

<Script Language="VBScript">

    Dim rdsDF
    Dim strServer
    Dim strCnxn
    Dim strSQL

    strServer = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
    strCnxn = "Provider='sqloledb';Integrated Security='SSPI';Initial Catalog='Northwind';"
    strSQL = "Select FirstName, LastName from Employees"

    Sub Run_OnClick()
    
        ' Create RDSServer.DataFactory Object
        Dim rs
        ' Get Recordset
        Set DF = RDS1.CreateObject("RDSServer.DataFactory", strServer)
        Set rs = DF.Query(strCnxn, strSQL)
        ' Set parameters of RDS.DataControl at Run Time
        RDS.Server = strServer
        RDS.SQL = strSQL
        RDS.Connect = strCnxn
        RDS.Refresh
           
    End Sub
</Script>


</BODY>
</HTML>
<!-- EndDataFactoryVBS -->
Show:
© 2014 Microsoft