Menampilkan Data Dari Database Ke Combobox Pada VB.net

Assalamu’alaikum Wr Wb

Selamat datang di web sibukngoding.com. Pada kesempatan kali ini saya akan menjelaskan tentang cara menampilkan data dari database ke combobox pada vb.net.

Menampilkan data dari database ke combobox ini dipakai dalam transaksi penjualan saat memilih data barangnya atau bisa juga digunakan menampilkan jabatan pada form karyawan dengan syarat jabatan dibuat tabel sendiri. Jadi jika sewaktu-waktu jabatan bertambah, tinggal dimasukkan di tabelnya tidak perlu mengedit item dalam comboboxnya.

Sebagai contoh saya akan menggunakan database mariadb dengan nama database dbjualcontoh dan nama tabel barang.

Untuk setingan odbc sebagai berikut:

Selanjutnya saya membuat form baru dengan menambahkan combo box seperti berikut.

Untuk Source Code nya  sebagai Silahkan masuk dulu ke jendela view Source dengan cara tekan F7 Lalu ketikkan sourcenya

Ketikkan source code import ODBC di atas sendiri atau diatasnya Public Class form4 (Sesuaikan nama form anda)

Imports System.Data.Odbc

Setelah itu kita buat Variabel yang akan digunakan. Disini saya menggunakan 4 Variabel yaitu

• DSN merupakan nama variabel yang digunakan untuk menyimpan data data source name yang telah kita buat di ODBC
• Conn merupakan nama variabel yang isinya mereferensikan pada OdbcCOnnection yang berfungsi sebagai penyedia koneksi dari sumber data atau database.
• DA merupakan variabel yang isinya mereferensikan pada OdbcDataAdapter yang berfungsi mengisi Object Dataset dengan hasil data dari sumber data atau database.
• CMD Merupakan variabel yang isinya mereferensikan pada ODBCcommand yang digunakan untuk melakukan pernyataan SQl atau prosedur yang akan dilaksanakan pada database. Seperti yang kita tahu bahawa perintah input pada mysql menggunakan fungsi insert, nah fungsi tersebut nantinya akan dituliskan di ODBCcommand. Dalam prakteknya, nanti ada 3 perintah digunakan untuk mengeksekusi perintah SQL di ODBCcommand yaitu ExecuteNonQuery, ExecuteReader dan ExecuteSecalar. ExecuteNonQuery digunakan untuk mengeksekusi Script SQL Data Definition Language(DDL) seperti insert, Update dan delete. ExecuteReader digunakan untuk Mengeksekusi Scrip SQL berupa perintah select saja. Output dari ExecuteReader nanti akan disimpan di variabel OdbcDataReader. Sedangkan ExecuteSecalar hampir sama fungsinya dengan ExecuteReader. Bedanya ExecuteSecalar outputnya adalah object, dan hanya menghasilkan data pada kolom pertama dan baris pertama.
• RD Merupakan varianel yang isinya mereferensikan pada OdbcDataReader yang berfungsi mengambil data dari database dalam mode read-only dan mode fordward.
• DS Merupakan nama variabel yang isinya mereferensikan pada Dataset yang berfungsi menyimpan data dari sumber data atau database, jadi data didataset inilah yang akan ditampilkan di DatagridView

Ketikan variabel-variabel diatas di bawahnya  Public Class form4 (Sesuaikan nama form anda)

    Dim DSN As String

    Public Conn As OdbcConnection

    Public DA As OdbcDataAdapter

    Public DS As DataSet

    Public CMD As OdbcCommand

    Public RD As OdbcDataReader

Selanjutnya kita buat sub procedure baru dengan nama koneksi() yang berisi perintah koneksi dari vb.net ke database. Ketikkan di bawahnya source code variabel.

   Public Sub Koneksi()

        DSN = "DSN=contohjual"

        Try

            Conn = New OdbcConnection(DSN)

            Conn.Open()

        Catch ex As Exception

            MsgBox("Koneksi Gagal")

        End Try

    End Sub

Pada  DSN=contohjual Sesuaikan dengan isi data source name di MysqlConnectorODBC yang telah dibuat sebelumnya.

Setelah itu kita masukkan source code untuk menampilkan data dari database ke combobox . disini saya pakai sub prosedur baru dengan nama tampilbarang()

    Sub tampilbarang()

        'Untuk menampilkan data dari database ke combo box

        Koneksi()

        CMD = New OdbcCommand("select * from barang", Conn)

        RD = CMD.ExecuteReader

        ComboBox1.Items.Clear()

        Do While RD.Read

            ComboBox1.Items.Add(RD.Item(0))

        Loop

    End Sub

Agar sub prosedure tampilbarang() tereksekusi saat program pertama berjalan, kita tambahkan di form_load seperti berikut:

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

        tampilbarang()

    End Sub

Untuk source keseluruhan sebagai berikut:

Imports System.Data.Odbc
Public Class Form4
    Dim DSN As String
    Public Conn As OdbcConnection
    Public DA As OdbcDataAdapter
    Public DS As DataSet
    Public CMD As OdbcCommand
    Public RD As OdbcDataReader

    Public Sub Koneksi()
        DSN = "DSN=contohjual"
        Try
            Conn = New OdbcConnection(DSN)
            Conn.Open()
        Catch ex As Exception
            MsgBox("Koneksi Gagal")

        End Try
    End Sub

    Sub tampilbarang()
        'Untuk menampilkan data dari database ke combo box
        Koneksi()
        CMD = New OdbcCommand("select * from barang", Conn)
        RD = CMD.ExecuteReader
        ComboBox1.Items.Clear()
        Do While RD.Read
            ComboBox1.Items.Add(RD.Item(0))
        Loop
    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tampilbarang()
    End Sub
End Class

Jika di run, hasilnya sebagai berikut.

Teman teman bisa mengganti data yang ditampilkan pada combo box dengan mengganti di ComboBox1.Items.Add(RD.Item(0))

Ganti angka 0(nol) dengan dengan no field yang diinginkan. Nomor dimulai dari 0(nol)

Demikian salah satu cara menampilkan data dari database ke combo box, Silahkan dipelajari lebih lanjut dan jika ada pertanyaan bisa ditanyakan lewat kolom komentar. Tetap kunjungi web sibukngoding.com untuk mendapatkan tutorial bahasa pemrograman lainnya.

Terimakasih atas kunjungan, Selamat Belajar, Tetap semangat dan jangan mudah menyerah.

Wasalamu’alaikum Wr Wb