1. Recordset オブジェクトの作成
薄暗いobjMyRst
objMyRst=Server.CreateObject(ADODB.Recordset) を設定します。
objMyRst.CursorLocation=adUseClientBatch 'クライアントはバッチで処理できます
objMyRst.CursorType=adOpenStatic 'カーソルのタイプは静的タイプです
注: 作成される Recordset オブジェクトは adOpenFowardOnly であり、レコード セット ページングをサポートしていないため、Set objMyRst=Connection.Excute strSQL ステートメントを使用して Recordset オブジェクトを作成することはできません。
2. Recordset オブジェクトを開く
ディムstrSql
strSql=select * from ietable
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3． Recordset の PageSize プロパティを設定する
objMyRst.PageSize=20
デフォルトの PageSize は 10 です
4. Recordset の AbsolutePage プロパティを設定する
Dim intCurrentPage
intCurrentPage=1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage は 1 から Recordset オブジェクトの PageCount 値までです
5．表示データ
Response.Write(<テーブル>)
印刷フィールド名(objMyRst)
i=1 の場合 objMyRst.PageSize へ
PrintFieldValue(objMyRst)
objMyRst.MoveNext
objMyRst.Eof の場合は終了します
次
Response.Write(</table>)
例証します:
1. adOpenStatic、adUseCilentBatch、adCmdText は、adovbs.inc によって定義された定数です。これらを使用するには、adovbs.inc を現在のディレクトリにコピーし、プログラムに組み込みます。
<! --#インクルード ファイル=adovbs.inc-->
2. PrintFielName,PrintFieldValue 関数のコードは次のとおりです。
<%
関数 PrintFieldName(objMyRst)
'パラメータ objMyRst は Recordset オブジェクトです
'数値を定義
薄暗いobjFld
応答.書き込み <tr bgcolor='#CCCCCC'>
objMyRst.Fields の各 objFld について
Response.Write <td> & objFld.Name & </td>
次
Response.Write(</tr>)
終了機能
関数 PrintFieldValue(objMyRst)
'パラメータ objMyRst は Recordset オブジェクトです
'数値を定義
薄暗いobjFld
Response.Write(<tr>)
objMyRst.Fields の各 objFld について
'Response.Write <td> & objMyRst.Fields(intLoop).value & </td>
Response.Write <td> & objFld.value & </td>
次
Response.Write(<tr>)
終了機能