Membuat Aplikasi Crud (Simpan, Update Dan Delete) Di Vb.Net Dengan Database Mysql (Part 2)
halo sobat blogger semuanya, tutorial kali ini ialah lanjutan dari tutorial sebelumnya “Membuat Aplikasi CRUD (Simpan, Update dan Delete) di VB.Net dengan Database MySQL”.., bagi yang belum baca silahkan baca disini gan…
setuju gan silahkan buka kembali project sebelumnya, bagi yang belum punya silahkan download projectnya disini.
pertama silahkan agan tambahkan menu pada desain interface aplikasinya menjadi mirip ini :
pada gambar diatas terdapat 2 suplemen fitur pada button ialah Button Update dan Delete.
silahkan agan lanjutkan dengan membuka coding agan, kemudian ketikkan aba-aba berikut ini :
Sub IsiTeks(ByVal x As Integer) Try txtIDPelanggan.Text = DataGridView1.Rows(x).Cells(0).Value txtNamaPelanggan.Text = DataGridView1.Rows(x).Cells(1).Value txtAlamatPelanggan.Text = DataGridView1.Rows(x).Cells(2).Value txtNoTelp.Text = DataGridView1.Rows(x).Cells(3).Value Catch ex As Exception End Try End Sub
fungsi aba-aba diatas ialah jika datagrid diklik oleh user maka data di datagrid yang dipilih akan ditampilkan di textbox.
kemudian agan tambahkan juga aba-aba pada datagridnya dengan cara klik 2x pada datagridviewnya dan tambahkan aba-aba berikut :
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick IsiTeks(e.RowIndex) End Sub
selanjutnya, tambahkan aba-aba berikut pada button Hapus Data :
Dim pesan As Integer pesan = MsgBox("Apakah anda yakin ingin menghapus data dengan ID Pelanggan : " & txtIDPelanggan.Text & " ?", vbQuestion + vbYesNo, "Tutorial Blog Guzko") If pesan = vbYes Then Try bukaDB() Dim mDA As New MySqlDataAdapter("DELETE FROM user WHERE idPelanggan = '" & txtIDPelanggan.Text & "'", konek) Dim dt As New DataTable mDA.Fill(dt) DataGridView1.Refresh() tampilPelanggan() aturTampilan() Catch ex As Exception MsgBox(ex.Message) End Try End If
penjelasan dari aba-aba diatas ialah :
1. Pertama membuat pesan terlebih dahulu, pesan ini sebagai konfirmasi pada ketika agan mengklik button hapus data, jika agan klik yes maka proses akan dilanjutkan.
2. Kemudian selanjutnya membuat sqladapter dengan ID Pelanggan menjadi rujukan untuk menghapus data pelanggan.
3. Setelah dihapus, maka data grid akan direfresh dan memanggil fungsi tampilPelanggan dan aturTampilan
setelah final dengan coding pada button Hapus Data, silahkan agan lanjutkan dengan membuat coding pada button Update Data, codingnya mirip dibawah ini gan :
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pesan As Integer pesan = MsgBox("Apakah anda yakin ingin meng-update data dengan ID Pelanggan : " & txtIDPelanggan.Text & " ?", vbQuestion + vbYesNo, "Tutorial Blog Guzko") Try bukaDB() Dim mDA As New MySqlDataAdapter("UPDATE user SET namaPelanggan='" & txtNamaPelanggan.Text & "',alamatPelanggan = '" & txtAlamatPelanggan.Text & "'," & _ "noTelpPelanggan = '" & txtNoTelp.Text & "' WHERE idPelanggan = '" & txtIDPelanggan.Text & "'", konek) Dim dt As New DataTable mDA.Fill(dt) DataGridView1.Refresh() tampilPelanggan() aturTampilan() MsgBox("Data Pelanggan dengan ID : " & txtIDPelanggan.Text & " berhasil diupdate", vbInformation, "Tutorial Blog Guzko") Catch ex As Exception MsgBox(ex.Message) End Try End Sub
kemudian setelah final silahkan agan jalankan aplikasi diatas dan lihat hasilnya..
setuju dech gan final juga saya memposting tutorial perihal CRUD di VB.Net dengan menggunakan Database MySQL.
jika ada yang kurang jelas, silahkan agan tinggalkan jejak pada komentar
untuk source code lengkapnya silahkan agan download melalui link yang telah saya sediakan dibawah ini.
sekian dulu gan…. seee uuuu
Sumber http://guz-kopyok.blogspot.com/