DataFactory Object, Query Method, and CreateObject Method Example (VBScript)

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.

<HTML>

<HEAD>

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

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

DataFactory Object, Query Method, and CreateObject Method Example (VBScript)

See Also