Menu

Tuesday 9 December 2014

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

0 comments: