GetRows
レコードを配列にセット
文法
Recordsetオブジェクト.GetRows([Count],[StartBookmark],[Name]
パラメータ
Count : レコード数/定数
StartBookmark : 取得開始ブックマーク位置
name : フィールド名/配列
機能説明
データセットの内容を２次元配列へレコード番号とデータがセットされる
パラメータでフィールド・取得範囲設定可能
取得レコード定数
| 定数 | 値 | 説明 |
|---|
| adGetRowsRest | -1 | 指定位置から取得 |
取得開始ブックマーク指定
| 定数 | 値 | 説明 |
|---|
| adBookmarkCurrent | 0 | カレントレコードから取得 |
| adBookmarkFirst | 1 | 最初のブックマークから取得 |
| adBookmarkLast | 2 | 最後のブックマークから取得 |
使用例
<![CDATA[
<%
Dim objConn, objRs, DataList, i1, i2
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "select * from test"
DataList = objRs.GetRows
Response.Write "<table>"
For i1=0 to Ubound(DataList, 2)
Response.Write "<tr>"
For i2=0 to Ubound(DataList, 1)
Response.Write "<td>" & DataList(i1, i2) & "</td>"
Next
Response.Write "</tr>"
Next
Response.Write "</table>"
'オブジェクトを閉じる
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
]]>
Topへ