MySQL Conector untuk VB.NET

Di Tutorial Pertama Ini Saya Akan Menjelsakan Sedikit tentang koneksi database MySql ke VB.NET

Apa Itu MySQL Conector...?
MySQL Conector yaitu sebuah konektor untuk mengkoneksikan Database MySQL dengan VB.NET Kira-Kira Seperti Itu heheh :)

Download Dulu MySQl Conector.Net Nya Disini
Sesudah Didownload Jangan Lupa Diinstal Conector nya,Sesudah Diinstal Mari Kita Ngoding.....!





1.Jalankan Dulu Aplikasi XAMPP nya lihat Gambar Jika Belum Punya Aplikasi XAMPP nya Download Disini...!

2.menggunakan Visual Studio 2010. Files -> New -> Project...

3.Pilih Visual Basic --> Windows --> Windows Application, beri nama project, tentukan lokasi penyimpanan kemudian klik tombol OK.

Maka Sebuah Sebuah project baru dan sebuah form akan terbentuk.

4.Pada Menu Solution Explorer Pada Project yang tadi anda buat klik kanan lalu pilih add Reference

lihat gambar...!

5.Lihat Gambar

Pada dialog Add Reference klik tab Browse kemudian explore lokasi: 

C:\Program Files\MySQL\MySQL Connector Net 6.5.4\Assemblies\v2.0\

Masukan File MySql.Data.dll pilih ok

lalu masukan lagi  MySql.Web.dll pilih ok

(catatan: sesuaikan path dengan versi yang Anda download) 

Reference MySQL.Data akan ditambahkan. Pastikan juga System.Data sudah ditambahkan sebagai Reference.

6.Atur UI(User Interface) atau Form dengan menambahkan 1 button bernama btnKoneksi lihat gambar

Klik dua kali button koneksinya lalu masukan kode nya seperti dibawah ini

Lalu atur code berikut pada jendela code.

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim conn As MySqlConnection

    Private Sub btnKoneksi_Click(ByVal sender As System.Object, _

            ByVal e As System.EventArgs) Handles btnKoneksi.Click

        conn = New MySqlConnection()

        conn.ConnectionString = "server=localhost;user id=root;" & _

                                "password=;database=latihan"

        Try

            conn.Open()

            MessageBox.Show("Koneksi Berhasil")

            conn.Close()

        Catch myerror As MySqlException

            MessageBox.Show("Error Koneksi: " & myerror.Message)

        Finally

            conn.Dispose()

        End Try

    End Sub

End Class

Run/Debug kemudian klik tombol Cek Koneksi. Akan muncul message box "Koneksi Berhasil" jika koneksi berhasil tersambung jika gagal akan uncul error koneksi silahkan koreksi lagi jika salah

selamat mencoba :)

selamat bertemu lagi di pertemuan kedua :)