Cara Menambahkan Item ComboBox Dari Database Pada VB.Net

Cara Menambahkan Item ComboBox Dari Database Pada VB.Net - priacoding. Dalam sebuah aplikasi tool ComboBox juga sangat sering digunakan berguna untuk meninimalisir kesalahan pengimputan data. Akan tetapi ada kalanya kita mebutuhkan item ComboBox yang Dinamis (bisa berubah-ubah). Berikut adalah tutorial menambahkan item ComboBox yang dinamis berdasarkan Databasa MySQL.
Oke langsung saja kita masuk ke tutorial nya...

1. Tambahkan 1 buah ComboBox pada form
Seperti Gambar..

2. Pada database mysql, silahkan buat database dan tebel terlebih dahulu
Saya memiliki tabel seperti dibawah..

3. Pada code editor VB.Net, silahkan pastekan coding dibawah

Sub tampildata()
        koneksi()
        Try
            cmd = New MySqlCommand("select nm_barang from tbl_barang order by kd_barang", conn)
            rd = cmd.ExecuteReader
            While rd.Read
                ComboBox1.Items.Add(rd("nm_barang"))
            End While
        Catch ex As Exception

        End Try
    End Sub

Pada form load silahkan panggil sub tampildata

Private Sub frabc_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tampildata()
    End Sub

Semua coding

Imports MySql.Data.MySqlClient
Public Class frabc

    Private Sub frabc_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tampildata()
    End Sub
    Sub tampildata()
        koneksi()
        Try
            cmd = New MySqlCommand("select nm_barang from tbl_barang order by kd_barang", conn)
            rd = cmd.ExecuteReader
            While rd.Read
                ComboBox1.Items.Add(rd("nm_barang"))
            End While
        Catch ex As Exception

        End Try
    End Sub
End Class

Penjelasan :

cmd = New MySqlCommand("select nm_barang from tbl_barang order by kd_barang", conn)
            rd = cmd.ExecuteReader
            While rd.Read
                ComboBox1.Items.Add(rd("nm_barang"))
            End While

- select nm_barang from tbl_barang order by kd_barang merupakan pemanggilan nama barang pada tabel barang dan ditampilkan berurutan berdasarkan kode barang
- ComboBox1.Items.Add(rd("nm_barang")) coding untuk menampilkan nama barang pada item combobox

4. Jalankan aplikasi, maka akan menghasilkan

Untuk penjelasan lebih lanjut silahkan lihat video berikut.
Klik Dibawah

Unduh Sourcecode
Pass: priacoding.com

Pages

Cara Menambahkan Item ComboBox Dari Database Pada VB.Net