Untuk menghapus record di Datagrid dengan dobel klik codingnya seperti dibawah
ini :
Private Sub DataGrid1_DblClick()
Select Case LTrim(DataGrid1.Columns(1).Value)
Case "WhereKey1"
cn.execute("Delete namaTabelna where keyTabel='" & WhereKey1 & "'")
Case "WhereKey2"
cn.execute("Delete nsmaTabelna where keyTabel='" & WhereKey2 & "'")
end select
end Sub
data record yang ditampilkan di datagrid memang hasil query tampilan dari tabel
yang saya ksh nama "namaTabelna" sebagai contoh dan "WhereKey1" sebagai primary
key, di colum satu datagrid merupakan primary key dari tabel.
Mungkin itu yg bisa saya kasih, selamat mencoba :d
---------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
[Non-text portions of this message have been removed]
