Selasa, 17 Oktober 2017
Setelah sebelumnya saya menulis cara membuat aplikasi CRUD dengan database acces part 1, part 2, part 3 dan part 4, kini sampailah tulisan saya yang terakhir dari part sebelumnya. Di part 5 ini saya akan membahas untuk memberi kan event pada tombol hapus. Apa fungsi dari tombol hapus ? tombol hapus ini digunakan untuk menghapus data yang ada didalam database melalui aplikasi yang akan kita buat. Skema nya adalah data yang akan di hapus terlebih dahulu di sorot kemudian klik hapus, maka data akan terhapus baik yang ada didalam aplikasi dan ada didalam database.
- Klik dua kali pada tombol hapus.
- Kemudian masukkan kode berikut :
Sambung()
Try
Dim pesan As String
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Catch ex As Exception
MsgBox("Silahkan pilih data yang akan di Hapus")
End Try
Try
Dim pesan As String
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Catch ex As Exception
MsgBox("Silahkan pilih data yang akan di Hapus")
End Try
Penjelasan kode :
Sambung()
Perintah untuk memanggil koneksi database
Try
Dim pesan As String
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Catch ex As Exception
MsgBox("Silahkan pilih data yang akan di Hapus")
End Try
Dim pesan As String
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Catch ex As Exception
MsgBox("Silahkan pilih data yang akan di Hapus")
End Try
Kondisi pengecualian kondisi ini dijalankan apabila ada data yang dipilih oleh user. Jika tidak ada yang dipilih maka akan tampil messagebox. kondisi ini tidak berhubungan langsung dengan koneksi database.
Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
Deklarasi variabel selectedItem sebagai integer yang digunakan untuk memilih id dari listview sebagai patokan untuk menghapus data.
SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
Syntax sql yang berfungsi untuk menghapus data didatabase. Syntax disimpan didalam variabel SQLInsert.
Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
If pesan = MsgBoxResult.Yes Then
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Berhasil di hapus")
tambahdata()
End If
Catch ex As Exception
MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
End Try
Kondisi pengecualian yang berada didalam kondisi pengecualian. Kode ini berfungsi untuk verifikasi data yang akan dihapus oleh user melalui messagebox. jika berhasil maka kode akan dihapus jika gagal maka kondisi dua yang dijalankan. Berbeda dengan kondisi pengecualian yang pertama, kondisi pengecualian ini berhubungan dengan koneksi database. Sehingga jika terjadi error atau masalah, maka hampir bisa dipastikan kesalahan ada didatabase atau koneksi database.
- Jalankan aplikasi nya melalui Debug (Start debugging atau melalui Shortcut F5.
- Sehingga hasilnya berikut ini
Sekian tutorial tentang cara membuat aplikasi CRUD dengan database acces dan vb.net untuk source code project nya bisa kalian download disini. Jika terjadi masalah atau error silahkan tinggalkan komentar.
