Cara Isi ComboBox dari Database VB6

Ini sedikit info mengenai cara mengisi ComboBox dari Database dengan perintah Select Distinct, jadi misalkan kita mempunya Tabel barang pada Database dan memiliki field Satuan yang telah memiliki Value atau nilai Satuan, maka kita bisa menampilkan nilai satuan yang telah ada pada Database, jadi bila Field Satuan kita memiliki value baru maka combox otomatis bertambah, tapi tetap tidak akan memiliki data yang sama pada combox, Langsung saja untuk lebih jelasnya lihat contoh ini :

ini adalah Procedure untuk mengisi ComboBox dari Database.

Sub IsiSatuan()
    'Jika Rs sedang dibuka --> Tutup dulu
    If rs.State = 1 Then rs.Close
    rs.Open "Select Distinct Satuan from Barang", cn
    cmbSatuan.Clear 'Bersihkan Combobox Satuan
    Do While Not rs.EOF
        'Isi Combo Satuan
        cmbSatuan.AddItem rs!Satuan
        rs.MoveNext
    Loop
    Set rs = Nothing 'Kosongkan RS
End Sub

Penjelasan : Pada rs.state = 1 then rs close jika recordset rs terbuka maka ditutup karena akan kita buka dengan perintah selanjutnya, kemudian Buka RS dengan perintah Select Distinct 'nama field' from 'nama tabel', cn adalah nama koneksi aktif, untuk koneksi database silahkan lihat Cara koneksi database vb6, cmbsatuan adalah nama ComboBox saya, kemudian kita isi dengan menggunakan looping do while, lakukan selama rs tidak berada pada akhir data, maksudnya sampai semua data ditemukan, maka ComboBox.additem rs!nama field yang akan diisi, kemudian pindahkan cursor rs.movenext agar data cursor pindah, kemudian kosongkan rs, Combobox ini bisa dipanggil pada form load ataupun setelah anda menyimpan data baru, sehingga pada penyimpanan berikutnya telah terisi kembali, perintah distinct maksudnya kita mengambil data pada field tetapi jika ada data yang sama maka diambil hanya satu, Selesai

Semoga ini bermanfaat, !!