Vb .Net - Memunculkan Item Tabel Database Di Combobox

Kembali lagi di Tutorial Visual Basic .Net atau biasa disingkat VB .Net, kali ini aku akan menunjukkan wacana Bagaimana Cara Memunculkan Item Database di ComboBox. Jika ingin menciptakan data pada combobox secara Dinamis ( Bukan Statis ) maka Combobox harus dikoneksiakan dengan Database, sehingga jikalau di dalam database terjadi Update maka data didalam ComboBox juga akan terjadi Update data yang dapat dipilih.

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

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

Karena kita akan mengkoneksikan dengan database, maka kita harus menciptakan 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 yaitu menyerupai gambar dibawah ini :

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

Silahkan Simpan, jikalau sudah selesai, kita eksklusif buka VB .Net anda
Buatlah Form dengan nama Form1 dan Design form menyerupai 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 yaitu sebagai berikut :

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