VB.NET MySQL: Binding Data ke Combobox

Kita akan mencoba menampilkan data kategori pada combobox.
Tambahkan sebuah combobox pada form dan beri nama cboKategori.

Kemudian kita tambahkan baris kode sebagai berikut:
cboKategori.DataSource = myData
cboKategori.DisplayMember = "namakategori"
cboKategori.ValueMember = "kodekategori"

Kode lengkap nya sebagai berikut:
Imports MySql.Data.MySqlClient
Imports System.Data
Public Class Form1
    Dim conn As MySqlConnection
    Dim myCommand As New MySqlCommand
    Dim myAdapter As New MySqlDataAdapter
    Dim myData As New DataTable
    Dim SQL As String

    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New MySqlConnection()
        conn.ConnectionString = "server=localhost;user id=root;" & _
                                "password=;database=latihan"
        Try
            conn.Open()
            SQL = "Select kodekategori, namakategori From kategori"

            myCommand.Connection = conn
            myCommand.CommandText = SQL

            myAdapter.SelectCommand = myCommand
            myAdapter.Fill(myData)

            grdData.DataSource = myData

            cboKategori.DataSource = myData
            cboKategori.DisplayMember = "namakategori" 
            cboKategori.ValueMember = "kodekategori"

            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub
End Class

Cobalah untuk run/debug aplikasi, data akan ditampilkan di list combobox.

Click here if you like this article.

Tonton juga videonya yah!

Artikel Mengenai VB.NET MySQL:

1. Koneksi VB.NET ke MySQL
2. Menampilkan Data di Grid
3. Binding Data ke Combobox
4. Create, Read, Update, Delete (CRUD)
5. Import dari Excel
6. Login Form