Menampilkan Item Combobox Visual Basic

Menampilkan data pada Combobox Secara Statis dan Dinamis Menggunakan Database adalah judul kita kali ini. Saya membuat judul seperti itu bukan tanpa alasan. Statis berarti tetap atau tidak berubah, sedangkan dinamis adalah kebalikannya yaitu dapat berubah sewaktu-waktu.

Jadi pengertiannya begini, Combobox yang datanya ditampilkan secara statis, maka itemnya tidak dapat dirubah, sedangkan Combobox yang datanya diambil atau ditampilkan dari dalam database maka itemnya dapat berubah sewaktu-waktu tergantung dari perubahan dari field-field dalam database tersebut, itu yang saya maksud dinamis.

Artikel Lain: iNaVB Mp3 Player

Sebagai Contoh untuk yang statis, Jika kita ingin menampilkan item “Sudah menikah” dan “Belum Menikah”. Jadi sampai kapanpun item dalam Combobox isinya hanya akan ada dua itu saja, Namun jika kita tampilkan secara dinamis berdasarkan database yang kita buat maka, kita bisa menampilkan item “Lajang”, “Single” dan lain-lain semau kita dan kapanpun bisa dilakukan, jadi tidak merombak coding.

Untuk Membuat Combobox Menampilkan data Secara Statis dan Dinamis ikuti langkah-langkah dibawah:

1. Kita tambahkan 2 Combobox pada Project kita, Combobox1 untuk item (data) yang Statis, Combobox2 untuk item (data) yang dinamis.

2. Tambahkan File Koneksi di Module Anda, dan Pastekan Kode dibawah ini sebagai File Koneksinya:

Imports System.Data.OleDb
Namespace accessdata
Public Class koneksidata
Dim conect As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mudamers.mdb;”)
Public Function open() As OleDbConnection
conect.Open()
Return conect
End Function
Public Function close() As OleDbConnection
conect.Close()
Return conect
End Function
End Class
End Namespace

3. “mudamers.mdb” diatas adalah File Database atau lebih tepatnya Nama Database Anda. Jika Anda bingung pada langkah ini, silakan Baca Kembali artikel Cara Menyimpan Data ke Dalam Database, karena disitu sudah dibahas secara lengkap mengenai Cara membuat koneksi.

4. Didalam Region Anda tambahkan dua Sub berikut, yang pertama untuk Combobox1 yang statis, dan yang kedua untuk Combobox2 yang dinamis.

‘Untuk Combobox yang Statis
Sub tampilkancstatis()
Me.ComboBox1.Items.Add(“LAKI-LAKI”)
Me.ComboBox1.Items.Add(“PEREMPUAN”)
End Sub

‘Untuk Combobox yang Dinamis
Sub tampilkancdinamis()
mycmd = myconnection.open.CreateCommand
mycmd.CommandText = “select username from inavb”
objdatareader = mycmd.ExecuteReader
While objdatareader.Read
ComboBox2.Items.Add(objdatareader(0))
ComboBox2.ValueMember = objdatareader(0)
End While
myconnection.close()
End Sub

5. Setelah selesai, panggil perintah Sub diatas dibagian Event Form Load, sehingga hasilnya seperti ini.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tampilkancstatis()
tampilkancdinamis()

End Sub

6. Mudah bukan?? Berikut adalah sedikit penjelasan mengenai perintah-perintah diatas.

* Pada poin (2) merupakan file koneksi untuk menghubungkan database “mudamers.mdb” dengan Program Aplikasi kita.

* Pada poin (4) “Sub Statis” adalah menampilkan item Statis kedalam Combobox satu, yang isinya nanti adalah “LAKI-LAKI” dan “PEREMPUAN”.

* Pada poin (4) “Sub Dinamis” kebalikannya, perintah ini akan menampilkan semua “username” yang ada dalam tabel “inavb”, sehingga dapat berubah sewaktu-waktu tergantung perubahan isi dalam tabel tersebut.

* Pada poin (5) Adalah memanggil dua sub yang telah kita buat, yaitu “tampilkancstatis” dan “tampilkancdinamis”, dimana fungsinya adalah memanggil perintah-perintah yang telah kita buat dalam Sub.

Seperti itulah penjelasan dan tutorial mengenai Cara Menampilkan Item (Data) dalam Combobox Secara Statis maupun Dinamis melalui Database.

Jangan lupa untuk melihat Video tutorialnya yang sudah Saya Praktekkan, sebagai bahan untuk implementasinya agar Anda lebih mudah dalam memahaminya. Semoga bermanfaat. Baca juga artikel sebelumnya tentang Membuat Combobox dan Textbox tidak bisa di Edit.

Download Video
Download Code

 

Tags:

5 Comments

  1. Pingback: Option File Player 2015 untuk PES 2006

Leave a Reply

Your email address will not be published. Required fields are marked *