FAQ : Cara Mengatasi Pengulangan Data Dari Database Yang Ditampilkan Pada Combobox

FAQ : Cara Mengatasi Pengulangan Data Dari Database Yang Ditampilkan Pada Combobox | Visual Basic Magazine - Pembahasan berikut ini adalah jawaban kepada salah satu member forum yang bertanya tentang bagaimana mengatasi pengulangan data yang muncul pada combobox, dimana data tersebut dipanggil dari database.

Kunci utamanya berada pada query yang digunakan untuk memanggil data tersebut. Sebagai contoh, saya akan narasikan secara singkat kasus yang terjadi.

Saya mempunyai sebuah tabel produk seperti gambar berikut ini :

Kemudian saya ingin menampilkan record dari field "merk" kedalam combobox menggunakan coding seperti berikut ini :

Set rs = New ADODB.Recordset rs.Open "select merk from latihan", koneksi, adOpenDynamic, adLockOptimistic rs.MoveFirst Max = rs.RecordCount For i = 1 To Max Combo1.AddItem rs.Fields("merk") rs.MoveNext Next

Saat program di running, hasilnya seperti berikut ini :

Jika sobat perhatikan gambar diatas, maka terjadi perulangan data merk sesuai dengan apa yang ada di database. Nah sekarang bagaimana caranya agar cukup satu data yang sama saja yang muncul di combobox..?

Sobat cukup mengganti query coding diatas seperti berikut ini :

Coding sebelumnya :

rs.Open "select merk from latihan", koneksi, adOpenDynamic, adLockOptimistic

Ubah Menjadi :

rs.Open "select distinct merk from latihan", koneksi, adOpenDynamic, adLockOptimistic

Berikut ini hasilnya setelah query nya diubah :

Silakan download contoh programnya melalui link berikut ini :

Sekian dulu posting jawaban yang berjudul FAQ : Cara Mengatasi Pengulangan Data Dari Database Yang Ditampilkan Pada Combobox. Semoga bermanfaat buat sobat yang mengalami masalah yang sama.