Menampilkan File Database Access Yang Di Buat Langsung Dari Form di VB6

Pada artikel sebelumnya kita sudah membahas Cara Membuat File Database Access Langsung dari Form. Namun pada artikel kali ini kita akan membahas masih yang berhubungan dengan artikel sebelumnya,  tetapi kali ini kita akan menampilkan isi database tersebut yang kita sudah buat kemarin dan menampilkan dalam sebuah Listbox, sehingga kita tidak perlu melihat lagi langsung dari tempat folder penyimpanannya.

Bagi Anda yang belum membaca artikel sebelumnya sebaiknya baca dulu artikel sebelumnya karena artikel ini saling berhubungan.

Berikut adalah cara menampilkan Isi Database kedalam Listbox :

Menampilkan File Database Access Yang Di Buat Langsung Dari Form di VB6

1. Buka File yang kemarin yang kita sudah buat yaitu cara membuat file database Access di form

2. Kemudian Pada Form1 tambahkan Command2 dan 1 buah Listbox

3. Pada Command2 ketikan kode dibawah ini :

Private Sub Command2_Click()

Dim db As Database

Dim qdef As QueryDef

Dim td As TableDef

Dim dbname As String

Set db = OpenDatabase("D:\VB6.0\FILE\BuatDB\DBcontoh.mdb") 'posisi penyimpanan file

For Each td In db.TableDefs

If td.Attributes = 0 Then List1.AddItem td.Name

Next td

db.Close

End Sub

4. Setelah anda mengetikan kodenya coba jalankan program Anda dan tekan Command2, maka dalam Listbox akan muncul isi dari Database "DbContoh" yaitu Tabel "Data1" dan Tabel "Data2".yang telah kita buat pada artikel sebelumnya.

Demikinalah artikel singkat dari saya tentang Menampilkan File Database Access Yang Di Buat Langsung Dari Form di VB6, semoga artikel ini bermanfaat buat kita semua.Amin.

Ouput

Selamat mencoba semoga sukses...

Related Post: Database