Cara Menggunakan DbList dan DBCombo

Pada Tulisan sebelumnya saya membahas tentang dataList dan dataCombo, kedua komponen tersebut hanya support dengan Adodc, bagi yang menggunakan koneksi database dengan DATAcontrol dapat menggantinya dengan DBList dan DBCombo

Nah berikut cara penggunaannya :

Komponen yang perlu ditambahkan :

• Sebelumnya tambahkan komponen Microsoft Data Bound List Controls 6.0 (OLE DB), caranya lewat menu--  Project-- Component ...  atau tekan  CTRL + T
• Sehingga dalam ToolBox muncul : 

Penggunaan DataList dan DataCombo untuk menampilkan data dengan mengatur Properties
Langkah-langkahnya sama dengan setting properties pada dataList dan dataCombo

Penggunaan DataList dan DataCombo untuk menampilkan data  dengan "coding"
Jika dirasa setting properties diatas cukup rumit, masukkan code-code dibawah ini ke dalam jendela coding Anda sebagai penggantinya :

Sub Form_Load()
Dim dbcon As String
Data1.DatabaseName = App.Path + "\db1.mdb
Data1.RecordSource="books"
Data1.RecordsetType = 1
Set DbList1.RowSource = Data1
DbList1.ListField = "author"
Set DbCombo1.RowSource = Data1
DbCombo1.ListField = "category"
End Sub

Event pada DbList yang biasa digunakan adalah event Click sedangkan untuk DbCombo adalah event Change.