Koneksi VB.Net Dengan My SQL

Untuk membuat kolaborasi VB.net dan Mysql diperluakn Mysql connector (.net tetunya) bisa kawan-kawan download di Mysql connector for .net , and klo sudah download ya di instal.

OK lagsung ke tutorial Vb.net and Mysql

Langkah pertama dan selalu dilakukan saat menggunakan sebuah compnet adaalah ADD REFERENCE
1. Create New Procjet
2. Pilih Project, Add Reference, Cari Mysql.Data lalu OK











3. Kemudian Buat Modul “koneksi”.Caranya,Pilih project, Add Module, missal berikan nama “koneksi”











Pada modul koneksi masukan scrip berikut

Coding

1. Imports MySql.Data.MySqlClient.MySqlConnection  
2. Module koneksi  
3. Public conn As New MySql.Data.MySqlClient.MySqlConnection  
4. Public Sub konek(ByVal server As String, ByVal user As String, ByVal pass As String, ByVal db As String)  
5. If conn.State = ConnectionState.Closed Then  
6. Dim myString As String = "server=" & server _  
7. & ";user=" & user _  
8. & ";password=" & pass _  
9. & ";database=" & db  
10. Try  
11. conn.ConnectionString = myString  
12. conn.Open()  
13. Catch ex As MySql.Data.MySqlClient.MySqlException  
14. MsgBox(ex.Message)  
15. End  
16. End Try  
17. End If  
18. End Sub  
19. Public Sub disconnect()  
20. Try  
21. conn.Open()  
22. Catch ex As MySql.Data.MySqlClient.MySqlException  
23. End Try  
24. End Sub  
25. End Module  

Imports MySql.Data.MySqlClient.MySqlConnection
Module koneksi
Public conn As New MySql.Data.MySqlClient.MySqlConnection
Public Sub konek(ByVal server As String, ByVal user As String, ByVal pass As String, ByVal db As String)
If conn.State = ConnectionState.Closed Then
Dim myString As String = "server=" & server _
& ";user=" & user _
& ";password=" & pass _
& ";database=" & db
Try
conn.ConnectionString = myString
conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
MsgBox(ex.Message)
End
End Try
End If
End Sub
Public Sub disconnect()
Try
conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
End Try
End Sub
End Module

Ok modul koneksi sudah terbuat, trus bagaimana cara memanfaatkanya? Berikut, salah satu contoh sederhana bagaimana koneksi mysql pada vb.net 2005.
Pada sebua form utama dengan even On Load masukan perintah

view plainprint?

1. Public Class Form1  
2. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
3. konek("localhost", "root", "", "nama_db")  
4. Dim cmd As New MySql.Data.MySqlClient.MySqlCommand  
5. cmd.CommandType = CommandType.Text  
6. cmd.CommandText = "SELECT count(id_member) from member"  
7. cmd.Connection = conn  
8. MessageBox.Show(cmd.ExecuteScalar.ToString)  
9. End Sub  
10. End Class  

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
konek("localhost", "root", "", "nama_db")
Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT count(id_member) from member"
cmd.Connection = conn
MessageBox.Show(cmd.ExecuteScalar.ToString)
End Sub
End Class

konek("localhost", "root", "", "nama_db") =ini untuk memanggil fungsi koneksi dgn mysql, “nama_db” ya sesuaikan saja dgn db yg tersedia.

Klo sudah ya execusi aja, klo beruntuk maka akan tampil kayak gini



Sourcecode bisa diambil di disini