Thursday, November 24

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

No comments:

Post a Comment

Wilujueng Sumping

Sasieureun sabeunyeuren uarng bagi elmu nu manfaat kanggo urang sadayana. Bilih aya nu teu geunah hapunten sateuacana.