Cara Menggunakan DataList dan DataCombo

Baca Juga

Combo (Daftar dropdown) dan List tentunya tidak asing lagi bagi pengguna visual basic 6.0  Kedua komponen tersebut biasa digunakan untuk menampilkan suatu daftar tertentu dalam suatu form. Penggunaan kedua komponen ini sangat tepat untuk daftar yang konstan alias tidak berubah-ubah, walaupun dengan coding bisa digunakan untuk menampilkan daftar yang dinamis (caranya dapat anda baca [disini]). Bisa juga digunakan untuk menampilkan isi field dari tabel dalam suatu database.

Akan tetapi ada komponen yang lebih tepat untuk menampilkan data dari suatu database, yaitu dataCombo dan dataList. Dari namanya saja sudah menunjukkan fungsinya, yaitu manampilkan data, tidak jauh beda dengan DataGrid.

Nah berikut cara penggunaannya :

Komponen yang perlu ditambahkan :

• Sebelumnya tambahkan komponen Microsoft DataList Control 6.0 (OLE DB), caranya lewat menu--  Project-- Component ...  atau tekan  CTRL + T
• Tambahkan juga komponen ADODC (Microsoft ADO Data Control 6.0 (OLE DB))
• Sehingga dalam ToolBox muncul :  

Penggunaan DataList dan DataCombo untuk menampilkan data dengan mengatur Properties
Langkah-langkahnya adalah sebagai berikut :

• Tambahkan DataList, DataCombo dan Adodc kedalam Form.
• Koneksikan Adodc dengan database
• Klik pada DataList dan atur propertiesnya : 

1. RowSource = Adodc1
2. ListField = nama field atau kolom

• Demikian pula setting properties untuk datacombo adalah sama .

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
dbcon = "Provider=Microsoft.Jet.OLEDB.4.0;" +  _
        "Data Source=" + App.Path + "\db1.mdb;" +  _
        "Persist Security Info=False"

Adodc1.ConnectionString = dbcon
Adodc1.RecordSource = "books"
Adodc1.Refresh

Set DataList1.RowSource = Adodc1
DataList1.ListField = "author"
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "category"
End Sub

Event pada DataList yang biasa digunakan adalah event Click sedangkan untuk DataCombo adalah event Change.

Demikian dan terimakasih, semoga bermanfaat!