Tutorial
Mengkoneksikan MYSQL–VB 2010 oleh MUHAMMAD
AGUNK SUCIPTO
Dalam
tutorial ini akan membahas bagaimana mengkoneksikan database MySql ke Visual Basic, di perlukan software
berikut :
1. VB 2010 Ultimate
2. XAMPP 1.7.3
3. connector ODBC 3.51
kemudian
install ke 3 aplikasi di atas.
Langkah
pertama =
1. jalankan MySQL yang terdapat pada
XAMPP dengan menekan tombol start..
2. Tuliskan
” localhost/phpmyadmin “(tanpa tanda petik) pada browser anda lalu tekan enter.
3. Lalu pilih di tools-phpmyadmin.
Sebelumnya anda sudah harus memiliki database untuk dikoneksikan.
Langkah kedua =
1. jalankan vb dan buat projek baru, dan tambahkan datagridview seperti gambar di bawah ini.(ubah name datagridview menjadi “dgv”) tidak diubah-pun tidak apa
2. klik Project => add reference => klik
tab .Net , dan cari System.Data lalu
dengan menekan OK
3. buat modul koneksi ke database, klik project =>add clas=>klik
module(beri nama koneksi)=>klik add
4. ketikan kodingan berikut pada module
yang telah anda 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=akademik;server=localhost;uid=root"
conn = New OdbcConnection(strcon)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
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=akademik;server=localhost;uid=root"
conn = New OdbcConnection(strcon)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
End Module
Catatan!!! Nama database didalam
kodingan harus sesuai dengan yang di database mysql
5. kemudian ketikan kodingan berikut di
form 1
Public
Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
konek()
da = New Odbc.OdbcDataAdapter("select * from mahasiswa", conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "mahasiswa")
dgv.DataSource = (ds.Tables("mahasiswa"))
End Sub
End Class
Catatan!!! Nama database didalam kodingan harus sesuai dengan yang di database mysql
6. lalu jalankan program, maka akan
muncul sesuai gambar dibawah ini
Sekian tutorial dari saya.... dipelajari, jangan asal copy-paste.... jangan lupa ninggalin comement!! bye-byeee