Menghapus Data (Delete)

Koneksi sudah disini, Menambah data sudah disini, mengubah pun juga sudah disini. Nah selanjutnya kita akan membuat aplikasi untuk menghapus data di database. Seperi biasa database yang di pakai adalah database access. Ikuti langkah-langkahnya sebagai berikut.
1. Buat database baru dengan nama bebas sesuai selera.. hehe … dan simpan lalu buat table baru dengan nama anggota dan atur fieldnya sebagai berikut :

Database untuk tutorial-tutorial ini dapat didownload disini

2. Setelah itu lalu buat project baru di Visual Studio  2008 dan beri nama Database2 lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :
4. Setelah itu silahkan coding ini :

   1: Imports System.Data.OleDb

   2: Public Class Form1

   3:     Inherits System.Windows.Forms.Form

   4:  

   5:     Private conn As OleDbConnection = Nothing

   6:     Private cmd As OleDbCommand = Nothing

   7:     Private sql As String = Nothing

   8:     Sub loaddata()

   9:         Dim reader As OleDbDataReader

  10:         sql = "select id_anggota from anggota"

  11:         cmd = New OleDbCommand(sql, conn)

  12:         reader = cmd.ExecuteReader()

  13:         Try

  14:             While (reader.Read)

  15:                 ComboBox1.Items.Add(reader.GetString(0))

  16:             End While

  17:             ComboBox1.SelectedIndex = 0

  18:         Finally

  19:             reader.Close()

  20:             cmd = Nothing

  21:         End Try

  22:     End Sub

  23:  

  24:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  25:         If Not conn Is Nothing Then conn.Close()

  26:         Dim ConnString As String

  27:         ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb"

  28:         Try

  29:             conn = New OleDbConnection(ConnString)

  30:             conn.Open()

  31:             loaddata()

  32:         Catch ex As OleDbException

  33:             MessageBox.Show("Koneksi Errors : " + ex.Message)

  34:         End Try

  35:     End Sub

  36:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  37:         Dim index As Integer = ComboBox1.SelectedIndex

  38:         Dim hasil As Integer

  39:         Dim pesan As DialogResult

  40:         sql = "delete from anggota where id_anggota='" & ComboBox1.Text & "'"

  41:         pesan = MessageBox.Show("Yakin Menghapus Anngota " & Chr(10) & "dengan id" & ComboBox1.Text & "...?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)

  42:         cmd = New OleDbCommand(sql, conn)

  43:         Try

  44:             If pesan = Windows.Forms.DialogResult.Yes = True Then

  45:                 hasil = cmd.ExecuteNonQuery

  46:                 If hasil > 0 Then

  47:                     ComboBox1.Items.RemoveAt(index)

  48:                 End If

  49:             End If

  50:         Catch ex As OleDbException

  51:             MsgBox("Failed : " & ex.Message)

  52:         End Try

  53:         cmd.Dispose()

  54:     End Sub

  55:  

  56:     Private Sub Form1_closed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed

  57:         conn.Close()

  58:         conn.Dispose()

  59:         conn = Nothing

  60:     End Sub

  61: End Class

Nah jadi deh.. :D :D

Pada prinsipnya mau insert, update maupun delete sama-sama menggunakan OledbCommand untuk mengirim query dan menggunakan method ExecuteNonQuery untuk mengeksekusinya.

Nah untuk lebih jelas dan lengkapnya dapat mendownload source codenya disini
Salam SEMOGA BERMANFAAT