Access SQL

VBA + DAO で MS Access のデータについて SQL を実行し、各カラムの情報を出力する

前準備

Excel VBA にて

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

にチェックを入れる。

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

---

Private Sub GetSQL3()

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("SELECT * FROM 取引会社テーブル WHERE 会社コード=10")

Do Until rs.EOF

Dim idx As Integer

For idx = 0 To rs.Fields.Count - 1

Debug.Print rs.Fields(idx).Name & "=" & rs.Fields(idx).Value

rs.MoveNext

Loop

rs.Close

MyDB.Close

Set MyDB = Nothing

End Sub