comboboxWaktu itu saya pengen Combo Box bisa Load data yang terdapat pada salah satu tabel dalam basis data. Setelah coba-coba saya nemuin cara simpel untuk meload database pada combo box. Saya memiliki tabel Daftar Mahasiswa dalam basis data MySQL. Tabel terdiri dari kolom: IDMahasiswa, Nama, dan JenisKelamin. Saya akan memuat kolom Nama pada combo box yang telah dibuat dalam form VB. Berikut adalah kode program simpelnya:

Pertama, deklarasikan NMhs dan X sebagai string. Setelah itu beri nilai pada dua statement tadi.

Dim JmlMhs, X As String

JmlMhs = rsMhs.RecordCount

X = 1

Kedua, masukkan kode program dengan logika aplikasi akan memuat Nama Mahasiswa ke Combo1 sampai nilai X sama dengan nilai JmlMhs. Ketika nilai sudah sama maka akan berhenti.

While X <> JmlMhs

Combo1.AddItem (rsMhs.Fields(1))

X = X + 1

rsMhs.MoveNext

If X = JmlMhs Then Exit Sub

Wend

Ketiga, it’s done J.

Baca Juga :