Membuat aplikasi CRUD dengan database acces part 4

Posted by : HD Technology Studio Jumat, 06 Oktober 2017

Setelah sebelumnya membahas mengenai event yang terdapat didalam tombol tambah, kali ini saya akan membahas mengenai event di tombol edit. Untuk tutorial sebelumnya bisa dilihat disini. Ditutorial ini kita akan menampilkan data dari listview kedalam object textbox dengan cara klik dua kali pada listview, kemudian didalam textbox kita bisa mengedit nilainya dan jika selesai klik edit dan data akan diperbarui. Untuk itu, silahkan ikuti tutorial berikut:

Buka jendela kode dengan cara klik View --> Code atau melalui Shortcut F7.
Buat event DoubleClick pada object lvgrid. Event ini digunakan untuk membuat fungsi jika listview atau item listview di klik dua kali.

Masukkan kode untuk menampilkan nilai dari item listview ke dalam textbox.

txtID.Text = lvGrid.SelectedItems(0).SubItems(0).Text
DTP.Value = lvGrid.SelectedItems(0).SubItems(1).Text
txtAlamat.Text = lvGrid.SelectedItems(0).SubItems(2).Text
txtAgama.Text = lvGrid.SelectedItems(0).SubItems(3).Text
cboJenis.Text = lvGrid.SelectedItems(0).SubItems(4).Text

Sehingga hasilnya sebagai berikut :

Cobalah untuk menjalankannya dan double klik pada item listview.

Sampai tahap ini kita hanya bisa menampilkan data dari listview kedalam textbox saja namun belum bisa menggunakan tombol edit. Oleh karena itu kita perlu menambahkan kode pada tombol edit.
Klik dua kali pada tombol edit. Dan masukkan kode berikut :

Sambung()
TTL = DTP.Value.Date
If txtID.Text = "" Or txtAlamat.Text = "" Or txtAgama.Text = "" Or cboJenis.Text = "--Pilih Jenis Kelamin--" Then
MsgBox("Semua Harus Di isi !", MsgBoxStyle.Information, "Perhatian")

Else
Try
SQLInsert = "UPDATE karyawan SET Tanggal_Lahir = '" & TTL & "', Alamat = '" & txtAlamat.Text & "', Agama = '" & txtAgama.Text & "', Jenis_Kelamin = '" & cboJenis.Text & "' Where ID = '" & txtID.Text & "'"

CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery() 'Mengeksekusi command
MsgBox("Data Berhasil DiPerbarui", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message & "", vbCritical, "Peringatan")
End Try
End If

Penjelasan kode :

Sambung()

Memanggil method sambung yang berada didalam modul koneksi, modul ini untuk menghubungkan aplikasi dengan database.

TTL = DTP.Value.Date

Menyimpan tanggal didalam variabel TTL.

If txtID.Text = "" Or txtAlamat.Text = "" Or txtAgama.Text = "" Or cboJenis.Text = "--Pilih Jenis Kelamin--" Then
MsgBox("Semua Harus Di isi !", MsgBoxStyle.Information, "Perhatian")

Membuat kondisi jika object textbox kosong maka akan ditampilkan kotak pesan.

Try
SQLInsert = "UPDATE karyawan SET Tanggal_Lahir = '" & TTL & "', Alamat = '" & txtAlamat.Text & "', Agama = '" & txtAgama.Text & "', Jenis_Kelamin = '" & cboJenis.Text & "' Where ID = '" & txtID.Text & "'"
CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery()
MsgBox("Data Berhasil DiPerbarui", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message & "", vbCritical, "Peringatan")
End Try

Kondisi pengecualian, jika benar maka kondisi 1 yang dijalankan, jika salah maka kondisi 2 yang dijalankan.

Cobalah untuk menjalankan programnya yang telah dibuat, klik dua kali pada item listview yang akan diedit, kemudian edit datanya, klik tombol edit, dan lihat apa yang terjadi.

Jika tidak ada masalah maka tombol edit telah selesai dibuat, selanjutnya tinggal memberikan event tombol hapus yang akan digunakan untuk menghapus data didalam database dan akan dibahas di tutorial selanjutnya. Jika terjadi masalah pada program atau kode silahkan tinggalkan komentar dibawah.