Export (0) Print
Expand All
This topic has not yet been rated - Rate this topic

CreateRecordset 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 code example creates a Recordset on the server side. It has two columns with four rows each. Cut and paste the following code to Notepad or another text editor and save it as CreateRecordsetVBS.asp.

<!-- BeginCreateRecordsetVBS -->
<%@ Language=VBScript %>
<html>
<head>
    <meta name="VI60_DefaultClientScript"  content=VBScript>
    <meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
    <title>CreateRecordset 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>

<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=DC1 width=1>
</OBJECT>
<h1>CreateRecordset Method Example (VBScript)</h1>
<script language = "vbscript">
    ' use the RDS.DataControl to create an empty recordset; 
    ' takes an array of variants where every element is itself another
    ' array of variants, one for every column required in the recordset
   
    ' the elements of the inner array are the column's
    ' name, type, size, and nullability
Sub GetRS()
   Dim Record(2)
   Dim Field1(3)
   Dim Field2(3)
   Dim Field3(3)

    ' for each field, specify the name type, size, and nullability

   Field1(0) = "Name"   ' Column name.
   Field1(1) = CInt(129)   ' Column type.
   Field1(2) = CInt(40)   ' Column size.
   Field1(3) = False      ' Nullable?

   Field2(0) = "Age"
   Field2 (1) = CInt(3)
   Field2 (2) = CInt(-1)
   Field2 (3) = True

   Field3 (0) = "DateOfBirth"
   Field3 (1) = CInt(7)
   Field3 (2) = CInt(-1)
   Field3 (3) = True

    ' put all fields into an array of arrays
   Record(0) = Field1
   Record(1) = Field2
   Record(2) = Field3

   Dim NewRs 
   Set NewRS = DC1.CreateRecordset(Record)

   Dim fields(2)
   fields(0) = Field1(0)
   fields(1) = Field2(0)
   fields(2) = Field3(0)

    ' Populate the new recordset with data values.
   Dim fieldVals(2)

    ' Use AddNew to add the records.
   fieldVals(0) = "Joe"
   fieldVals(1) = 5
   fieldVals(2) = CDate(#1/5/96#)
   NewRS.AddNew fields, fieldVals

   fieldVals(0) = "Mary"
   fieldVals(1) = 6
   fieldVals(2) = CDate(#6/5/94#)
   NewRS.AddNew fields, fieldVals

   fieldVals(0) = "Alex"
   fieldVals(1) = 13
   fieldVals(2) = CDate(#1/6/88#)
   NewRS.AddNew fields, fieldVals

   fieldVals(0) = "Susan"
   fieldVals(1) = 13
   fieldVals(2) = CDate(#8/6/87#)
   NewRS.AddNew fields, fieldVals
   
   NewRS.MoveFirst

    ' Set the newly created and populated Recordset to
    ' the SourceRecordset property of the
    ' RDS.DataControl to bind to visual controls

   Set DC1.SourceRecordset = NewRS
End Sub
</script>
<table datasrc="#DC1" align="center">
<thead>
<tr id="ColHeaders" class="thead2">
   <th>Name</th>
   <th>Age</th>
    <th>D.O.B.</th>
</tr>
</thead>
<tbody class="tbody">
<tr>
   <td><input datafld="Name" size=15 id=text1 name=text1> </td>
   <td><input datafld="Age" size=25 id=text2 name=text2> </td>
   <td><input datafld="DateOfBirth" size=25 id=text3 name=text3> </td>
</tr>
</tbody>
</table>
<input type = "button" onclick = "GetRS()" value="Go!">
</body>
</html>
<!-- EndCreateRecordsetVBS -->
Did you find this helpful?
(1500 characters remaining)
Thank you for your feedback
Show:
© 2014 Microsoft. All rights reserved.