Recordset and SourceRecordset Properties Example (VBScript)

The following example shows how to set the necessary parameters of the RDSServer.DataFactory default business object at run time.

To test this example, cut and paste this code between the <Body> and </Body> tags in a normal HTML document and name it RecordsetVBS.asp. ASP script will identify your server.

<%@ Language=VBScript %>

<html>

<head>

<meta name="VI60_DefaultClientScript" content=VBScript>

<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">

<title>Recordset and SourceRecordset Properties 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>Recordset and SourceRecordset Properties Example (VBScript)</h1>

<Center>

<H2>RDS API Code Examples</H2>

<HR>

<H3>Using SourceRecordset and Recordset with RDSServer.DataFactory</H3>

<OBJECT ID="RDS1" WIDTH=1 HEIGHT=1

CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36">

</OBJECT>

<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"

ID=RDC WIDTH=1 HEIGHT=1>

</OBJECT>

<TABLE DATASRC=#RDC>

<TR>

<TD> <INPUT DATAFLD="FirstName" SIZE=15> </TD>

<TD> <INPUT DATAFLD="LastName" SIZE=15></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 FirstName, LastName FROM Employees">

<HR>

<INPUT TYPE=BUTTON NAME="Run" VALUE="Run"><BR>

</Center>

<Script Language="VBScript">

Dim rdsDF

Dim strServer

strServer = "http://<%=Request.ServerVariables("SERVER_NAME")%>"

Sub Run_OnClick()

Dim rs

' Create RDSServer.DataFactory Object

Set rdsDF = RDS1.CreateObject("RDSServer.DataFactory", strServer)

' Get Recordset

Set rs = rdsDF.Query(txtConnect.Value,txtSQL.Value)

' Set parameters of RDS.DataControl at run time

RDC.Server = txtServer.Value

RDC.SQL = txtSQL.Value

RDC.Connect = txtConnect.Value

RDC.Refresh

End Sub

</Script>

</body>

</html>

Recordset and SourceRecordset Properties Example (VBScript)

See Also