| |
▼HM さん：
こんにちは。
>色々探しているのですが、サンプルが見つからない。
ヘルプに載っていますよ。
Northwind データベースの解りづらい例ですが…。
Sub レコードセットを配列に()
'要参照 Microsoft DAO x.x Object Library
Dim TName As String
Dim RS As DAO.Recordset
Dim MyAry As Variant
Dim RC As Long
TName = "テーブル名"
Set RS = CurrentDb.OpenRecordset(TName, dbOpenSnapshot)
RS.MoveLast
RC = RS.RecordCount
RS.MoveFirst
MyAry = RS.GetRows(RC)
RS.Close
Set RS = Nothing
Call 結果出力(MyAry)
End Sub
Sub 結果出力(Kekka As Variant)
Dim i As Long
Dim j As Long
Dim KLine As String
For i = 0 To UBound(Kekka, 2)
KLine = ""
For j = 0 To UBound(Kekka, 1)
KLine = KLine & " " & Kekka(j, i)
Next
Debug.Print KLine
Next
End Sub
結果出力は検証用に付けてみました。
変数:MyAry に レコードセットの値が入っていると思います。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
