Tutorial : Button Hapus pada Visual Basic

Setelah kita mengetahui cara membuat button simpan pada Tutorial Button Save dan cara membuat button cari pada Tutorial Button Cari, ada baiknya kita mengetahui cara membuat button hapus. Disaat kalian sudah menginput data, pastinya akan ada data yang salah dan harus dihapus. Berikut tutorialnya.

Pertama-tama tambahkan button "HAPUS" pada aplikasi yang kalian buat. Patinya sudah dihubungkan dengan database ya.

Kemudian masukan kode berikut

Dim pesan As Integer
        pesan = MsgBox("Apakah anda yakin ingin menghapus data " & nip.Text & " ?", vbQuestion + vbYesNo)
        If pesan = vbYes Then

            Dim myCommand As New OleDbCommand
            Dim SQL As String
            Try
                If Not con.State = ConnectionState.Open Then koneksi()
                SQL = "DELETE FROM daftar WHERE NIP = '" & nip.Text & "'"
                myCommand.Connection = con
                myCommand.CommandText = SQL
                myCommand.ExecuteNonQuery()
                nip.Text = String.Empty
                nama.Text = String.Empty
                alamat.Text = String.Empty
                Data_Load()
                con.Close()
            Catch myerror As OleDbException
                MessageBox.Show("Error: " & myerror.Message)
            Finally
                con.Dispose()
            End Try
            nip.ReadOnly = False
        End If
    End Sub

Hampir sama dengan button cari, button hapus juga menggunakan NIP untuk menghapus. Sedangkan bagian "pesan" kita akan membuat semacam form konfirmasi yang hanya berisi button ya atau tidak secara otomatis.

Sisanya sama seperti save dan cari. Lalu coba kalian jalankan.

Sebelum, data yang ingin dihapus masih ada.

Inilah bentuk form konfirmasi pada kode "pesan" yang telah dibuat tadi

Hasil akhir.

Nah begitulah cara membuat button hapus pada visual basic. Semoga bermanfaat bagi para pembaca semuanya.




Author: Bela Pertiwi Larashati