Mungkin yg ditandain merah... mungkin lho yaa
:D
liat bawah
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).text &
"'"
cnAbsen.Execute
thoy
Next
End Sub
IpinZ
----- Original Message -----
Sent: Friday, February 17, 2006 8:00
PM
Subject: [Programmer-VB] Pesan Error
Update
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
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
