Procedimiento Almacenado con Parametros en ODBC

[Jamsito]

Que tal , espero tengan un buen dia....

queria molestarlos talvez me pueden hechar la mano con este problema.

estoy intentando correr un Procedimiento Almacenado que esta en la base de datos, y yo estoy trabajando en Visual Basic 2010. y desde ahi a la hora de oprimir un boton quiero mandarle unos datos pero me da un error


este es mi codigo:

Código:

Dim comandoODBC As OdbcCommand = New OdbcCommand("{call sp_Alta_COMPRAS_ENC2 (?,?,?)}", conexionODBC)

            Dim parametro As OdbcParameter = comandoODBC.Parameters.Add("@CODIGO_TIPO_COMPRA", OdbcType.Int)
            parametro.Value = 93
            
            comandoODBC.Parameters.Add("@CODIGO_DE_COMPRA", OdbcType.Int)
            parametro.Value = 1
          
            comandoODBC.Parameters.Add("@FECHA_COMPRA", OdbcType.SmallDateTime)
            parametro.Value = System.DateTime.Now
 
conexionODBC.Open()
comandoODBC.ExecuteReader()

cuando llega al Execute Reader me tira un error "Error al convertir el valor del parámetro de DateTime a Int32."


soy novato en esto y es todo un caso trabajar estos procedimientos utilizando odbc

el error esta en la fecha por que cuando se la quito me pasa de ese error y me pide otro parametro .....

alguien me puede decir que puedo hacer ?, como le mando parametros mas sencillos a mi procedimiento utilizando odbc o si solo esta sintaxis existe???

Saludos

[Jamsito]

O algun ejemplo donde se utilice un procedemiento almacenado con parametros, y se le pasen fechas ???

utilizando conexion de tipo ODBC ???

[Aquaventus]

Hola Jamsito, trata intentando lo siguiente :

Código vb:

Dim comandoODBC As OdbcCommand = New OdbcCommand("{call sp_Alta_COMPRAS_ENC2 (?,?,?)}", conexionODBC)
 
            comandoODBC.Parameters.Add("@CODIGO_TIPO_COMPRA", OdbcType.Int).Value = 93
            
            comandoODBC.Parameters.Add("@CODIGO_DE_COMPRA", OdbcType.Int).Value = 1
          
            comandoODBC.Parameters.Add("@FECHA_COMPRA", OdbcType.SmallDateTime).Value = Convert.ToDatetime(System.DateTime.Now.ToShortDateString())
 
conexionODBC.Open()
comandoODBC.ExecuteReader()
 

Nos comentas. Saludos!.

[Jamsito]

Gracias por Responder Aquaventus,

ya lo corri y me tira ahora un error de que estoy intentando meter un valor nulo a "FECHA_COMPRA" cosa que no tiene sentido pues ahi va la fecha.

este error me tira en el ExecuteReader

ERROR [HY000] [INTERSOLV][ODBC SQL Server driver][SQL Server]Attempt to insert NULL value into column 'FECHA_COMPRA', table 'spc_pacaold.dbo.COMPRAS_ENC'; column does not allow nulls. Update fails.

ERROR [HY000] [INTERSOLV][ODBC SQL Server driver][SQL Server]Command has been aborted.

[Jamsito]

Ok ya me corrio por si alguien le ocurre lo mismo aqui esta la solucion conjunto a la ayuda de Aquaventus

Dim comandoODBC As OdbcCommand = New OdbcCommand("{call sp_Alta_COMPRAS_ENC2 (?,?,?) }", conexionODBC)

comandoODBC.Parameters.Add("@CODIGO_TIPO_COMPRA", OdbcType.Int).Value = 93
comandoODBC.Parameters.Add("@CODIGO_DE_COMPRA", OdbcType.Int).Value = 1
comandoODBC.Parameters.Add("@FECHA_COMPRA", OdbcType.SmallDateTime).Value = Convert.ToDateTime(mtbFecha.Text)

conexionODBC.Open()
comandoODBC.ExecuteNonQuery()
MessageBox.Show("Ingresado con exito")
conexionODBC.Close()

donde mtbFecha es un MaskedTextbox donde guardo la fecha

Saludos