Pada posting kali ini saya akan membahas bagaimana cara melakukan proses crud(create, read, update, delete) tabel database MySql dengan VB.net. Sebagai percobaan saya membuat project aplikasi sederhana untuk mempraktekan proses insert, update, delete di VB.net dengan database mysql. Untuk koneksi VB.net silahkan baca petunjuknya di postingan saya koneksi VB.net dengan mysql. Kemudian buat database mysql dan tabelnya. Kali ini saya membuat database bernama phonebook, dengan tabel phonebook. Tabel phonebook terdiri dari field id, nomor, nama, dan email
Setelah database dibuat, kita memulai membuat project baru di vb.net. Beri nama project phonebook. Lakukan koneksi vb.net dengan mysql. Kemudian mulai mendesign form vb.net. Design form yang saya buat adalah seperti berikut ini:
Untuk memudahkan proses coding, saya merubah nama textbox dan button. Kemudian kita dapat memulai coding. Kita deklarasikan variable yang akan kita gunakan untuk menampung data dari database. Source nya sebagai berikut:
Public strconn As String = "server=localhost; uid=root; pwd=; database=phonebook;"
'buat objek adapter
Dim myadp As MySqlDataAdapter
'buat data tabel (agar data disusun tabel)
Dim dt As New DataTable
'buat perintah query disini
Public conn As New MySqlConnection(strconn)
Kemudian kita membuat event onLoad yang akan kita beri code berikut:
'jika koneksi tertutup
If conn.State = ConnectionState.Closed Then
Try
'buka koneksi
conn.Open()
'tangkap error mysql, jika ada ( ini hanya sebagian)
Catch mex As MySqlException
If mex.Number = 0 Then
MsgBox("Tidak bisa connect ke db", "no server")
ElseIf mex.Number = 1045 Then
MsgBox("Salah user/pass mysql", "akses ditolak")
Else
MsgBox(mex.Number & mex.Message)
End If
'tangkap error umum
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Call read_data()
Untuk function read_data() kita gunakan untuk membaca data dari database. isi source codenya adalah sebagai berikut:
Private Sub read_data()
Dim query As String
query = "select * from phonebook"
Try
'jalankan perintah baca
myadp = New MySqlDataAdapter(query, conn)
'isi data tabel
dt.Clear()
myadp.Fill(dt)
'pindahkan isi data tabel ke dgv_data
Dgv_data.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Setelah ini kita dapat memasukan source code untuk melakukan insert, update, dan delete. source code insert adalah sebagai berikut:
If btntambah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("insert into phonebook (id,nomorHp,nama,email) values ('','" & txtnumber.Text & "','" & txtnama.Text & "','" & txtemail.Text & "')", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("insert data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""
txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False
btnhapus.Enabled = True
btnubah.Enabled = True
btntambah.Text = “tambah”
Call read_data()
Exit Sub
End If
Untuk source code hapus, adalah sebagai berikut:
Dim mycmd As New MySqlCommand("delete from phonebook where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("Hapus data berhasil")
Call read_data()
End If
Catch ex As MySqlException
MsgBox("insert data gagal")
End Try
Else
MsgBox("Pilih data yang ingin dihapus")
terakhir untuk proses update record database, dapat menggunakan source code berikut:
If btnubah.Text = "simpan" Then
Dim mycmd As New MySqlCommand("update phonebook set nomorHp='" & txtnumber.Text & "', nama='" & txtnama.Text & "',email='" & txtemail.Text & "' where id='" & txtidku.Text & "'", conn)
Try
If mycmd.ExecuteNonQuery() = 1 Then
MsgBox("update data berhasil")
txtnumber.Text = ""
txtnama.Text = ""
txtemail.Text = ""
txtnumber.Enabled = False
txtnama.Enabled = False
txtemail.Enabled = False
btnhapus.Enabled = True
btnubah.Enabled = True
btnubah.Text = “Ubah”
Call read_data()
Exit Sub
End If
Catch ex As MySqlException
MsgBox(“update data gagal”)
End Try
End If
Silahkan coba compile dan jalankan aplikasinya. Aplikasi ini masih sederhana dan jauh dari sempurna, namun sudah mencukupi untuk melakukan uji coba sederhana. Saran dan masukan sangat diharapkan untuk menyempurnakan panduan ini. Semoga bermanfaat.
Link source code: