Visual Basic Select Distint


FAQ : Cara Mengatasi Pengulangan Data Dari Database Yang Ditampilkan Pada Combobox
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 seperti gambar berikut ini :

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

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 :
FAQ : Cara Mengatasi Pengulangan Data Dari Database Yang Ditampilkan Pada Combobox

Jika 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..?

Cukup mengganti query coding diatas seperti berikut ini :
rs.Open "select merk from latihan", koneksi, adOpenDynamic, 

Berikut ini hasilnya setelah query nya diubah :
rs.Open "select distinct merk from latihan", koneksi, adOpenDynamic, 
FAQ : Cara Mengatasi Pengulangan Data Dari Database Yang Ditampilkan Pada Combobox


Subscribe to receive free email updates:

0 Response to "Visual Basic Select Distint"

Post a Comment