LIST(OF T) COM STORED PROCEDURE.

IDELVAN 04/01/2015 12:56:10
#443581

Bom dia amigos.


Criei uma rotina para gravar registros de uma lista genérica onde são armazenados dados de endereço.

Estou encontrando dificuldade em adiciona-los em um SGDB ( Mysql 5.1 ) via stored procedure.

Inseri um for next para adicioando um a um no BD porém gera um erro ao adicionar o próximo.

Segue o código.

Public Function GravarDadosEnderecoSP(ByVal cls As List(Of endereçosDTO)) As Boolean
Dim i As Integer
Try
Conectar()
_mycmd.Connection = _mycnn
_mycmd.CommandType = CommandType.StoredProcedure
_mycmd.CommandText = ([Ô]sp_Inserir_CadastroGeralEnder[Ô])
For i = i To cls.Count
_mycmd.Parameters.AddWithValue([Ô]IdEndCad[Ô], cls(i)._idend)
_mycmd.Parameters.AddWithValue([Ô]IdSisCad[Ô], cls(i)._idcli)
_mycmd.Parameters.AddWithValue([Ô]IdClaEnd[Ô], cls(i)._idend)
_mycmd.Parameters.AddWithValue([Ô]IdCep[Ô], cls(i)._idcep)
_mycmd.Parameters.AddWithValue([Ô]IdIbgEst[Ô], 1)
_mycmd.Parameters.AddWithValue([Ô]cmun[Ô], 1)
_mycmd.Parameters.AddWithValue([Ô]nro[Ô], cls(i)._nro)
_mycmd.Parameters.AddWithValue([Ô]casa[Ô], [Ô]x[Ô])
_mycmd.Parameters.AddWithValue([Ô]andar[Ô], [Ô]x[Ô])
_mycmd.Parameters.AddWithValue([Ô]bloco[Ô], [Ô]x[Ô])
_mycmd.Parameters.AddWithValue([Ô]apto[Ô], [Ô]x[Ô])
_mycmd.Parameters.AddWithValue([Ô]sala[Ô], [Ô]x[Ô])
_mycmd.Parameters.AddWithValue([Ô]comp[Ô], cls(i)._comp)
_mycmd.ExecuteNonQuery()
Next
_bln = True
Catch ex As Exception
_bln = False
MsgBox(ex.Message)
End Try
_mycmd.Dispose()
Return _bln
End Function


Um forte abraço.