Hola!! Es la primera vez q recurro al foro para solucionar un problema, espero q me ayuden.
El Problema:
No ACTUALIZA
los registros en una de mi Tb_General, me sale el siguiente mensaje
'Esta fila ya pertenece a esta tabla' Public Function ModificarRegistros(
ByVal codgeneral
As String,
ByVal v1
As String,...,v40
As String)
As Boolean Dim cmd
As New SqlCommand
Dim vexito
As Boolean
vsql = "Update Tb_General set cod_pais=@v1,...nab=@v40 where cod_general=@codgeneral"
cmd.Connection = cnx
cmd.CommandType = CommandType.Text
cmd.CommandText = vsql
'Agregamos parametros para la instruccion SQL Try
cmd.Parameters.Add(
New SqlParameter("@codgeneral", SqlDbType.NVarChar, 4))
cmd.Parameters("@codgeneral").Value = codgeneral
cmd.Parameters.Add(
New SqlParameter("@v1", SqlDbType.Int, 4))
cmd.Parameters("@v1").Value = v1
......
cmd.Parameters.Add(
New SqlParameter("@v40", SqlDbType.Char, 15))
cmd.Parameters("@v40").Value = v40
cnx.Open()
cmd.ExecuteNonQuery()
vexito = True
Catch x
As SqlException
MsgBox(x.Message())
vexito = False
Finally
cnx.Close()
End Try Return vexito
End Function
Esta funcion va dentro del metodo Sub Modificar(), donde recibe los 40 parámetros
Dentro de este Sub Modificar() al final declaro:
'Aqui coloque un punto de interrupción y todas las variables son correctas y no hay null
ModificarRegistros(codgeneral, v1, v2, ...,v40)
MsgBox("Datos modificados", MsgBoxStyle.Information)
Catch ex
As Exception
MsgBox(ex.Message) 'Esta fila ya pertenece a esta tabla End Try
End Sub
No sé q tanto puede ayudar el código q he colocado aqui, pero espero q sea lo necesario para q me puedan ayudar.
Ciao