ERRO NA INSER?ÃO COM FOR NEXT E PARÂMETROS

DAMASCENO.CESAR 25/08/2016 15:42:25
#466182
Boa tarde, como estou começando agora com a utilização de parâmetros na inserção de dados (bem melhor de se trabalhar e com muito menos erros)
tentei utilizar um FOR com os dados de uma list(of T) para a inserção de dados mas está dando um problema chato, está repetindo os dados do primeiro registro
montei o codigo de forma que nao precise abrir a conexão em cada inserção, ele abre a conexão, passa pelo FOR fazendo a inserção e fecha a conexao depois do FOR
segue abaixo o codigo que estou usando
  Dim a
            cmd2 = New OleDbCommand
            cmd2 = db2.CreateCommand
            cmd2.Connection.Open()
            For a = 0 To Lst.Count - 1
                Str = [Ô]INSERT INTO PertenceInclusao (Codigo, Matricula, PP, TipoDep, Pertence, DtLanca) VALUES [Ô] _
                        & [Ô](@Codigo, @Matricula, @PP, @TipoDep, @Pertence, @DtLanca) [Ô]
                cmd2.CommandText = Str
                cmd2.Parameters.AddWithValue([Ô]@Codigo[Ô], Lst.Item(a).Codigo)
                cmd2.Parameters.AddWithValue([Ô]@Matricula[Ô], Lst.Item(a).Matricula)
                cmd2.Parameters.AddWithValue([Ô]@PP[Ô], Lst.Item(a).PP)
                cmd2.Parameters.AddWithValue([Ô]@TipoDep[Ô], Lst.Item(a).TipoDep)
                cmd2.Parameters.AddWithValue([Ô]@Pertence[Ô], Lst.Item(a).Pertence)
                cmd2.Parameters.AddWithValue([Ô]@DtLanca[Ô], Lst.Item(a).DtLanca)
                cmd2.ExecuteNonQuery()
            Next
            cmd2.Connection.Close()
            cmd2.CommandText = Nothing
            cmd2.Connection = Nothing


Se puderem me dizer onde estou errando, agradeço muito
DAMASCENO.CESAR 25/08/2016 15:53:25
#466183
Depois de sofrer, achei a solução e bem simples:
depois da linha:
cmd2.ExecuteNonQuery()

coloquei

cmd2.Parameters.Clear()

problema resolvido
Tópico encerrado , respostas não são mais permitidas
Voltar