Cara membuat koneksi database MySql di VB.NET Modul

Saya kali ini akan memberikan sebuah tutorial untuk VB.NET sesuai judulnya saya sekarang akan memberi sebuah tutorial untuk membuat koneksi database MySql di VB.NET menggunakan sebuah Modul, langsung saja.

• Tambahkan Sebuah Modul ke project kalian
• Project > Add Module
• Rename Module yang tadi ke SQLControl atau terserah kalian
• Tambahkan konektor MySql 
• Project > Add Reference > Cari "Mysql" > centang yang "MySql.Data" > OK
• Lalu Masukan coding di bawah ke Module yang udah tadi di tambahkan

Imports MySql.Data.MySqlClient 'ini harus ada di atas !

Module SQLControl

    Dim SERVER As String = "Localhost"
    Dim PORT As String = "3306"
    Dim UID As String = "root"
    Dim PASSWORD As String = ""
    Dim DATABASE As String = "db_latihan"

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

    Public SqlCon As New MySqlConnection(ConnectionString)

End Module

• Ke Form1
• Tambahkan sebuah button1
• lalu double klick pada button, lalu masukan coding untuk mengetes koneksi dibawah

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

Pada coding diatas akan mencoba membuka koneksi database yang sudah diatur pada Module SQLControl yaitu SqlCon, jika koneksi berhasil terbuka maka akan muncul pesan "Koneksi Berhasil", jika gagal akan muncul pesan "Gagal : kode/pesan error".

Note : yang berwarna Merah adalah sebuah Variabel

Sekian dari saya selamat mencoba.