Hola... tengo el siguiente codigo para insertar los datos en sql:
Dim conexion As SqlClient.SqlConnection
Dim comando As SqlClient.SqlCommand
Dim query As String
Dim tabla As New DataTable
conexion = New SqlClient.SqlConnection()
conexion.ConnectionString = ("Data Source=SERVERSQL;Initial Catalog=RH_ABCD;User Id=produccion;Password=qpaso@produccion;")
query = "insert into tblCedulas values (@idCedula,@Comision,@idHorario,@TiempoCargo,@TiempoLabor,@FuncionPrincipal,@FuncionExtra,@PercepcionArea)"
comando = New SqlClient.SqlCommand
comando.Connection = conexion
comando.CommandText = query
comando.Parameters.Add("@idCedula", SqlDbType.Char, 9).Value = Me.tbFolio.Text
comando.Parameters.Add("@Comision", SqlDbType.Char, 100).Value = Me.tbcomision.Text
comando.Parameters.Add("@idHorario", SqlDbType.Int, 4).Value = Me.cbHorario.SelectedValue.ToString()
comando.Parameters.Add("@TiempoCargo", SqlDbType.Int, 4).Value = Me.tbtiempocargo.Text
comando.Parameters.Add("@TiempoLabor", SqlDbType.Int, 4).Value = Me.tbtiempolabo.Text
comando.Parameters.Add("@FuncionPrincipal", SqlDbType.Char, 100).Value = Me.tbfunprincipal.Text
comando.Parameters.Add("@FuncionExtra", SqlDbType.Char, 100).Value = Me.tbfuncionextra.Text
comando.Parameters.Add("@PercepcioArea", SqlDbType.Char, 110).Value = Me.tbpercepcion.Text
Pero al momento de dar clic en guardar me manda decir que ha habido problemas al intentar establecer conecsionError al conventir el valor del parametro de String a Int 32.
Espero k puedan ayudarme gracias