Access Field

■準備

Excel VBA にて

[ツール]-[参照設定]-[Microsoft DAO 3.x Object Library]

にチェックを入れる。

FIXが適用されている場合、3.x の部分が適当に変わっている。

■コード

Private Sub GetSQL1()

Dim MyTBL As TableDef

Dim MyDB As Database

Dim strFld As String

Dim i As Integer

Dim rs As Recordset

'オブジェクト変数の設定

Set MyDB = DBEngine.Workspaces(0).OpenDatabase("C:\temp\売上管理2_10.mdb")

Set rs = MyDB.OpenRecordset("取引会社テーブル")

Do Until rs.EOF

Debug.Print rs.Fields("会社名")

rs.MoveNext

Loop

rs.Close

MyDB.Close

Set MyDB = Nothing

End Sub

■tags

---

MS Access VBA DAO カラム データ 取得