MS Access VBA DAO : Tampil Data & Skema Secara Lengkap

Option Compare Database

Public Sub VBADAO2()

Dim DAM As String

Dim db As DAO.Database

Dim rst As DAO.Recordset

Dim query As String


'Jalankan pointer ke database yg dipakai sekarang

Set db = CurrentDb()



'Menyiapkan SQL query

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

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


' Run the query and create a record set

Set rst = db.OpenRecordset(query)


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

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

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

Next i


Debug.Print DAM & ": Fetch the actual data: "

Do While Not rst.EOF

    Debug.Print " | " & rst![namabarang] & " | " & rst![hargabarang]

    rst.MoveNext

    Loop


    Debug.Print DAM & ": Total Row Count: " & rst.RecordCount

    Debug.Print DAM & ": Cleanup. Done. "


    rst.Close

    db.Close

End Sub