Rabu, 11 April 2018

Menghapus Data Database Access dengan Visual Basic 2008

Langkah-langkah untuk menghapus data pada database Access adalah sebagai berikut:

Buka Koneksi Data ke Database Access
Isi koneksi string dengan path database yang dimaksud, kemudian buka koneksinya.
Baca artikel saya, Koneksi ke Database Access dengan Visual Basic 2008

Hapus Data Sesuai dengan Kode Unik yang Dimasukkan
Tulis kode unik (primary key) dari data yang akan dihapus. Inilah pentingnya data harus mempunyai primary key. Dengan adanya primary key, setiap data adalah unik, sehingga menghapus dengan kode itu sudah pasti hanya data dengan kode itu yang terhapus. Kemudian eksekusi perintah penghapusan.

Sebagai praktek, saya membuat form seperti ini.


Form terdiri dari satu button bernama btnHapus. Dua textbox masing-masing bernama txtKodeAnggota dan txtNamaAnggota.

Masukkan kode unik (dalam hal ini kode anggota) ke textbox Kode Anggota. Kemudian tekan tombol klik yang akan bekerja seperti berikut:

Memastikan bahwa textbox kode anggota tidak kosong. Jika kosong, program tidak menjalankan penghapusan, tetapi kembali meletakkan kursor pada txtKodeAnggota.

If String.IsNullOrEmpty(txtKodeAnggota.Text) Then
            MessageBox.Show("Tuliskan kode anggota terlebih dahulu",  _ 
           "Peringatan", MessageBoxButtons.OK)
            txtKodeAnggota.Focus()

Apabila, kode tidak kosong, maka isikan perintah query untuk penghapusan. Sebelum diisi, pastikan CommandText dalam keadaan kosong.

'kosongkan isi commandtext agar yakin kosong
cmd.CommandText = String.Empty

Baru isikan kode penghapusan sebagai berikut:

'bentuk perintah penghapusan data
cmd.CommandText = _
            "delete from Anggota where KodeAnggota = @p1"

Hapus parameter. Ini jaga-jaga jika pengguna meng-klik tombol hapus berkali-kali dengan kode Anggota yang berbeda-beda. Jika tidak, kode anggota akan tetap sama seperti yang diisikan pertama kali.

 cmd.Parameters.Clear()
 cmd.Parameters.Add("@p1", OleDbType.VarChar).Value = Trim(txtKodeAnggota.Text)

Cari tahu, apakah penghapusan berhasil dengan menampung kode keberhasilan di hasil

hasil = CInt(cmd.ExecuteScalar)

If hasil <> 1 Then
                MessageBox.Show("Data telah dihapus", "Informasi", _ 
                MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
                MessageBox.Show("Data telah dihapus", "Informasi", _ 
                MessageBoxButtons.OK, MessageBoxIcon.Information)
 End If

Program Selengkapnya:

Menghapus Data Database Access dengan Visual Basic 2008 Rating: 4.5 Diposkan Oleh: Good Dreamer

0 komentar:

Posting Komentar

Diberdayakan oleh Blogger.