Kemudian buatlah projek baru dengan nama”latihan_mysql_koneksi” dan buatlah design tampilan seperti gambar ya guys,
Jangan lupa tambahkan reference mysql.data dengan cara klik kanan pada objek di solution explore – pilih add reference kemudian pilih tab Net – Mysql.Data seperti gambar dibawah.
Buat kelas baru dengan nama koneksi.vb
Imports MySql.Data.MySqlClient
Public Class koneksi
Public conn As MySqlConnection
Dim database As String = “server=localhost;database=vbdatabase;uid=root;pwd=”;”
Public command As MySqlCommand
Public adp As MySqlDataAdapter
Public Sub konek()
Try
conn = New MySqlConnection(database)
conn.Open()
MsgBox(“Koneksi berhasil”)
Catch ex As Exception
MessageBox.Show(ex.Message())
End Try
conn.Close()
End Sub
Public Sub Query(ByVal query As String)
Try
conn = New MySqlConnection(database)
conn.Open()
command = New MySqlCommand(query, conn)
command.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message())
Finally
conn.Close()
End Try
End Sub
Public Function tampil() As DataTable
Dim dt As New DataTable
Try
Dim sql As String = “Select * from biodata ORDER BY nama DESC ”
conn = New MySqlConnection(database)
conn.Open()
command = New MySqlCommand(sql, conn)
adp = New MySqlDataAdapter(command)
command.ExecuteNonQuery()
adp.Fill(dt)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return dt
conn.Close()
End Function
End Class
Source Code Main program,
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim koneksi As koneksi
koneksi = New koneksi()
koneksi.konek()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim konksi As New koneksi
konksi.Query(“Insert into biodata (nama,jenkel,alamat) values (‘” & TextBox1.Text & “‘,'” & TextBox2.Text & “‘,'” & TextBox3.Text & “‘)”)
MessageBox.Show(“Insert Succsess”)
‘baris dibawah untuk menampilkan kembali data
‘database yang up to date yang telah di delete
Dim dtb As New DataTable
dtb = koneksi.tampil
DataGridView1.DataSource = dtb
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim koneksi As New koneksi
koneksi.Query(“Update biodata set nama='” & TextBox1.Text & “‘,jenkel='” & TextBox2.Text & “‘ Where alamat = ‘” & TextBox3.Text & “‘ “)
MessageBox.Show(“Update Berhasil”)
‘baris dibawah untuk menampilkan kembali data
‘database yang up to date yang telah di delete
Dim dtb As New DataTable
dtb = koneksi.tampil
DataGridView1.DataSource = dtb
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim koneksi As New koneksi
Dim dtb As New DataTable
dtb = koneksi.tampil
DataGridView1.DataSource = dtb
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim koneksi As New koneksi
koneksi.Query(“Delete from biodata Where alamat = ‘” & TextBox4.Text & “‘”)
MessageBox.Show(“Delete Sukses”)
‘baris dibawah untuk menampilkan kembali data
‘database yang up to date yang telah di delete
Dim dtb As New DataTable
dtb = koneksi.tampil
DataGridView1.DataSource = dtb
End Sub
End Class
Gambar Output aplikasi
