Koneksi VB.NET ke MySQL Database dengan MySqlClient dan ODBC

Dalam membuat koneksi di visual studio .net kamu bisa saja menuliskan perintah untuk koneksi ke database dalam form yang sama, namun kamu juga bisa membuat sebuah module baru atau class baru dan khusus untuk koneksi ke database saja. Ikuti langkah – langkahnya :

1. Memuat Koneksi Vb.net dengan ODBC

Persiapan sebelumnya kamu diwajibkan mendownload dan menginstall driver MySQL Connector/ODBC yang berguna untuk menghubungkan aplikasi kamu dengan database tentunya. Dalam tutorial ini juga penulis menggunakan driver MySQL connector versi 5.1, kamu bisa mendownloadnya di situs resmi MySQL atau langsung di sini http://dev.mysql.com/downloads/connector/odbc/5.1.html

Langsung saja buat project baru di visual studio kamu, saya menggunakan visual studio 2015. Buatlah project baru dengan nama BelajarKoneksiDatabase, dan pada form1.vb designlah tampilan aplikasi kamu seperti gambar berikut :

Membuat Koneksi ODBC Driver dan MySQL Client

Pada komputer/laptop kamu silahkan buka Administrative Tools yang ada di control panel > System and Security > Administrative Tools dan pilih ODBC Data Sources. Ingat jika kamu menggunakan visual studio 64bit silahkan pilih data sources 64 bit, begitu juga sebaliknya.

Buatlah Data Sources baru dengan cara klik New > pilih MySQL ODBC 5.1 Driver > Finish. Sesuaikan Data Sources dengan database server yang kamu gunakan. Lihat gambar berikut dan sesuaikan dengan database kamu :

 Jika sudah selesai jangan langsung di save, silahkan di test terlebih dahulu. Jika koneksi sudah ok baru di save.

Membuat Module Koneksi

Lanjut dengan pembuatan module baru untuk membuat module koneksi kita dengan cara pada menu Project > Add Module dan beri nama ModuleKoneksi.vb, selanjutnya tuliskan seluruh code koneksi database berikut :

Sub Koneksi dengan ODBC

 
    Sub openConnectionsODBC()
        Try
            connectodbc = New OdbcConnection("DSN=belajarkoneksi;" _
                                         + "MultipleActiveResultSets=True")
            If connectodbc.State = ConnectionState.Closed Then
                connectodbc.Open()
                MsgBox("Koneksi Berhasil")
            End If
        Catch ex As Exception
            MsgBox("konek Kedatabase Bermasalah")
        End Try
    End Sub

Sub Koneksi Dengan MySQL CLient

    Sub openConnectionsMySQL()
        Try
            connectMySQL = New MySqlConnection("Server=localhost;" _
                                               + "user id=root;" _
                                               + "password=;" _
                                               + "database=k13new")
            If connectMySQL.State = ConnectionState.Closed Then
                connectMySQL.Open()
                MsgBox("Koneksi Berhasil")
            End If
        Catch ex As Exception
            MsgBox("konek Kedatabase Bermasalah")
        End Try
    End Sub

Deklarasikan koneksi odbc dan mysql client

    Public connectodbc As OdbcConnection
    Public connectMySQL As MySqlConnection

Import NameSpace

Import NameSpace
Imports System.Data.Odbc
Imports MySql.Data.MySqlClient

Code untuk memutuskan Koneksi Database

    Sub closeConnection()
        connectodbc.Close()
        connectMySQL.Clone()
    End Sub

Seluruh code diatas merupakan code modulekoneksi.vb yang akan membuat koneksi ke database dan memutuskan koneksi dari database. selanjutnya kita akan memanggil koneksi dari form1.vb. sehingga keseluruhan code pada form1.vb seperti berikut :

Public Class Form1
    Private Sub Button2_Click(sender As Object, e As EventArgs) _
        Handles Button2.Click
        openConnectionsODBC()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) _
        Handles Button1.Click
        openConnectionsMySQL()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) _
        Handles Button3.Click
        closeConnection()
    End Sub
End Class

Jika sudah beres, silahkan jalankan aplikasi koneksi ke database kamu dengan menekan tombol F5