Koneksi MySQL Dengan VB.Net

Kali ini kita akan membuat program sederhana berbasis database dengan VB.Net 2008 dan MySQL. Bagaimana cara untuk mengkoneksikan antara VB.Net dengan MySQL. Oleh karena itu, berikut cara-caranya sebagai berikut :

1. Pertama kita persiapkan dulu Xampp/Wampp, VB.Net 2005/2008/2010, dan MySQL Connector/ODBC, kalau belum ada Driver ODBC bisa diunduh disini :
http://dev.mysql.com/downloads/connector/odbc/3.51.html

2. Buka Xampp/Wampp, Pilih dan Klik Tombol Start pada Apache dan MySQL, disini kita akan membuatnya dengan web browser agar lebih mudah, boleh juga kalau mau pakai cmd

3. Berikutnya kita buat database dahulu, buka web browser (firefox,chrome,dll) anda
4. Pada Address, ketik localhost/phpmyadmin atau 127.0.0.1/phpmyadmin
5. Ketik nama database "lat_mysql" pada create database dan kemudian klik Create

6. Kemudian buat table dengan nama "siswa" dan isi column "3"
7. Isi field-field :
    nim        varchar      10       (primary key)
    nama     varchar      40  
    kelas     varchar      10

    Sesudah itu, Klik Save

8. maka akan tersimpan dan tampil di sidebar, kemudian kita insert data dengan cara pilih Insert pada menu dan isi data-data pada textbox value, setelah ini Klik Go

 9. Maka akan tampil sebagai berikut :

10. Kita telah membuat database, sekarang kita buat programnya dengan VB.Net seperti berikut :
      a. form1                      : text       : TampilGrid
      b. DataGrid View1      : name     : dgv
      c. Untuk modul, Pilih Project pada menubar => add module => Ketik "koneksi.vb" => OK

11. Agar bisa terkoneksi antara VB.Net dengan MySQL, kita perlu menginstal Driver ODBC versi 3.15  atau yang terbaru, berikut langkah-langkah instalasinya:
      a.Instal MySQL Connector/ODBC

   
     b. Pilih Next dan Next

   
      c. Tunggu Progressnya, Kalau muncul seperti yang dibawah Pilih Yes

      d. Dan Finish

12. Kita Sekarang buat koneksinya, buka Control Panel dan Pilih ODBC

13. Setelah itu, muncul ODBC Data Source Administrator, Pilih menu User DSN. Atau bisa juga pilih menu File DSN

• Cara 1

      a. Menu File DSN pilih Add

       b. Setelah itu akan tampil Create New Data Source, Klik Browse, kemudian muncul Save As, ketik nama koneksi, lalu save, dan Klik Next

        c. Kemudian Finish

          d. Pilih koneksi yang telah kita buat dan pilih OK

• Cara 2

       a. Menu User DSN

        b. Tunggu sampai tampil Create New Data Source, Pilih MySQL ODBC 3.51 Driver dan Klik Finish

14. Setelah itu, tampil MySQL Connector/ODBC Data Source Configuration, kemudian isi Data Source name, Description (Tidak di isi, tidak apa-apa), TCP/IP Server, User, Password(Kalau perlu), dan nama database yang kita tadi buat. Klik test untuk mengetes apakah terkoneksi atau tidak, Kalau terkoneksi pilih OK

15. Setelah itu, kembali lagi ke ODBC Data Source Administrator, pada User Data Source akan tampil nama koneksi yang sebelumnya kita buat, lalu pilih dan OK

16. Kita kembali ke VB.Net, Klik kanan pada toolbox lalu pilih choose items

17. Maka akan tampil Choose Toolbox Items, Cari dan Checklist pada OdbcConnection kemudian OK

18. Maka di toolbox muncul OdbcConnection dan drag atau klik componen itu ke form design yang telah kita buat

19. Klik OdbcConnection1 yang berada dibawah form design dan Drop down Connection String, kemudian pilih New Connection
20. Setelah itu Akan tampil Add Connection, lalu pilih Use user or system data source name, kemudian pilih nama koneksi yang tadi buat

21. Klik test connection untuk mengetes koneksi, kalau berhasil pilih OK

22. Ketik kode sintak pada modul koneksi.vb yang kita buat :
Imports System.Data.Odbc
Imports System.Data
Module koneksi
    Public conn As OdbcConnection
    Public da As OdbcDataAdapter
    Public ds As DataSet
    Public strcon As String

    Public Sub konek()
        strcon = "Driver={MySQL ODBC 3.51 Driver};database=lat_mysql;server=localhost;uid=root"
        conn = New OdbcConnection(strcon)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
End Module

23. Kemudian klik 2 kali pada form1 agar tampil view code form load dan ketik code sintaknya :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        konek()
        da = New Odbc.OdbcDataAdapter("select * from siswa", conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "siswa")
        dgv.DataSource = (ds.Tables("siswa"))
    End Sub
End Class

24. Dan Execute (F5) akan tampil sebagai berikut :

.