Vb6 Ms Access: Pembuatan Data, Edit/Update Data

Beranjak dari pembahasan input data baru, bahasan selanjutnya yaitu edit/update data. Masih berlanjut dari postingan sebelumnya.

Tambahkan code di event grid grdData_DblClick
Private Sub grdData_DblClick()
On Error GoTo errHandler

'kalau di grid tidak ada data
If rsData.RecordCount = 0 Then Exit Sub

With Me
    .txtCode.Text = rsData!categorycode
    .txtName.Text = rsData!categoryname
    .txtCode.Enabled = False
End With

Exit Sub
errHandler:
MsgBox Err.Number & ":" & Err.Description
End Sub

txtCode.Enabled = False, alasannya primary key sebaiknya tidak diubah. Dan properti ini akan menjadi parameter pembeda apakah proses saving akan menginput data gres atau update data yang sudah ada. Ubah code di event cmdSave_Click.
Private Sub cmdSave_Click()
On Error GoTo errHandler

'Validasi input data
If txtCode.Text = "" Then MsgBox "Kode belum diisi": Exit Sub 
If txtName.Text = "" Then MsgBox "Nama belum diisi": Exit Sub

If txtCode.Enabled = True Then
    'query insert ke database
    RunQuery "INSERT INTO category " & _
             "(categorycode, categoryname) VALUES " & _
             "('" & txtCode.Text & "', " & _
             "'" & txtName.Text & "')"
            
    'pesan konfirmasi input sukses
    MsgBox "Data baru sudah disertakan"
Else
    'query update ke database
    RunQuery "UPDATE category SET " & _
             "categoryname = '" & txtName.Text & "' " & _
             "WHERE categorycode = '" & txtCode.Text & "'"
            
    'pesan konfirmasi update berhasil
    MsgBox "Perubahan data sudah tersimpan"
End If

'membersihkan control input
cmdCancel_Click

Exit Sub
errHandler:
MsgBox Err.Number & ":" & Err.Description
End Sub

Kembalikan properti enabled pada txtCode dikala membersihkan control
Private Sub cmdCancel_Click()
Load_Data
txtCode.Enabled = True
txtCode.Text = ""
txtName.Text = ""
End Sub

Untuk menampilkan data yang hendak diedit, selain dengan double klik pada grid, juga dapat dilaksanakan dengan klik tombol Edit. Karena itu panggil Event grdData_DblClick di Event cmdEdit_Click.
Private Sub cmdEdit_Click()
grdData_DblClick
End Sub

Setelah itu Run project, dan cek apakah fungsi edit berlangsung dengan baik. Double click baris yang hendak diedit. Maka akan ditampilkan di control input/edit.

 Kemudian ubah nama klasifikasi (primary key di set tidak bisa diedit), kemudian klik Save.

 Jika pergeseran berhasil maka akan muncuk pesan.

 Perubahan akan tampil di datagrid.

Click here if you like this article.



Sumber http://rani-irsan.blogspot.com