Maaf Mau merepotkan lagi,
Bagaimana coding untuk mengupdate table melalui form dengan menggunakan
system ADO?
Saya kirimkan coding yg saya buat tapi error.
Private Sub UpdateData()
Dim msql As String
msql = "UPDATE tblbarang SET" & _
"kdstock='" & txtKDStock.Value & "'," & _
"nama='" & TXTNama.Value & "'," & _
"merek='" & TXTMerek.Value & "'," & _
"Minstock='" & TXTMinStock.Value & "'," & _
"satuan='" & TXTSatuan.Value & "'," & _
"WHERE (TblBarang.kdstock='" & txtKDStock.Value & "')"
cnn.Execute (msql)
End Sub
Dengan ketentuan yang menjadi primary key pada tblBarang (Table Barang)
adalah KdStock.
Thanks.
