Cara Menambahkan List Item Pada ComboBox Di Visual Basic 6.0

Cara Menambahkan List Item Pada ComboBox Di Visual Basic 6.0 | Gho Blog's - Walaupun terkesan sepele, pertanyaan seputar bagaimana caranya memasukkan list item ke dalam Combobox sering saya dapati di beberapa forum maupun ada yang bertanya langsung ke saya.

Posting kali ini adalah bentuk apresiasi saya kepada sobat yang baru belajar pemorograman Visual Basic 6.0. Karena banyak dari mereka yang bertanya kepada saya mengatakan sebenarnya malu bertanya tentang hal yang sangat dasar sekali.

Saya sangat menghargai semangat sobat yang mau belajar, oleh sebab itu buat sobat yang mungkin merasa malu bertanya tentang hal ini, maka saya buatkan sebuah tutorial sederhana tentang cara menambahkan list item ke dalam combobox.


Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Cara 1 : Dengan Coding

Sebagai contoh, saya akan membuat list nama-nama hari yang akan dimunculkan pada combobox. Cara menggunakan coding sangatlah mudah, cukup sobat letakkan script berikut pada Form Load :

Private Sub Form_Load() Combo1.AddItem "Senin" Combo1.AddItem "Selasa" Combo1.AddItem "Rabu" Combo1.AddItem "Kamis" Combo1.AddItem "Jumat" Combo1.AddItem "Sabtu" Combo1.AddItem "Minggu" End Sub

Cara 2 : Melalui Properties

Cara berikut ini lebih mudah lagi, sobat cukup mengetik item yang ingin di masukkan ke dalam combobox melalui properties, perhatikan gambar berikut ini.

Cara 3 : Memanggil Dari Database

Sebagai contoh latihan, saya membuat sebuah database dengan Access dalam forman .mdb (Access 2003), kemudian saya beri nama database tersebut dengan nama "test.mdb". Kemudian saya buat sebuah tabel/file dengan nama "datacombo" yang memiliki satu buah field yaitu "hari".

Kemudian saya inputkan nama-nama hari pada tabel tersebut. Untuk lebih jelasnya silakan sobat perhatikan gambar berikut :

Setelah itu buat disain form yang terdiri dari 1 buah combobox dan 1 buah ADODC, seperti gambar berikut ini :

Selanjutnya kita beralih ke bagian coding form, masukkan coding berikut ini pada General Declaration atau letakkan di bagian atas sekali :

Public koneksi As ADODB.Connection Public rs As ADODB.Recordset Public max As String Public X As Integer

Setelah itu kita buat script koneksi database, letakkan script berikut dibagian Form Load :

Private Sub Form_Load() Set koneksi = New ADODB.Connection koneksi.CursorLocation = adUseClient koneksi.Provider = "microsoft.jet.oledb.4.0" koneksi.Open App.Path & "\test.mdb" End Sub

Sekarang kita buat sebuah fungsi pemanggilan record/data yang akan dimunculkan pada combobox. Letakkan script berikut dibagian kosong, atau dibawah event Form Load :

Private Sub panggildata() On Error Resume Next Set rs = New ADODB.Recordset rs.Open "select * from datacombo", koneksi, adOpenDynamic, adLockOptimistic rs.MoveFirst max = rs.RecordCount For X = 1 To max Combo1.AddItem rs.Fields("hari") rs.MoveNext Next End Sub

Terakhir, sisipkan script berikut pada Form Load agar saat program dijalankan fungsi dari pemanggilan data juga ikut dieksekusi. Letakkan saja script berikut sebelum End Sub pada event Form Load.

panggildata

Sebelum menjalankan program ini, save project terlebih dahulu dan simpan satu folder dengan database nya.

Silakan download contoh programnya melalui link berikut ini :

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Sekian posting saya yang berjudul Cara Menambahkan List Item Pada ComboBox Di Visual Basic 6.0. selamat mencoba dan semoga bermanfaat..