CreateRecordset メソッドの例 (VBScript)
重要
Windows 8 および Windows Server 2012 から、RDS サーバー コンポーネントが Windows オペレーティング システムに含まれなくなりました (詳細については、Windows 8 および Windows Server 2012 の互換性クックブックを参照してください)。 RDS クライアント コンポーネントは、今後のバージョンの Windows で削除される予定です。 新規の開発作業ではこの機能を使用しないようにし、現在この機能を使用しているアプリケーションは修正することを検討してください。 RDS を使用するアプリケーションを WCF Data Service に移行する必要があります。
このコード例では、サーバー側に Recordset を作成します。 2 つの列があり、それぞれに 4 つの行があります。 次のコードをメモ帳または別のテキスト エディターに切り取って貼り付け、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 -->