Membuat koneksi dari Visual Basic 2008 ke Mysql

 

Membuat koneksi dari Visual Basic 2008 ke Mysql30 Mei 2013 22:22 Visual  Basic biasanya menggunakan database MS SQL, MS Access, dan lain sebagainya. Mengapa saya memilih MySql sebagai database? salah satunya adalah menurut saya MySql adalah database powerfull yg gratis/free dan masih banyak lagi keunggulannya, untuk melihat apa saja keunggulan MySql silahkan anda searching di Google.



Program yang dibutuhkan :
1. Visual Studio 2008.

2. Server mysql. Silahkan download di http://www.mysql.com/
 untuk mendapatkan server MySql yang sesuai dengan Operasi System yang
anda gunakan. Tapi disini saya menggunakan xampp versi 1.5.1 anda dapat
mendownloadnya di http://www.apachefriends.org dan instal pada komputer anda.

3. Konektor MySql yaitu MyOdbc. Disini saya menggunakan myodbc versi 3.51.30. Anda dapat mendownloadnya di sini http://dev.mysql.com/downloads/connector/odbc/ dan instal pada komputer anda.



Langkah-langkah

1. Buatlah Form1 seperti pada gambar di bawah ini. yang terdiri dari satu buah text Label dan dengan dua buah button

2. buat sebuah module dengan cara klik kanan pada project anda di solution
 explorer, pilih add, pilih modul dan berinama koneksi.


 3. isi module dengan kode seperti di bawah ini:

Imports System.Data.Odbc

Module koneksi
 
 Public conn As New OdbcConnection("Driver={MySQL ODBC 3.51
Driver};Server=localhost;Database=mywaroeng;User=ferri;Password=passwordanda;Option=3;")

    Sub bukakoneksi()
        If conn.State = ConnectionState.Closed Then
            Try
                conn.Open()
            Catch mex As OdbcException
                MsgBox(mex.Message)
            End Try
        End If
    End Sub

    Sub tutupkoneksi()
        conn.Close()
    End Sub

End Module


4. pada Form1 masukkan kode berikut :



Public Class Form1

    Sub cekkoneksi()
        If conn.State = ConnectionState.Open Then
            Label1.Text = "KONEKSI BERHASIL"
        ElseIf conn.State = ConnectionState.Closed Then
            Label1.Text = "TIDAK ADA KONEKSI"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cekkoneksi()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bukakoneksi()
        cekkoneksi()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tutupkoneksi()
        cekkoneksi()
    End Sub

End Class


5. Jalankan program

 

6. untuk source kode silahkan download di sini. caranya :



Demikian catatan fey ini. jikalau ada kata-kata yang kurang atau salah saya mohon maaf. semoga bermanfaat.