Vb6 Ms Access: Pengolahan Data, Edit/Update Data

Beranjak dari pembahasan input data baru , bahasan selanjutnya adalah edit/update data. Masih berlanjut dari postingan sebelumnya. Tambahkan code di event grid grdData_DblClick Private Sub grdData_DblClick() On Error GoTo errHandler 'jikalau 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 adalah 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 berhasil     MsgBox "Data gres telah disertakan" Else     'query update ke database     RunQuery "UPDATE category SET " & _              "categoryname = '" & txtName.Text & "' " & _              "WHERE categorycode = '" & txtCode.Text & "'"                  'pesan konfirmasi update berhasil     MsgBox "Perubahan data telah tersimpan" End If 'membersihkan control input cmdCancel_Click Exit Sub errHandler: MsgBox Err.Number & ":" & Err.Description End Sub Kembalikan properti enabled pada txtCode saat membersihkan control Private Sub cmdCancel_Click() Load_Data txtCode.Enabled = True txtCode.Text = "" txtName.Text = "" End Sub Untuk memperlihatkan data yang mau diedit, selain dengan double klik pada grid, juga dapat dikerjakan 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 mau diedit. Maka akan ditampilkan di control input/edit.  Kemudian ubah nama klasifikasi (primary key di set tidak bisa diedit), kemudian klik Save.  Jika perubahan sukses maka akan muncuk pesan.  Perubahan akan tampil di datagrid. Click here if you like this article.
Sumber http://rani-irsan.blogspot.com