Menampilkan Daftar Tabel Database Ms.Access Dengan DAO VB6

Berikut ini adalah cara  menampilkan daftar tabel database microsoft Access di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Listbox.
2. Tambahkan reference Microsoft DAO 3.X Object Library dari menu Project->References
3. Copy-kan coding berikut ke dalam editor form yang bertalian.      

          Option Explicit    'Setiap variabel yang digunakan harus dideklarasikan dulu...
          Private Sub Form_Load()

              Dim db As Database
              Dim qdef As QueryDef
              Dim td As TableDef
              Dim dbname As String

              'Buka database. Ganti "c:\DBfile.mdb" dengan nama file database Anda
              'Jika database di password, sesuaikan dengan metoda pembukaan file database
              'yang diprotect dengan password... Pada contoh ini, kita anggap file *.mdb
              'ybt tidak dipassword.
              Set db = OpenDatabase("c:\DBfile.mdb")

              'Tampilkan nama tabel yang ada.
              For Each td In db.TableDefs
              'Jika Anda ingin menampilkan juga tabel sistem, ganti baris coding
              'di bawah dengan:  List1.AddItem td.Name, jadi tanpa pengecekan If...

                 If td.Attributes = 0 Then List1.AddItem td.Name
              Next td
              db.Close
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module