listview checkbox

[lembayung1]

this my code for listview checkbox...ive compiled and theres no error but all the data are not saved to my database

Code: Select all

For i = 1 To ListView3.ListItems.Count
       
        If ListView3.ListItems(i).Tag = "" And ListView3.ListItems(i).Checked = True Then
           
            sql = "insert into studentcourse ( peid,pengkod, bioid ) " & _
                  "values ( " & _
                  "'" & ListView3.ListItems(i).SubItems(1) & "', " & _
                  "'" & holdPENG & "')"
           
            db.Execute sql
           
        ElseIf ListView3.ListItems(i).Tag <> "" And ListView3.ListItems(i).Checked = True Then
           
            sql = "update studentcourse set " & _
                  "peid = '" & ListView3.ListItems(i).SubItems(1) & "', " & _
                  "pengkod= '" & holdPENG & "' " & _
                  "where peid = " & ListView3.ListItems(i).Tag
                 
            db.Execute sql
           
        ElseIf ListView3.ListItems(i).Tag <> "" And ListView3.ListItems(i).Checked = False Then
           
            sql = "delete from studentcourse where peid = " & ListView3.ListItems(i).Tag
           
            db.Execute sql
           
        End If

why is it so?