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:
Imports System.Data.OleDb Imports System.Data.SqlClient Public Class Form1 '--- Definisi letak database Dim strPath As String = FileSystem.CurDir Dim strNamaDatabase As String = "Pus.mdb" Dim strPathDatabase As String = strPath + "\" + strNamaDatabase '--- Definisi koneksi database Dim con As New OleDbConnection( _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _ strPathDatabase) Dim cmd As New OleDbCommand Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load con.Open() cmd.Connection = con End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click Dim hasil As Integer If String.IsNullOrEmpty(txtKodeAnggota.Text) Then MessageBox.Show("Tuliskan kode anggota terlebih dahulu", "Peringatan", MessageBoxButtons.OK) txtKodeAnggota.Focus() Else 'kosongkan isi commandtext agar yakin kosong cmd.CommandText = String.Empty 'bentuk perintah penghapusan data cmd.CommandText = _ "delete from Anggota where KodeAnggota = @p1" cmd.Parameters.Clear() cmd.Parameters.Add("@p1", OleDbType.VarChar).Value = Trim(txtKodeAnggota.Text) 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 End If End Sub End Class

Menghapus Data Database Access dengan Visual Basic 2008 2018-04-11T01:01:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer