[VB.Net 2010] Ciclo su query parametrica

[anza]

Ciao a tutti,
mi viene restituito all'interno del ciclo questo errore : Parameter '@Codice_NB' has already been defined

Qual'è la struttura corretta ? Grazie per l'aiuto


For I = 0 To ListBox.Items.Count - 1

Command_Save.CommandText = "INSERT INTO admin_query(Portatile,Sink,Query) VALUES (@Codice_NB,@Sink,@TxT_Query) "

Command_Save.Parameters.Add("@Codice_NB", MySqlDbType.String).Value = rowView(IPC)
Command_Save.Parameters.Add("@Sink", MySqlDbType.Int16).Value = 0
Command_Save.Parameters.Add("@TxT_Query", MySqlDbType.String).Value = Listbox.Items(I)

Command_Save.ExecuteNonQuery()

Next

[tas]

L'errore è abbastanza ovvio, il primo ciclo for funziona perché la collezione dei parametri è vuota, nel secondo ciclo cerchi nuovamente di aggiungere gli stessi parametri e il programma va in errore.
La soluzione è quella di aggiungere i parametri (senza impostare il valore) prima di entrare nel ciclo for, mentre all'interno del ciclo for vai solo a modificare la proprietà Value di ciascuno di essi:

Command_Save.CommandText = "INSERT INTO admin_query(Portatile,Sink,Query) VALUES (@Codice_NB,@Sink,@TxT_Query) "

Command_Save.Parameters.Add("@Codice_NB", MySqlDbType.String)
Command_Save.Parameters.Add("@Sink", MySqlDbType.Int16)
Command_Save.Parameters.Add("@TxT_Query", MySqlDbType.String)

For i = 0 To ListBox.Items.Count - 1
    Command_Save.Parameters("@Codice_NB").Value = rowView(IPC)
    Command_Save.Parameters("@Sink").Value = 0
    Command_Save.Parameters("@TxT_Query").Value = Listbox.Items(I)

    Command_Save.ExecuteNonQuery()
Next

Ti invito, la prossima volta che posti codice, di inserirlo tra gli appositi tag [ CODE ] e [ /CODE ] (senza spazi).