Membuat Koneksi Database MySql pada VB.Net menggunakan Class (1)

7
7729

Assalamualaikum…

Pada postingan kali ini, saya mau berbagi sedikit tutorial Koneksi Database MySql pada VB.Net dengan menggunakan Class. Sebenarnya saya sudah menulisnya di Blog, tapi saya ingin menulis artikel tutorial VB.Net lainnya dan perlu artikel ini sebagai bahan rujukannya. So, jadi itu latar belakang saya menulis artikel ini.

Seperti yang telah banyak diketahui, ada banyak cara untuk koneksi database pada VB.Net yang paling sering dan yang sering saya lihat adalah menggunakan module untuk koneksi. Tapi setelah saya lihat dan bandingkan perbedaan antara keduanya bahwa penggunaan koneksi dengan Class jauh lebih mudah dan simpel dalam pemanggilan datanya. Nanti saya akan berikan contohnya.

1. Tambahkan Class Pada Project

Screenshot_9

2. Isi nama class tersebut. Misalnya pada contoh saya menggunakan nama “Koneksi”. Jika sudah klik tombol Add untuk menambahkan Class pada project.

Screenshot_12

3. Pastekan kode berikut ini ke dalam class koneksi yang sudah dibuat:


Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Imports System.Data.Odbc
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
Try
‘MsgBox(“tidak bisa konek ke database server”)
Cn = New MySqlConnection(“server=localhost;” _
& “user id=root;” _
& “password=;” _
& “database=Test;” _
& “character set=utf8;”)
Cn.Open()

Catch ex As Exception

End Try

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
Try
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()
Catch ex As Exception
MsgBox(“Terjadi kesalahan dalam pemanggilan data” & Chr(13) & “Pastikan tidak menggunakan tanda (‘) atau (/) dalam penginputan”, vbInformation)

End Try

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


Catatan : Untuk Kode yang berwarna biru sesuaikan dengan database, user n password yang sudah dibuat ya.

4. Jika terjadi error seperti gambar di bawah lanjutkan untuk tahap berikutnya :

Screenshot_13

  • Jika belum pernah instal mysql connector for net, bisa download dulu di website resminya disini. (Pastikan mysql connector edisi terbaru untuk manjamin kelancaran koneksi antara mysql dan vb.net)
  • Jika sudah selesai diinstal, masuk ke Project Propertis. Lalu pilih tab References.
  • Screenshot_14
  • Klik tombol Add untuk menambahkanScreenshot_15
  • Pilih tab browse untuk mecari file yang dibutuhkan, dan cari file MySQL.Data.dll. Biasanya terletak di Program File – Mysql – Mysql Connector Net – Assemblies – Versi terbaru
  • Pilih V.4 saja, biasanya Visual Studio menggunakan fremework 4.0
  • Klik Ok jika sudah.
  • Otomatis eror pun sudah hilang dan tandanya sudah berhasil.
  • Jika masih terdapat error jangan panik dulu, mungkin settingan project untuk frameworknya belum diubah ke versi framework 4.0
  • Masuk ke project Propertis dan ikuti langkah pada gambar berikut:Screenshot_34 Screenshot_35

5. Berikutnya Adalah cara penggunaan dari class koneksi yang sudah dibuat di dalam form. 

Next Artikel ya…

 

Cara penggunaan Class Koneksi Database MySql

 

Jangan lupa berbagi ya agar pahala saya semakin banyak..hehe

Jika ada salah atau pertanyaan jangan sungkan untuk bertanya

LEAVE A REPLY