CreateRecordset, exemple de méthode (VBScript)
Important
À compter de Windows 8 et Windows Server 2012, les composants serveur RDS ne sont plus inclus dans le système d’exploitation Windows (voir le Guide pratique sur la compatibilité de Windows Server 2012 et Windows 8 pour plus de détails). Les composants clients RDS seront supprimés dans une version ultérieure de Windows. Évitez d'utiliser cette fonctionnalité dans de nouveaux travaux de développement, et prévoyez de modifier les applications qui utilisent actuellement cette fonctionnalité. Les applications qui utilisent RDS doivent migrer vers WCF Data Service.
Cet exemple de code crée un Recordset côté serveur. Il a deux colonnes avec quatre lignes chacune. Coupez et collez le code suivant dans Notepad ou un autre éditeur de texte et enregistrez-le sous le nom de 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 -->