Delete Data

Untuk menghapus data dipergunakan sintaks:

DELETE FROM [NAMA_TABLE] [KONDISI]

Contoh:

DELETE FROM TEST WHERE NAMA='test';

Aplikasi berikut ini akan menjalankan fungsi delete record dari tabel.

Desain formnya sebagai berikut :

1. Langkah Pertama yang harus dilakukan adalah pengaturan properties dari masing-masing kontrol. Pengaturan yang berhubungan langsung dengan program selanjutnya adalah name dari masing-masing textbox, karena name dari textbox inilah yang nantinya akan diprogram. Pada aplikasi ini name dari masing-masing texbox adalah :

a. Textkode = untuk menampung data kode

b. Textnama = untuk menampung data nama

c. textHarga = untuk menampung data harga.

2. Selanjutnya yang harus dilakukan adalah memanggil namespace agar bisa mengakses perintah-perintah sqlclient. Code adalah :

Imports System.Data.SqlClient

3. Pada bab ini mulai diperkenalkan procedure. Jadi prosedure kita definisikan terlebih dahulu, baru ketika dibutuhkan kita panggil dengan perintah call . prosedure yang akan kita buat kita beri nama form_normal. Berikut ini kode programnya:

Sub form_normal()

Me.textKode.Enabled = True

Me.textNama.Enabled = False

Me.textHarga.Enabled = False

Me.textKode.Clear()

Me.textNama.Clear()

Me.textHarga.Clear()

Me.textKode.Focus()

End Sub

4. Selanjutnya, klik dua kali pada button cari, dan masukkan kode program berikut:

If Me.textKode.Text = "" Then

MessageBox.Show("Kode barang tidak boleh kosong", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Information)

Me.textKode.Focus() Else

If Me.textKode.TextLength <> 4 Then

MessageBox.Show("Kode barang 4 digit", "Warning", MessageBoxButtons.OK,

MessageBoxIcon.Information)

Me.textKode.Focus()

Else

Dim adapter As New SqlDataAdapter("select * from barang where

kode_barang='" & textKode.Text & "'", Module1.koneksi)

Dim dt As New DataTable("barang")

adapter.Fill(dt)

If dt.Rows.Count <> 0 Then

Me.textNama.DataBindings.Add("text", dt, "nama_barang")

Me.textHarga.DataBindings.Add("text", dt, "harga_satuan")

Me.textKode.Enabled = False

Me.textNama.Focus()

Else

MessageBox.Show("Data dengan kode " & Me.textKode.Text & " tidak ada

dalam database" & ControlChars.NewLine & "Cek kembali kode",

"Warning", MessageBoxButtons.OK, MessageBoxIcon.Information)

Me.textKode.Focus()

End If

End If

End If

5. Lanjut ke button hapus, disinilah fungsi salah satu Data Manipulation Languange yaitu Delete akan dilakukan. Kode program selengkapnya adalah sbb:

Dim hapus

hapus = MessageBox.Show("Yakin akan menghapus data ini", "Konfirmasi",

MessageBoxButtons.OKCancel, MessageBoxIcon.Question)

If hapus = Windows.Forms.DialogResult.No Then

Me.textKode.Enabled = True

Me.textNama.Enabled = False

Me.textHarga.Enabled = False

Me.textKode.Clear()

Me.textNama.Clear()

Me.textHarga.Clear()

Me.textKode.Focus()

Else

Dim sql As String = String.Empty

sql = "delete from barang where kode_barang='" & Me.textKode.Text & "'"

Dim command As New SqlCommand(sql, Module1.koneksi)

command.ExecuteNonQuery()

Module1.koneksi.Close()

MessageBox.Show("Data dengan kode " & textKode.Text & " sukses dihapus", "Hapus data

Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)

Me.textNama.DataBindings.Clear()

Me.textHarga.DataBindings.Clear()

Me.textKode.DataBindings.Clear()

Call form_normal()

End If

6. Tombol Batal digunakan untuk menormalkan kembali form seperti pada saat pertama kali dibuka. Disini kita hanya memanggil prosedure yang sebelumnya sudah kita definisikan.

‘menormalkan form

Call form_normal()

7. Terakhir button keluar. Untuk menutup form hapus ini. Kode program yang biasanya kita pakai adalah : me.close. Kode program yang kita pakai sekarang sedikit dimodifikasi dengan messagebox (hal berikut sekaligus untuk menjawab pertanyaan dari beberapa mahasiswa)

If MessageBox.Show("Yakin akan keluar", "Keluar", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then

Me.Close()

End If