Buenas tardes ojala y alguien me pueda ayudar, bueno mi problema es de que quiero insertar un registro nuevo a mi bd y no me deja, no me marca errores ni nada de hecho en mi formulario si se insertan los datos y lo reviso en mi bd y no esta el registro, uso un storeprocedure y mi codigo es el siguiente:
Dim CnnString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Coltizacion.mdf;Trusted_Connection=yes;Integrat ed Security=True;User Instance=True"
Dim SqlCnn As SqlConnection
SqlCnn = New SqlConnection(CnnString)
Try
Dim comando As New SqlCommand()
comando = New SqlCommand("Insertarpro", SqlCnn)
comando.CommandType = CommandType.StoredProcedure
comando.Parameters.Add("@Clave", SqlDbType.Char, 10)
comando.Parameters.Add("@Social", SqlDbType.Char, 50)
comando.Parameters.Add("@Nombre", SqlDbType.Char, 50)
comando.Parameters.Add("@Apellido", SqlDbType.Char, 50)
comando.Parameters("@Clave").Value = Me.txtpro.Text.ToString
comando.Parameters("@Social").Value = Me.txtsocial.Text.ToString
comando.Parameters("@Nombre").Value = Me.txtnombre.Text.ToStrin
comando.Parameters("@Apellido").Value = Me.txtapellido.Text.ToStrin
SqlCnn.Open()
comando.ExecuteNonQuery()
SqlCnn.Close()
comando = Nothing
Catch ex As Exception
MsgBox("Error: " & ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Información del Sistema")
End Try
Bueno espero y alguien pueda ayudarme gracias.
