LISTING PROGRAM UNTUK TOMBOL DELETE PADA VISUAL BASIC NET

LISTING TOMBOL DELETE PADA VISUAL BASIC.NET

Pada pemrograman visual basic.net baik itu VB net 2008 maupun VB net 2010 dan diatasnya kita akan dihadapkan dengan berbagai macam tombol yang harus dibangun untuk dapat membentuk sebuah aplikasi tertentu yang dapat dimanfaatkan untuk berbagai proses data. Kalau pada postingan saya yang lalu kita membahas tentang pembuatan database, listing pada tombol simpan data dan tombol ubah data maka kali ini kita akan membahas mengenai listing pada tombol hapus data yang akan digunakan untuk menghapus data yang sudah ada pada database kita.

Mari kita mulai dengan langkah-langkah sebagai berikut:

1.   Buatlah sebuah form dengan table datagrid yang sudah terkoneksi dengan database serta sebuah commandbutton atau tombol yang diberi nama hapus. Berikut ini adalah contoh form saya yang sudah terkoneksi dengan database (lihat pembahasan tentang koneksi database pada postingan saya sebelumnya)

2.       Klik 2x pada tombol hapus dan mari kita ketik listing tampak seperti dibawah ini:

TextBox1.Text = InputBox("Masukan Id Kegiatan Yang Akan Dihapus !! ")

        If TextBox1.Text = " " Then TextBox1.Focus() : Exit Sub

        Cmd = New OleDbCommand("select * from  T_kegiatan where Id_Kegiatan ='" & TextBox1.Text & "'", conn)

        dr = Cmd.ExecuteReader

        dr.Read()

        If dr.HasRows = True Then

            Cmd = New OleDbCommand(" delete from T_kegiatan where  " & _

                "Id_Kegiatan = '" & Trim(TextBox1.Text) & " ' ", conn)

            Cmd.ExecuteNonQuery()

           

        Else

           

            MessageBox.Show("Id Kegiatan Tidak Ditemukan Dalam Database", "Konfirmasi Hapus......!", _

                                         MessageBoxButtons.OK, MessageBoxIcon.Warning)

        End If

Untuk lebih jelas penempatan listing program mari kita melihat gambar listing program pada tombol hapus yang ada pada jendela kerja kita

Penjelasan singkat yang dapat saya jelaskan adalah sebagai berikut:

TextBox1.Text = InputBox("Masukan Id Kegiatan Yang Akan Dihapus !! ")

        If TextBox1.Text = " " Then TextBox1.Focus() : Exit Sub

Listing ini artinya jika kita menekan tombol hapus maka akan muncul jendela form baru dengan 1 textbox yang akan digunakan untuk menginput ID apa saja yang akan dihapus (pada jendela kerja saya adalah salah satu data kegiatan dengan Id kegiatan yang akan kita hapus) Id kegiatan adalah Id yang digunakan sebagai primary key untuk seluruh data kegiatan

ü  If TextBox1.Text = " " Then TextBox1.Focus() : Exit Sub

ü  Cmd = New OleDbCommand("select * from  T_kegiatan where Id_Kegiatan ='" & TextBox1.Text & "'", conn)

        dr = Cmd.ExecuteReader

        dr.Read()

ü  jika textbox1 kosong maka kursor akan berada pada textbox1 secara otomatis.

ü  system akan mencari Id kegiatan yang kita input pada textbox1 pada database dengan nama koneksi adalah conn. Conn, dr dan cmd adalah nama koneksi yang kita buat pada module koneksi database (lihat pembahasan tentang koneksi database pada postingan saya sebelumnya)

        If dr.HasRows = True Then

            Cmd = New OleDbCommand(" delete from T_kegiatan where  " & _

                "Id_Kegiatan = '" & Trim(TextBox1.Text) & " ' ", conn)

            Cmd.ExecuteNonQuery()

           

        Else

           

            MessageBox.Show("Id Kegiatan Tidak Ditemukan Dalam Database", "Konfirmasi Hapus......!", _

                                         MessageBoxButtons.OK, MessageBoxIcon.Warning)

        End If

Jika ditemukan data maka system akan menghapus

Jika tidak ditemukan maka ada pesan atau messagebox