Fieldsプロパティを使用して任意の値を取得する
Sub レコードの値を取り出す2() 'Fieldsプロパティを使用する 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.Fields("社員ID").Value Cells(1, 2).Value = myRS.Fields(1) Cells(1, 3).Value = myRS.Fields("年齢") Cells(1, 4).Value = myRS.Fields(4) myRS.Close: Set myRS = Nothing myCon.Close: Set myCon = Nothing End Sub
フィールドを指定するインデックス番号は「0」から始まるので注意。