Perintah Edit dan hapus di vb 6 menggunakan database Mysql

Ok sekarang kita akan membuat perintah edit dan hapus di vb 6 menggunakan database mysql.. sebelumnya kita sudah pernah membuat cara untuk melakukan Setting koneksi Mysql di Vb 6 dengan ADODB dan Perintah simpan di vb 6 menggunakan database mysql selanjutnya kita tinggal meneruskan saja :

apa yang diperlukan :

1. database dbbiodata (silahkan download disini)
2. Project sebelumnya (silahkan download disini)

silahkan buka project yg sudah di download, kemudian tambahkan tombol edit seperti gambar dibawah ini

untuk melakukan edit kita harus menampilkan data yang ada di datagrid kembali ke text.. silahkan klik 2x datagridnya rubah menjadi dblclick seperti gambar dibawah

kalau sudah yoo kita ngoding.. ketikkan perintah berikut
Private Sub DataGrid1_DblClick()
On Error GoTo pesan
Dim adu As Integer
adu = DataGrid1.Row

Text1.Text = DataGrid1.Columns(0).Text
Text2.Text = DataGrid1.Columns(1).Text
Text3.Text = DataGrid1.Columns(2).Text
Text4.Text = DataGrid1.Columns(3).Text

Text1.Enabled = False

Exit Sub
pesan:
MsgBox "Data yang anda klik kosong !", vbInformation, "Informasi"

buka
datapribadi

Exit Sub
End Sub
dikarenakan tabel biodata tidak ada PK nya jdi kita buat text1.Enabled = false (maksudnya text yg isinya nama tidak bisa di ubah karena kita akan pakai sebagai PK)

sekarang kita klik 2x tombol edit.. ketikkan perintah berikut yaa..
Private Sub Command3_Click()
tutup
buka
Set biodata = New Recordset

sql = "update tbbiodata set alamat='" & Text2.Text & "',telepon='" & Text3.Text & "',iklan='" & Text4.Text & "'  where nama ='" & Text1.Text & "' "
Set biodata = con.Execute(sql)
datapribadi
MsgBox "Biodata berhasil diperbaiki..!", vbInformation, "Informasi"

Text1.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub
sekarang klik 2x tombol hapus.. ketikkan perintah berikut ini
Private Sub Command4_Click()
Dim hapus As String
hapus = MsgBox("Yakin akan hapus data biodata ini..?", vbCritical + vbYesNo, "Konfirmasi")
If hapus = vbYes Then
tutup
buka
Set biodata = New Recordset
sql = "delete from tbbiodata where nama ='" & Text1.Text & "'"
Set biodata = con.Execute(sql)
datapribadi
MsgBox "Biodata berhasil dihapus..!", vbInformation, "Informasi"
End If
Text1.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub

jika sudah berarti kita selesai menambahkan perintah edit dan hapusnya.. sekarang jalankan F5

silahkan klik 2x di daerah yang dilingkari merah untuk menampilkan datanya ke text.. kalau sudah silahkan anda edit datanya terlebih dahulu kemudian baru tekan tombol edit

namun bila ingin menghapus silahkan tampilkan datanya di text kemudian tekan tombol hapus


sekian tutorial kali ini jika belum mengerti silahkan komen

untuk source codenya ada disini

About Me :

Saya Martin Purnansyah
Nama Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)