MS Access VBA DAO : Sedikit Modifikasi di Pilihan Database

Option Compare Database

Public Sub VBADAO3()

Dim DAM As String

Dim db As DAO.Database

Dim rst As DAO.Recordset

Dim query As String

DAM = "VBA DAO"

'Sumber : https://msdn.microsoft.com/en-us/library/office/ff965871%28v=office.14%29.aspx

' Jalankan pointer ke database yg dipakai sekarang

' Set db = OpenDatabase("D:\fileAccess\Database2.mdb")
Set db = DBEngine.OpenDatabase("D:\fileAccess\Database2.mdb")

Debug.Print DAM & ": Successfully connected to database. Data source name: " & vbNewLine & " " & db.Name

' Menyiapkan SQL query

query = "SELECT databarang.[namabarang],databarang.[hargabarang]FROM databarang"

Debug.Print DAM & ":SQL Query:" & vbNewLine & " " & query


Set rst = db.OpenRecordset(query)

Debug.Print DAM & ": Retrieve schema info for the given result set: "

For i = 0 To rst.Fields.Count - 1

Debug.Print " | " & rst.Fields(i).Name

Next i

End Sub