Menampilkan Data dari Database ke DataGrid pada VB.net

Assalamu’alaikum Wr Wb

Selamat datang di web Sibukngoding.com. Pada kesempatan kali ini, saya akan menyampaikan materi cara menampilkan data dari database ke datagridview di VB.net. Untuk database saya menggunakan MariaDB dan untuk Visual studio yang saya pakai adalah versi 2010. Untuk versi lain insya Allah masih sama. Materi ini hampir sama dengan materi sebelumnya yaitu cara koneksi databaseMariadb dengan vb.net, tetapi untuk kali ini kita coba tampilkan datanya di Datagridview.

Silahkan buat dulu database beserta tabel yang akan ditampilkan ke datagrid. Sebagai contoh saya membuat database contohjual dengan nama tabel barang. Bagi teman-teman yang belum bisa membuat database dan tabelnya bisa di klik disini.

Jangan lupa diisikan juga data ke dalam tabelnya sebagai contoh di bawah ini:

Setelah dibuat databasenya dan databasenya, kita buat dulu Mysql Connector ODBCnya. Jika belum tahu caranya bisa lihat disini. Sebagai contoh yang saya buat sebagai berikut:

Setelah berhasil dibuat, saatnya masuk ke VB.net. Buat Project baru lalu buat form seperti dibawah ini.

Seperti yang kita lihat, kita hanya memakai data grid View. Letak datagridGridView dibagian toolbox bagian data seperti dibawah ini

Untuk propertisnya sebagai berikut:

Tool Control	Propertis	Value
Form1	Name	Frmtampilbarang
	Text	Tampil Data Barang
DataGridView1	Name	DGVbarang

Selanjutnya kita buat Source codenya.

Untuk yang pertama kita masuk ke jendela view Source dengan cara tekan F7

Kita tambahkan dulu source code yang digunakan untuk import ODBC karena kita pakai connector ODBC. Letakkan diatas tulisan Public Class frmtampilbarang

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.
• -          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

Ketikkan Variabel variabel tersebut dibawah tulisan Public Class frmtampilbarang dengan format seperti berikut:

    Dim DSN As String

    Public Conn As OdbcConnection

    Public DA As OdbcDataAdapter

    Public DS As DataSet

Selanjutnya kita buat sub Procedure Baru yang digunakan untuk membuat koneksi. Kenapa saya buat sub procedure, karena agar koneksi tersebut bisa dipanggil berkali kali tanpa harus menuliskan source code koneksi. Untuk Sub Procedure koneksi, saya kasih nama koneksi(). Teman-teman bisa ganti nama yang lain. Berikut Souce codenya, Letakkan dibawah variabel yang telah dibuat tadi.

    Public Sub Koneksi()

        DSN = "DSN=contohjual"

        Try

            Conn = New OdbcConnection(DSN)

            Conn.Open()

        Catch ex As Exception

            MsgBox("Koneksi Gagal")

        End Try

    End Sub

Untuk DSN, Silahkan sesuaikan dengan Data Source Name yang telah dibuat sebelumnya. Setelah itu, kita Kembali ke form dengan menekan tombol Shift+F7. Kita coba buat agar data langsung tampil saat program pertama kali berjalan, maka kita ketikkan source code di form_load. Untuk masuk ke form_load, kita klik formnya 2x

Atau kita klik sekali, lalu masuk ke propertis event(Gambar Petir kuning), lalu pilih form_load

Nanti akan masuk ke jendela view source dan muncul  Private Sub frmtampilbarang_Load

Setelah itu kita masukkan sorce code untuk menampilkan data dari database ke DatageridView di Vb.net. Untuk Source Code nya sebagai Berikut:

        Koneksi()

        DA = New OdbcDataAdapter("SELECT * FROM barang", Conn)

        DS = New DataSet

        DA.Fill(DS, 0)

        dgvbarang.DataSource = DS.Tables(0)

        Conn.Close()

Untuk Sorce Code keseluruhan sebagai berikut:

Imports System.Data.Odbc
Public Class frmtampilbarang
    Dim DSN As String
    Public Conn As OdbcConnection
    Public DA As OdbcDataAdapter
    Public DS As DataSet

    Public Sub Koneksi()
        DSN = "DSN=contohjual"
        Try
            Conn = New OdbcConnection(DSN)
            Conn.Open()
        Catch ex As Exception
            MsgBox("Koneksi Gagal")
        End Try
    End Sub
   
    Private Sub frmtampilbarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        DA = New OdbcDataAdapter("SELECT * FROM barang", Conn)
        DS = New DataSet
        DA.Fill(DS, 0)
        dgvbarang.DataSource = DS.Tables(0)
        Conn.Close()
    End Sub
End Class

Jika sudah, Silahkan mulai di Run Programnya. Jika Benar, maka akan muncul data dari database seperti di bawah ini:

Jika muncul koneksi gagal, bisa jadi ada kesalahan dalam Penamaannya, silahkan dicek lagi.

Jika masih eror, bisa ditanyakan lewat kolom komentar.

Demikian postingan saya pada kesempatan kali ini, semoga bermanfaat. Jangan lupa tetap kunjungi web sibuk ngoding untuk mendapatkan Tutorial bahasa pemrograman lainnya.

Terimakasih atas kunjungannya, selamat belajar, Tetap Semangat dan Jangan mudah menyerah.

Wassalamu'alaikum Wr Wb