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
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :