CreateRecordset Method Example (VBScript)

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 -->
CreateRecordset Method Example (VBScript)

See Also
