Disini kita akan bahas cara koneksi antara Database MySQL dengan  VB .Net 2010,
Baik, pertama kali apa saja yang diperlukan
1. MySQL Server, dalam contoh menggunakan appserv, xampp dll
2. MySQL Connector .Net, dalam contoh menggunakan versi 6.6.4
3. VB .Net, dalam contoh menggunakan yang Visual Basic 2010 Express
Langkah-langkah :
1. Kita mulai dengan membuka program VB dengan cara :
Start => all program => Microsoft Visual Studio 2010 Express => Microsoft Visual Basic 2010 Expres
2. Dan yang kedua, akan keluar jendela New Project,  Setelah keluar jendela new project, kemudian pilih windows froms Application dan klik OK, seperti contoh di bawah ini…..
1
3. Setelah keluar form project , kemudian pilih menu project dan pilih WindowsApplication1 Properties…
seperti gambar dibawah ini :
2
4. Dan kemudian akan keluar tab baru, setelah keluar tab baru kemudian kita pilih References den selanjutnya klik add (untuk menambah references buat import ke MySql )
3
5. Dan akan keluar jendela add references, kemudian pilih tab .NET dan cari componen yang bernama MySql.Data, Jika anda sudah menginstall MySQL Connector, maka componen MySql.Data pasti ada, dan selanjutnya klik ok. .
4
6. Setelah anda klik OK, Maka Mysql.Data otomatis akan muncul pada kolom references, kemudian kembali ke tab form1.vb(Design) yang pertama tadi untuk mendesign form kita. . .
5
7. Dan selanjutnya waktunya kita Mendesign form1.vb(Design) dengan cara Drag salah satu toolbox ke form1, dalam contoh disini saya mendrag ToolBox “label1” ke dalam form1, dan selanjutnya ganti nama label1 menjadi Masukkan Nama :
Lihat contoh gambar dibawah ini. . .
7
8. Design form1.vb (design) hingga Seperti dibawah ini.
8
dan ganti properties toolbox nya seperti ini. .
Label1      : text => Masukkan Nama
TextBox     : text => (biarkan kosong)
                : (Name) => TxtName
Botton      : text => Save
                : (Name) => cmdSave
9. Setelah Mendesign form1.vb(Design), kini saatnya memasukan code-code dengan cara klik kanan pada area kosong di jendela form1 dan pilih view code. . . Lihat gambar dibawah ini. .
6
10. Dan selanjutnya akan keluar tab form1.vb yang berisikan kumpulan Sourscode, sekarang kita akan mendeklarasi variable agar bisa terkoneksi ke MySql Server. .
Ketikan sintax berikut ini. .
Dim ServerString As String = “Server=localhost;user id=root;password=root;database=kuliah”
Dim SQLConnection As MySqlConnection = New MySqlConnection
Apa tuh Fungsinya? ke 2 Variabel String diatas berguna untuk menentukan parameter-parameter yang di butuhkan untuk membentuk koneksi ke MySQL,
  • Yang Pertama adalah Server yang menjalankannya, dalam contoh ini saya menggunakan APPSERV, jadi Server bisa diisi dengan localhost, user id diisi dengan root, password saya isi dengan password appserv saya yaitu “root” dan database saya isi dengan nama databases yang digunakan untuk aplikasi yang sedang kita bangun.
  • Yang kedua adalah variabel untuk mewakili database yang telah dibentuk koneksinya. Seharusnya saat ini terjadi error, pemecahannya lakukan import satu baris berikut, dibaris paling atas sendiri:
Imports MySql.Data.MySqlClient
Yup, import satu baris di atas tidak akan bisa dilakukan jika kita tidak melakukan add reference di awal tadi…
* Untuk yg pakai LAN , misal Servernya ada di IP Adreess : 192.168.1.1
maka localhost diganti : 192.168.1.1
* Sesuaikan parameter-parameter diatas dengan setting pada PC tempat database berada.
Dan Selanjutnya kembali ke tab form1.vb(Design) klik 2x pada area kosong di jendela form1, dan isikan sintax berikut ini. . .
SQLConnection.ConnectionString = ServerStringTry
If SQLConnection.State = ConnectionState.Closed Then
SQLConnection.Open()
MsgBox(“Succes berkoneksi ke mysql”)
Else
SQLConnection.Close()
MsgBox(“Gagal berkoneksi ke mysql”)
End If
Catch ex As Exception
MsgBox(ex.ToString)End Try
Penjelasan? OK2… pasti ada koq…^^…
  • SQLConnection.State = bla..bla.. then  digunakan untuk memeriksa status koneksi apakah sedang terbuka atau tidak, jika ya tutup dengan syntax SQLConnection.close() . Jangan lupa, variabel SQLConnection adalah variabel yang kita gunakan untuk mewakili database yang telah terbentuk koneksinya, karena di awal kita sudah membuat koneksi dengan sintax  Dim SQLConnection As MySqlConnection = New MySqlConnection
