Menampilkan Data dari Tabel Database ke ComboBox VB6

Untuk menampilkan suatu data pada komponen khususnya pemrograman Visual Basic 6.0 (VB6), didalam web ini telah banyak admin bahas, selain itu juga sudah terdapat pada contoh-contoh source code. Pada artikel sebelumnya Menampilkan Isi Folder (File) ke ComboBox dengan VB6 telah disinggung mengenai menampilkan data pada komponen ini, akan tetapi data yang ditampilkan bukan berupa isi field tabel melainkan sebuah nama file pada suatu folder yang terdapat didalam PC Windows. Untuk kali ini sama menggunakan komponen combobox dan menampilkan data, akan tetapi data yang akan ditampilkan berupa data isi dari sebuah field dari tabel database. Sebagai contoh nama tabel yang digunakan SATUAN dan nama field SATUAN_BARANG dan sintaknya seperti dibawah ini

Set xRsSatuan = New ADODB.Recordset

xRsSatuan.Open "SELECT * FROM satuan", CN, 1, 3

If xRsSatuan.EOF Then

   cboSatuan.Clear

Else

   xRsSatuan.MoveFirst

   While Not xRsSatuan.EOF

      cboSatuan.AddItem xRsSatuan.Fields("SATUAN_BARANG")

   xRsSatuan.MoveNext

   Wend

End If

If xRsSatuan.State Then: xRsSatuan.Close

Copikan sintak diatas pada prosedur form_load atau dengan membuat sebuah sub kemudian sub tersebut dipanggil pada prosedur form_load atau dengan menambahkan CommandButton (Tombol) double klik dan panggil sub pada prosedur click. Semoga pembahasan artikel ini dapat bermanfaat