レコードの内容を取り出す

レコードの内容を取り出す

Sub レコードの値を取り出す1()
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset, FileName As String

FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
myRS.Open "社員", myCon

'任意のフィールドの値をセルに転記
Cells(1, 1).Value = myRS!社員ID
Cells(1, 2).Value = myRS!氏名
Cells(1, 3).Value = myRS!年齢
Cells(1, 4).Value = myRS!所属

myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing

End Sub

任意のフィールドを指定する
Recordsetオブジェクト!フィールド名

「社員」テーブル

実行結果