Membuat proses Simpan update delete visual basic (bagian 4 )

By: Unknown on 21.23

Proses ini kelanjutan dari Membuat proses simpan update delete visual basic 6.0 (bagian 3)

PROSES DELETE 

Doble klik pada tombol Hapus lalu tuliskan kode berikut

buang = MsgBox("yakin dihapus ?", vbYesNo, "Peringatan")
If buang = vbYes Then
Set rsmhs = New ADODB.Recordset
rsmhs.Open "delete from mahasiswa where nim= '" & txtnim.Text & "'", kn
End If

Tepat dibawahnya tuliskan kode berikut untuk mengaktifkan kembali textbox untuk proses lainya

txtnim.Enabled = True
txtnama.Enabled = True
cmbjenkel.Enabled = True
cmbagama.Enabled = True
cmbstudy.Enabled = True
tgllahir.Enabled = True
tglmasuk.Enabled = True
txtnim.SetFocus
Form_Activate 

Sehingga kode keseluruhan tombol hapus menjadi seperti ini

Tekan F5 / RUN untuk mencoba