hola uso yo el sgte codigo
Cita: Dim CodEmpresa_Cont As String
If ClaseContactComer.ValidarContactComer(CodEmpresa, Prov) = False Then
Prov = ""
CodEmpresa_Cont = ""
Else
CodEmpresa_Cont = CodEmpresa
End If
Dim codetalle As New MySqlCommand
Dim conexionprueba As MySqlConnection = New MySqlConnection(ConfigurationManager.ConnectionStr ings("ConnectionSigcol1").ConnectionString)
codetalle.CommandText = "com_sp_requisicion_articulo_crear"
codetalle.CommandType = CommandType.StoredProcedure
codetalle.Connection = conexionprueba
Dim Param01 As New MySqlParameter("param_cod_empresa", Data.SqlDbType.VarChar)
Param01.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param01)
codetalle.Parameters("param_cod_empresa").Value = CodEmpresa
Dim Param02 As New MySqlParameter("param_cod_anho", Data.SqlDbType.VarChar)
Param02.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param02)
codetalle.Parameters("param_cod_anho").Value = Año
Dim Param03 As New MySqlParameter("param_num_requisicion", Data.SqlDbType.VarChar)
Param03.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param03)
codetalle.Parameters("param_num_requisicion").Valu e = NumRequi
Dim Param04 As New MySqlParameter("param_num_secuencial", Data.SqlDbType.VarChar)
Param04.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param04)
codetalle.Parameters("param_num_secuencial").Value = Secuen
Dim Param05 As New MySqlParameter("param_tipo_articulo", Data.SqlDbType.VarChar)
Param05.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param05)
codetalle.Parameters("param_tipo_articulo").Value = TipoArt
Dim Param06 As New MySqlParameter("param_cod_articulo", Data.SqlDbType.VarChar)
Param06.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param06)
codetalle.Parameters("param_cod_articulo").Value = CodArt
Dim Param07 As New MySqlParameter("param_cod_unidad", Data.SqlDbType.VarChar)
Param07.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param07)
codetalle.Parameters("param_cod_unidad").Value = CodUnidad
Dim Param08 As New MySqlParameter("param_num_cantidad", Data.SqlDbType.Decimal)
Param08.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param08)
codetalle.Parameters("param_num_cantidad").Value = Cantidad
Dim Param09 As New MySqlParameter("param_num_stock", Data.SqlDbType.Decimal)
Param09.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param09)
codetalle.Parameters("param_num_stock").Value = Stock
Dim Param10 As New MySqlParameter("param_cod_empresa_con", Data.SqlDbType.VarChar)
Param10.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param10)
codetalle.Parameters("param_cod_empresa_con").Valu e = CodEmpresa_Cont
Dim Param11 As New MySqlParameter("param_cod_contacto", Data.SqlDbType.VarChar)
Param11.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param11)
codetalle.Parameters("param_cod_contacto").Value = Prov
Dim Param12 As New MySqlParameter("param_cod_usuario", Data.SqlDbType.VarChar)
Param12.Direction = ParameterDirection.Input
codetalle.Parameters.Add(Param12)
codetalle.Parameters("param_cod_usuario").Value = UsuaRegis
conexionprueba.Open()
codetalle.ExecuteScalar()
conexionprueba.Close()
y me da el sgte error .....
La cadena de entrada no tiene el formato correcto.
es con mysql ese es el problema .... quisiera saber si me pudieran ayudar ... es urgente