Cara Menampilkan data dari database MySql ke DataGridView VB.NET

Saya kali ini akan memberikan sebuah tutorial untuk VB.NET sesuai judulnya saya sekarang akan memberi sebuah tutorial untuk menampilkan data dari database MySql di VB.NET menggunakan sebuah Modul yang sudah saya buat dari postingan yang lalu, jika belum melihat klik disini untuk melihat Module, baiklah kita mulai saja.

• Tambahkan terlebih dahulu sebuah komponen DataGridView pada ToolBox untuk menampilkan data dari database

• Hingga terlihat kurang lebih seperti ini 

• Setelah memasukan DataGridView ke Form1 lalu kita tambahkan Variabel Public di Modul yang sudah di buat

Public SQLCMD As MySqlCommand
Public SQLDA As MySqlDataAdapter
Public SQLDS As DataSet

• Hingga Menjadi

Imports MySql.Data.MySqlClient

Module SQLControl

    Dim SERVER As String = "127.0.0.1"
    Dim PORT As String = "3306"
    Dim UID As String = "root"
    Dim PASSWORD As String = ""
    Dim DATABASE As String = "db_belajar"

    Dim ConnectionString As String = "SERVER=" & SERVER & ";PORT=" & PORT & ";UID=" & UID & ";PASSWORD=" & PASSWORD & ";DATABASE=" & DATABASE & ""

    Public SqlCon As New MySqlConnection(ConnectionString)

    Public SQLCMD As MySqlCommand
    Public SQLDA As MySqlDataAdapter
    Public SQLDS As DataSet

End Module

• Jangan lupa masukan Imports MySql.Data.MySqlClient di bagian paling atas

Imports MySql.Data.MySqlClient

• Setelah itu Double klik di form1 lalu masukan coding di bawah

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      tampilkan_data() 'ini akan error karena anda belum membuat sub baru
End Sub

• Setelah itu buatlah Sub tampil_data() di bawah End Sub dan masukan codingnya

Sub tampilkan_data()
        Try
            SqlCon.Open()

            SQLCMD = New MySqlCommand("SELECT * FROM t_user", SqlCon)
            SQLDA = New MySqlDataAdapter(SQLCMD)
            SQLDS = New DataSet
            SQLDA.Fill(SQLDS)
            If SQLDS.Tables.Count > 0 Then
                DataGridView1.DataSource = SQLDS.Tables(0)
            End If

            SqlCon.Close()
        Catch ex As Exception
            MsgBox("Gagal : " + ex.Message, MsgBoxStyle.Critical, "Gagal")
            If SqlCon.State = ConnectionState.Open Then
                SqlCon.Close()
            End If
        End Try
End Sub

• Setelah Selesai Kira-kira akan terlihat seperti ini 

Imports MySql.Data.MySqlClient

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tampilkan_data()
    End Sub

    Sub tampilkan_data()
        Try
            SqlCon.Open()

            SQLCMD = New MySqlCommand("SELECT * FROM t_user", SqlCon)
            ''yang berwarna Ungu adalah sebuah Query Untuk menampilkan data dari tabel "t_user"
            SQLDA = New MySqlDataAdapter(SQLCMD)
            SQLDS = New DataSet
            SQLDA.Fill(SQLDS)
            If SQLDS.Tables.Count > 0 Then
                DataGridView1.DataSource = SQLDS.Tables(0)
            End If

            SqlCon.Close()
        Catch ex As Exception
            MsgBox("Gagal : " + ex.Message, MsgBoxStyle.Critical, "Gagal")
            If SqlCon.State = ConnectionState.Open Then
                SqlCon.Close()
            End If
        End Try
    End Sub
End Class

• Jika semua sadah Silahkan Run Project yang tadi sampai muncul aplikasinya dan data tampil di DataGridView

Dan datapun sudah ditampilkan di DataGridView, Selamat Mencoba

Good Luck