Kode modul Vb6 pada gambar di bawah ini :
Tabel Acces 2007 pada gambar di bawah ini :
Kode Modul Visual Basic 6.0 |
Tabel Acces 2007 pada gambar di bawah ini :
Tabel Acces 2007 Visual Basic 6.0 |
Selanjutnya kita buat kode untuk menampilkan data tabel acces ke listbox vb6 yang ditaruh di form Activate
Private Sub Form_Activate()
Call BUKADB
RS.Open " Select * From BARANG", KONEKSI
List1.Clear
List1.AddItem "daftar barang"
List1.AddItem ""
Do While Not RS.EOF
List1.AddItem RS!KODEBARANG & " " & RS!NAMABARANG & " " & RS!JMLBARANG
RS.Movenext
Loop
End Sub
Call BUKADB
RS.Open " Select * From BARANG", KONEKSI
List1.Clear
List1.AddItem "daftar barang"
List1.AddItem ""
Do While Not RS.EOF
List1.AddItem RS!KODEBARANG & " " & RS!NAMABARANG & " " & RS!JMLBARANG
RS.Movenext
Loop
End Sub
Tutorial Visual Basic 6.0
Share this Menampilkan Database Acces ke ListBox Visual Basic 6.0 article :
Facebook Twitter Google+