CRUD Dengan VB.NET Bagian 2

Malam semua, kali ini saya akan melanjutkan postingan sebelumnya yaitu Crud Dengan VB.Net Bagian 1

Jika kemarin kita sudah mempelajari bagaimana cara menyimpan dan mencari data, kali ini saya akan menambahkan cara memperbarui/mengupdate dan menghapus/delete data

Oke langsung saja

Pertama – tama buka project yang kita buat sebelumnya dengan cara File – Open Project – Nama_project_yang_telah_kita_buat

2. tambahkan 2 button lagi untuk tombol update dan hapus

Object	Property	Value
Button1	Name	Btn_update
	Text	Update
Button2	Name	Btn_hapus
	Text	Hapus

Sehingga tampilan form seperti dibawah ini

3. Tambahkan script dibawah ini pada sub awal

btn_update.Enabled = False

btn_hapus.Enabled = False

Sehingga menjadi seperti dibawah ini

Sub awal()

Txt_nis.Text = ""

Txt_nama.Text = ""

Txt_alamat.Text = ""

Cbo_kelamin.Text = ""

Cbo_kelamin.Items.Clear()

Cbo_kelamin.Items.Add("Laki - Laki")

Cbo_kelamin.Items.Add("Perempuan")

Btn_tutup.Text = "Tutup"

Btn_cari.Enabled = False

Btn_simpan.Enabled = False

Btn_tambah.Enabled = True

Btn_tutup.Enabled = True

Txt_nis.Enabled = False

Txt_nama.Enabled = False

Txt_alamat.Enabled = False

Cbo_kelamin.Enabled = False

btn_update.Enabled = False

btn_hapus.Enabled = False

End Sub

4. Tambahkan script dibawah ini pada tombol cari

btn_hapus.Enabled = True

btn_update.Enabled = True

sehingga menjadi seperti dibawah ini

Private Sub Btn_cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_cari.Click

If Txt_nis.Text = "" Then

MsgBox("Nis masih kosong", MsgBoxStyle.Exclamation, "Peringatan")

Else

cmd = New SqlCommand("select nis,nm_siswa,alamat,jenis_kelamin from siswa where nis='" & Txt_nis.Text & "'", conn)

rd = cmd.ExecuteReader

rd.Read()

If rd.HasRows Then

Txt_nis.Text = rd("nis")

Txt_nama.Text = rd("nm_siswa")

Txt_alamat.Text = rd("alamat")

Cbo_kelamin.Text = rd("jenis_kelamin")

Btn_simpan.Enabled = False

btn_hapus.Enabled = True

btn_update.Enabled = True

Else

MsgBox("Data tidak ditemukan")

End If

rd.Close()

End If

End Sub

5. Tambahkan script dibawah ini pada tombol delete

Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

If Txt_nis.Text = "" Then

MsgBox("NIS tidak boleh kosong", MsgBoxStyle.Exclamation, "Peringatan")

Else

If MsgBox("Apakah anda akan menghapus data ini?", MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.Yes Then

cmd = New SqlCommand("delete from siswa where nis='" & Txt_nis.Text & "'", conn)

cmd.ExecuteNonQuery()

MsgBox("Data berhasil dihapus", MsgBoxStyle.Information, "Informasi")

Call awal()

End If

End Sub

6. Tambahkan script dibawah ini pada tombol update

Private Sub btn_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click

If Txt_nis.Text = "" Or Txt_nama.Text = "" Or Txt_alamat.Text = "" Or Cbo_kelamin.Text = "" Then

MsgBox("Data belum lengkap", MsgBoxStyle.Exclamation, "Peringatan")

Else

cmd = New SqlCommand("update siswa set nis='" & Txt_nis.Text & "',nm_siswa='" & Txt_nama.Text & "',alamat='" & Txt_alamat.Text & "',jenis_kelamin='" & Cbo_kelamin.Text & "'", conn)

cmd.ExecuteNonQuery()

MsgBox("Data berhasil diupdate", MsgBoxStyle.Information, "Informasi")

Call awal()

End If

End Sub

8. jika sudah maka coba jalankan program tersebut dengan cara tekan F5 atau klik menu Debug – Start Debugging