[VB6]Problema ListBox - errore 381

[Stefanik]

Ciao.
Da una textbox inserisco delle righe in una listbox e contemporaneamente le inserisco in un db.
Dalla listbox posso anche eliminare le righe, quindi anche nel db.

For i = 0 To lstCategorie.ListCount - 1
    If lstCategorie.Selected(i) = True Then
        qRimozione = "SELECT * FROM ImpoCategorie WHERE IDCategoria =" & lstCategorie.ItemData(lstCategorie.ListIndex)        RsRimozione.Open qRimozione, Cn, adOpenDynamic, adLockOptimistic
        lstCategorie.RemoveItem (lstCategorie.ListIndex)
        RsRimozione.Delete
        RsRimozione.Update
        RsRimozione.Close
    End If
Next i

Il problema è che se ho più record nella listbox e voglio cancellare
un record che non sia l'ultimo della lista, mi restituisce l'errore runtime 381 "indice della matrice di proprietà non valido".
La ListBox ha lo Style=1.
Idee?

[Stefanik]

...dimenticavo...l'errore me lo da sulla riga di codice

If lstCategorie.Selected(i) = True Then

[Pieruccio]

Una volta eliminata la riga dalla listbox devi uscire dal ciclo FOR:

For i = 0 To lstCategorie.ListCount - 1
    If lstCategorie.Selected(i) = True Then
        qRimozione = "SELECT * FROM ImpoCategorie WHERE IDCategoria =" & lstCategorie.ItemData(lstCategorie.ListIndex)        RsRimozione.Open qRimozione, Cn, adOpenDynamic, adLockOptimistic
        lstCategorie.RemoveItem (lstCategorie.ListIndex)
        RsRimozione.Delete
        RsRimozione.Update
        RsRimozione.Close
        Exit For
    End If
Next i

[Stefanik]

Già, però il problema si presenta se io do la possibilità di selezionare più di una riga.
Nel codice che mi hai postato posso eliminare solo una riga alla volta.

[cik]

potrebbe essere un errore dovuto al fatto che quando elimini una riga dalla list NON si aggiornano gli estremi del ciclo for e quindi, essendo diminuito il numero di righe nella lista, gli ultimi indici non esistono. Potresti provare "invertendo" il ciclo

For i = lstCategorie.ListCount - 1 downTo 0
    If lstCategorie.Selected(i) = True Then
        qRimozione = "SELECT * FROM ImpoCategorie WHERE IDCategoria =" & lstCategorie.ItemData(lstCategorie.ListIndex)
        RsRimozione.Open qRimozione, Cn, adOpenDynamic, adLockOptimistic
        lstCategorie.RemoveItem (lstCategorie.ListIndex)
        RsRimozione.Delete
        RsRimozione.Update
        RsRimozione.Close
        Exit For
    End If
Next i

[Stefanik]

Non mi funziona. Mi da errore sul downTo.

[Pieruccio]

scusa, errore mio:

For i = lstCategorie.ListCount - 1
    If lstCategorie.Selected(i) = True Then
        qRimozione = "SELECT * FROM ImpoCategorie WHERE IDCategoria =" & lstCategorie.ItemData(lstCategorie.ListIndex)
        RsRimozione.Open qRimozione, Cn, adOpenDynamic, adLockOptimistic
        lstCategorie.RemoveItem (lstCategorie.ListIndex)
        RsRimozione.Delete
        RsRimozione.Update
        RsRimozione.Close
        Exit For
    End If
Next i

[cik]

Originariamente inviato da Stefanik
Non mi funziona. Mi da errore sul downTo.

hai ragione, non esiste il downto.
Ho sbagliato linguaggio.

[cik]

trasforma il for in un while

i = lstCategorie.ListCount - 1
while i>=0
    If lstCategorie.Selected(i) = True Then
        qRimozione = "SELECT * FROM ImpoCategorie WHERE IDCategoria =" & lstCategorie.ItemData(lstCategorie.ListIndex)
        RsRimozione.Open qRimozione, Cn, adOpenDynamic, adLockOptimistic
        lstCategorie.RemoveItem (lstCategorie.ListIndex)
        RsRimozione.Delete
        RsRimozione.Update
        RsRimozione.Close
        Exit For
    End If
    i=i-1
Wend

e se ti dà ancora errore dimmi il valore della i

[Stefanik]

Originariamente inviato da Pieruccio
scusa, errore mio:

For i = lstCategorie.ListCount - 1
    If lstCategorie.Selected(i) = True Then
        qRimozione = "SELECT * FROM ImpoCategorie WHERE IDCategoria =" & lstCategorie.ItemData(lstCategorie.ListIndex)
        RsRimozione.Open qRimozione, Cn, adOpenDynamic, adLockOptimistic
        lstCategorie.RemoveItem (lstCategorie.ListIndex)
        RsRimozione.Delete
        RsRimozione.Update
        RsRimozione.Close
        Exit For
    End If
Next i

Mi da un errore, si aspetta il "to" dopo

For i = lstCategorie.ListCount - 1