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 :
- 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
