Membuat Koneksi Database MySql pada VB.Net menggunakan Class

Pada artikel saya ini, saya akan membagikan source kode secara cuma-cuma kepada sobat Blogger. Khususnya bagi Anda yang suka ngoprek VB.Net

Memang banyak cara untuk melakukan koneksi database dengan vb.net, yang paling sering digunakan adalah menggunakan module tambahan pada project. Tapi pada kesempatan kali ini saya ingin berbagi kepada Anda cara koneksi namun menggunakan Class. Kenapa saya menggunakan Class? Menurut hemat saya, class disini sangat membantu memudahkan pemanggilan fungsi-fungsi yang telah kita buat pada class koneksi, hanya dengan memanggil class-class pada awal form saja. Lalu kita dengan bebas n leluasa menggunakannya pada listing kode kita.

Yaa bagi Anda yang belum terbiasa memang harus membutuhkan sedikit penyesuaian untuk menggunakan class ini, namun setelah Anda terbiasa, ini sangat mudah dan sangat simple sekali..

Contoh :

1. Ketika saya mau memanggil tabel data user di tabel pengguna maka saya hanya menggunakan kode : tabel = proses.ExecuteQuery("select password, jml_login from petugas where kode ='" & tampung & "'")

cukup dengan itu saja ga perlu ribet dan panjang...hehe..

Selain fungsi-fungsi class seperti yang saya sebutkan, masih banyak lagi kegunaan class pada program. Silahkan Cek artikel saya DISINI.

Ok..Sudah cukup teori singkat yang saya berikan..hehe..kembali ke topik kita :

Ok..Berikut contoh listing Class Koneksi pada project yang saya kerjakan. 

Imports MySql.Data.MySqlClient

Imports System.Data.SqlClient

Imports System.IO

Public Class ClsKoneksi

    Protected SQL As String

    Protected Cn As New MySqlConnection

    Protected Cmd As New MySql.Data.MySqlClient.MySqlCommand

    Protected Da As New MySql.Data.MySqlClient.MySqlDataAdapter

    Protected Ds As New DataSet

    Protected Dt As DataTable

    Public Function OpenConn() As Boolean

        Cn = New MySqlConnection("server=localhost;" _

           & "user id=root;" _

           & "password=;" _

           & "database=teees;" _

           & "character set=utf8;")

        Cn.Open()

        If Cn.State <> ConnectionState.Open Then

            Return False

        Else

            Return True

        End If

    End Function

    Public Sub CloseConn()

        If Not IsNothing(Cn) Then

            Cn.Close()

            Cn = Nothing

        End If

    End Sub

    Public Function ExecuteQuery(ByVal Query As String) As DataTable

        If Not OpenConn() Then

            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")

            Return Nothing

            Exit Function

        End If

        Cmd = New MySql.Data.MySqlClient.MySqlCommand(Query, Cn)

        Da = New MySql.Data.MySqlClient.MySqlDataAdapter

        Da.SelectCommand = Cmd

        Ds = New Data.DataSet

        Da.Fill(Ds)

        Dt = Ds.Tables(0)

        Return Dt

        Dt = Nothing

        Ds = Nothing

        Da = Nothing

        Cmd = Nothing

        CloseConn()

    End Function

    Public Sub ExecuteNonQuery(ByVal Query As String)

        If Not OpenConn() Then

            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")

            Exit Sub

        End If

        Cmd = New MySql.Data.MySqlClient.MySqlCommand

        Cmd.Connection = Cn

        Cmd.CommandType = CommandType.Text

        Cmd.CommandText = Query

        Cmd.ExecuteNonQuery()

        Cmd = Nothing

        CloseConn()

    End Sub

End Class