Tolong ya gan, new bie nih...
1. aku pingin menghapus current data. aku pake DE dengan source berupa queri
yang melibatkan 3 tabel. untuk tambah dan simpan sudah tidak ada masalah eh
untuk hapus terjadi error:Insufficient key column information for updating and
refreshing. berikut ini codingq :
Private Sub CmdHapus_Click()
jawab = MsgBox("Ingin menghapus data ini? ", vbYesNo, "Hapus Data")
If jawab = vbYes Then
DataEnvironment1.rsCD.Delete
DataGrid1.Refresh
End If
End Sub
setelah tanya sana sini katanya emang ga bisa untuk mendelete record yang
berupa
queri, kan DE q sourcenya kan berupa query bukan tabel. apa betul seperti itu?
2. setelah itu codingq ku ganti seperti ini :
Private Sub CmdHapus_Click()
jawab = MsgBox("Ingin menghapus data ini? ", vbYesNo, "Hapus Data")
If jawab = vbYes Then
konek.Execute "DELETE FROM CD WHERE KODECD='" & txtKODECD & "'"
DataEnvironment1.rsCD.Close
DataEnvironment1.rsCD.Open
DataEnvironment1.rsCD.Requery
DataGrid1.Refresh
End If
End Sub
setelah saya run ternyata berhasil terhapus cuman harus ditutup dulu kemudian
dibuka kembali formnya. kalo tidak dilakukan seperti itu, navigasinya malah ga
jalan dan record yang ingin ku hapus masih muncul di grid, pertanyaannya:
apa betul untuk refresh DE itu hanya bisa dilakukan dengan cara spt diatas (
yaitu harus close kemudian open dan requery) ? kalo betul kenapa tetep tidak
jalan refreshnya ( data yang ingin dihapus masih muncul padahal kenyataannya
sudah terhapus?)
Dijawab ya gan... secepatnya...:)
