Re: [Programmer-VB] Pesan Error Update

Sun, 19 Feb 2006 17:16:10 -0800

coba ditrace (F8) lagi mas thoyib, letakkan
debug.print thoy
sebelum cnAbsen.Execute thoy dan liat apa isi string thoy itu di immediate window, terus coba run query yg ada di string itu pd database yg anda gunakan, cek dimana kesalahannya.
 
kalau saya liat sekilas, sebelum WHERE mas thoyib ga memberi spasi pemisah, coba ganti menjadi 
& " where NIK='" & LV.ListItems(I) & "'"

tapi buat pastinya coba ditrace lagi dg cara diatas.
 
best regards
[wwn]

 
On 2/18/06, thoyib <[EMAIL PROTECTED]> wrote:
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
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke