baris ini :
& "where NIK='" & LV.ListItems(I) &
"'"---> kasih space sebelum where
spt ini :
& " where NIK='" & LV.ListItems(I) &
"'"
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
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...
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
YAHOO! GROUPS LINKS