Try – Catch :
  • Mudahnya, agar jika operasi dalam jualan Try gagal dilakukan, program tidak keluar tanpa pesan, atau ketidakjelasan sehingga kita sulit mengidentifikasi letak masalah. Selain itu, jika kita memikirkan pengguna, kasihan kan jika mereka tiba-tiba langsung diKick tanpa keterangan apapun…sebenarnya juga tidak terlalu membantu…;p Nah, dengan Try – Catch ini, jika operasi dalam Kuliah Try gagal dilaksanakan, maka aplikasi akan mencoba menjalankan operasi yang ada dalam jualan Catch, dalam contoh diberikan MsgBox(ex.Message) dimana ini berguna untuk menampilkan pesan pop-up berisi Succes atau masalah yang terjadi. Nah, pesan ini bisa diganti dengan String sesuka pengembang, terutama jika nanti diterapkan untuk pengguna dengan cara mengubah isinya menjadi MsgBox(“Succes berkoneksi ke MySql”), Sisipkan juga dalam Blok Try sebagai penanda bahwa koneksi gagal dilakukan.
Dan tambahkan sintax berikut ini untuk membuat perintah MySqlComment
Public Sub SaveNames(ByRef SQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommandWith cmd
.CommandText = SQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End WithSQLConnection.Close()
MsgBox(“Berhasil Menambahkan Menambahkan Nama Ke table Mahasiswa di databases Kuliah”)
SQLConnection.Dispose()
End Sub
SQLStatement itu adalah variable yang kita buat sendiri untuk menjalankan Penge save an
* MsgBox(“bla-bla”) yaitu pesan jika kita berhasil menambah ke table mahasiswa
Dan Selanjutnya kembali ke tab form1.vb(Design) klik 2x pada ToolBox Save di jendela form1, dan isikan sintax berikut ini. . .
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim SQLStatement As String = “INSERT INTO mahasiswa(name)values(‘” & TxtName.Text & “‘)”
SaveNames(SQLStatement)
End Sub
* sintax diatas gunanya untuk menginsert values ke table mahasiswa
* SaveNames(SQLStatement) adalah variable string yang kita buat di atas tadi
  • Sehingga isi keseluruhan Sintax form1 kita seperti berikut :
Imports MySql.Data.MySqlClient
Public Class Form1
Dim ServerString As String = “Server=localhost;user id=root;password=root;database=kuliah”
Dim SQLConnection As MySqlConnection = New MySqlConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadSQLConnection.ConnectionString = ServerStringTry
If SQLConnection.State = ConnectionState.Closed Then
SQLConnection.Open()
MsgBox(“Succes berkoneksi ke mysql”)
Else
SQLConnection.Close()
MsgBox(“Gagal berkoneksi ke mysql”)
End If
Catch ex As Exception
MsgBox(ex.ToString)End Try
End SubPublic Sub SaveNames(ByRef SQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommandWith cmd
.CommandText = SQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End WithSQLConnection.Close()
MsgBox(“Berhasil Menambahkan Menambahkan Nama Ke table Mahasiswa di databases Kuliah “)
SQLConnection.Dispose()
End Sub
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
Dim SQLStatement As String = “INSERT INTO mahasiswa(name)values(‘” & TxtName.Text & “‘)”SaveNames(SQLStatement)
End Sub
End Class
11. Jika sudah selesai mendesign VB dan Memasukan Variable-variable pada VB.Net sekarang kita akan membuat database dengan nama Kuliah dan membuat table dengan nama mahasiswa. .