Hey Sobat Kali ini saya akan membahas bagaimana cara mengkoneksikan vb dengan database mysql.
sebelum kita mulai pastikan anda memiliki MYSQL CONNECTOR dulu dan jika sobat belum memiliki database mysql silahkan ikuti tutorial Cara buat Table mysql.
- Oke jika sobat sudah memiliki semua syarat yang dibutuhkan langsung saja buka aplikasi vb sobat dan buat project baru.
- letakkan Datagridview pada desain form sobat seperti gambar dibawah ini, setelah sobat letakkan datagridview langsung saja sobat ganti name datagridviewnya menjadi DGV ini bertujuan agar sobat tidak bingung saat mengikuti koding dari saya :
- Oke jika telah selesai sobat harus mereferensikan vb sobat ke mysql dengan mysqlconnector yang tadi sobat download sebelum topik kita bahas. ikuti saja gambar2 dibawah ini.
- Oke untuk tulisan Mysql.data yang ada pada gambar dibawah ini sobat pilih saja yang paling atas.
- Setelah Sobat selesai mereferensikannya sekarang sobat harus membuat module untuk koneksinya, ikuti gambar dibawah ini.
- Pada Gambar dibawah ini saya sengaja berikan tanda agar sobat paham artinya.
1.adalah password apache2triad atau xampp milik sobat
2.adalah nama database mysql yang sobat buat
koding module akan saya bagikan dibawah gambar. kopas wae yo :D
Imports MySql.Data.MySqlClient
Module Module1
Public conn As MySqlConnection
Public cmd As MySqlCommand
Public rd As MySqlDataReader
Public da As MySqlDataAdapter
Public ds As DataSet
Public str As String
Sub koneksi()
Try
Dim str As String = "Server=localhost;user id=root; password=trigunadharma; database=test"
conn = New MySqlConnection(str)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Module
- Jika pembuatan modul selesai Sobat langsung saja buat koding untuk menampilkan isi database sobat tinggal doble klik form desain sobat dan ikuti langkah pada gambar dibawah ini. atau copas koding yang saya bagikan dibawah gambar.
Imports MySql.Data.MySqlClient
Public Class Form1
Sub Tampil_data()
Try
koneksi()
da = New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT * FROM tbltest", conn)
ds = New DataSet
da.Fill(ds)
dgv.DataSource = ds.Tables(0)
Catch ex As Exception
MsgBox("DATA GAGAL DITAMPILKAN")
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Tampil_data()
End Sub
End Class
-Bila semua telah Beres maka langsung saja debug vb sobat dan hasilnya akan seperti pada gambar dibawah ini .
Semoga artikel ini Bermanfaat ya Sobat :)
Wassalamualaikum
EmoticonEmoticon