Koneksi MySQL Dengan VB.Net

Koneksi MySQL Dengan VB.Net

Assalamu'alaikum wr.wb

Hy teman, 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, ikuti cara-cara berikut ini :

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. 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

10. 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

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

12. 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

13. 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

14. 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

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

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

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

18. Klik OdbcConnection1 yang berada dibawah form design dan Drop down Connection String, kemudian pilih New Connection

19. Setelah itu Akan tampil Add Connection, lalu pilih Use user or system data source name, kemudian pilih nama koneksi yang tadi buat

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

21.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

22. 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

25. Dan Execute (F5).

Selesai :) , Sekarang kalian coba ya cara berikut, maaf jika ada kesalahan dikit-dikit. Semoga Bermanfaat.

Thank you :)