Membuat koneksi ke database dengan sebuah class pada vb.net

Pada tutorial kali ini kita akan belajar membuat koneksi ke database MySql dengan menggunakan sebuah Class, keuntungan dari membuat class ini adalah kita tidak usah repot-repot mengetik lagi script koneksi pada setiap form yang membutuhkan koneksi ke database, disamping itu juga membuat semakin minimnya script yang kita tulis.

Oke langsung saja tambahkan folder AccessData pada project explorer dengan cara klik kanan dan pilih folder lalu tambahkan class dengan nama koneksi dan DataControl dengan cara yang sama seperti menambahkan folder, tapi sebelumnya seperti biasa tambahkan terlebih Reference mysql konektor pada project kita.

Buka class koneksi dan ketikkan Script berikut:

Imports MySql.Data.MySqlClient

Namespace AccessData
Public Class koneksi
Dim conn As New MySqlConnection(“server=localhost;user id=root; database=bookstore; pooling=false;Connection Timeout=10”)

Public Function open() As MySqlConnection

If conn.State <> ConnectionState.Open Then
conn.Open()
End If
Return conn

End Function

Public Function close() As MySqlConnection
conn.Close()
Return conn

End Function

End Class
End Namespace

Sesuaikan nama database, dan juga password pada komputer anda.

Untuk class DataControl ketikkan code berikut:

Imports MySql.Data.MySqlClient
Namespace AccessData
Public Class DataControl
Private MyConnection As New AccessData.koneksi
Public Function GetdataSet(ByVal SQL As String) As DataSet
Dim adapter As New MySqlDataAdapter(SQL, MyConnection.open)
Dim myData As New DataSet
adapter.Fill(MyData, “Data”)
Return myData
End Function
End Class
End Namespace

Class diatas akan sangat bermanfaat sekali bila aplikasi yang kita buat berskala besar. Dengan menggunakan class diatas kita bisa menampilkan seluruh table pada database hanya dengan mengetikkan Sql nya saja. Selanjutnya data akan di isi ke Dataset.

Apabila telah selesai sekarang kita beralih ke form1 tambahkan datagridview dan tombol pada form1 seperti gambar berikut :

Double klik pada form1 lalu ketikkan kode berikut:

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim MyConnection As New AccessData.koneksi
    Dim ObjdataTable As New DataTable
    Dim DtDataView As New DataView
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim KontrolData As New AccessData.DataControl
        Dim MyData As DataSet = KontrolData.GetdataSet(“Select * From buku”)
        ObjdataTable = MyData.Tables(“data”)
        DtDataView.Table = ObjdataTable
        DataGridView1.DataSource = DtDataView
        DataGridView1.GridColor = Color.Cyan

    End Sub
End Class

Jalankan program dengan menekan tombol F5 lalu tekan tombol Show Table jika data table keluar berarti koneksi telah berhasil.

Kesimpulanya apabila kita ingin menghubungkan pada database terlebih dahulu kita deklarasikan script berikut Dim MyConnection As New AccessData.koneksi