Dear VB-ers,
Mohon pencerahannya, aku ada masalah dgn
update nich..
Saya mo update database dari ListView dg
coding sbb:
Private Sub
cmdSave_Click()
Dim I As Integer
Dim thoy As String
For
I = 1 To LV.ListItems.Count
thoy = "update Absen set Kd_Lembur='" & LV.ListItems(I).SubItems(2)
& "'," _
&
"Kd_Bagian='" & LV.ListItems(I).SubItems(3) & "',"
_
& "Jam_Masuk='" &
LV.ListItems(I).SubItems(4) & "',"
_
& "Jam_Selesai='" &
LV.ListItems(I).SubItems(5) & "',"
_
& "T_Menit='" &
LV.ListItems(I).SubItems(6) & "',"
_
& "T_Jam='" &
LV.ListItems(I).SubItems(7) & "'," _
& "Ket='" &
LV.ListItems(I).SubItems(8) & "'"
_
& "where NIK='" &
LV.ListItems(I) & "'"
cnAbsen.Execute
thoy
Next
End Sub
Tapi pada saat di klik cmdSave selalu muncul
pesan error Sbb:
No value given for one or more
required parameters
Masalahnya dimanaya..? Tolong beri penjelasan
pesan error tsb...
Regards,
Thoy