COMBOBOX | Memunculkan Item Tabel Database Di Combobox

Combobox, Kembali lagi di Tutorial Visual Basic .Net atau biasa disingkat VB .Net, kali ini saya akan memberikan tentang Bagaimana Cara Memunculkan Item Database di ComboBox. Jika ingin membuat data pada combobox secara Dinamis ( Bukan Statis ) maka Combobox harus dikoneksiakan dengan Database, sehingga jika di dalam database terjadi Update maka data didalam ComboBox juga akan terjadi Update data yang bisa dipilih.

Bagi anda yang ingin memunculkan Item ComboBox namun tidak menggunakan Database (Item ComboBox Statis), anda bisa KLIK DISINI.

Berikut langkah-langkahnya dalam Memunculkan Item Database di ComboBox - VB .Net

Karena kita akan mengkoneksikan dengan database, maka kita harus membuat database terlebih dahulu.
Agar lebih mudah, kita buat saja Database dengan Office Acess.
Buatlah database dengan nama : DBJNM.mdb
Kemudina buatlah tabel dengan nama : TBL_BARANG
Design tabel barang adalah seperti gambar dibawah ini :

Karena nantinya akan dimunculkan data didalam TBL_BARANG, silahkan masukan sample data :

Silahkan Simpan, jika sudah selesai, kita langsung buka VB .Net anda
Buatlah Form dengan nama Form1 dan Design form seperti gambar dibawah ini :

Kemudian pada Form1, silahkan masukan koding dibawah ini :

 
Imports System.Data.OleDb
Public Class Form1
 Dim CONN As OleDbConnection
 Dim CMD As OleDbCommand
 Dim DS As New DataSet
 Dim DA As OleDbDataAdapter
 Dim RD As OleDbDataReader
 Dim LokasiDB As String
 Sub Koneksi()
 LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBJNM.mdb"
 Conn = New OleDbConnection(LokasiDB)
 If Conn.State = ConnectionState.Closed Then Conn.Open()
 End Sub
 Sub KondisiAwal()
 Koneksi()
 DA = New OleDbDataAdapter("Select * from TBL_BARANG", CONN)
 DS = New DataSet
 DS.Clear()
 DA.Fill(DS, "TBL_BARANG")
 DataGridView1.DataSource = (DS.Tables("TBL_BARANG"))

 CMD = New OleDbCommand("select * FROM TBL_BARANG", CONN)
 RD = CMD.ExecuteReader
 Do While RD.Read
 ComboBox1.Items.Add(RD.Item(0))
 Loop

 End Sub
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Call KondisiAwal()
 End Sub
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 End
 End Sub
 Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
 Call Koneksi()
 End Sub
End Class

Jika sudah silahkan Running Project VB .Net anda
Hasilnya adalah sebagai berikut :

Demikianlah Proses Memunculkan Item Database di ComboBox - VB .Net, semoga bermanfaat untuk anda yang sedang belajar VB .Net :)