Amigos modifique esto pero aun me sige reportando el mismo error alguien porfa que me ayude.. :(
Private Function guarda_stock()
Dim comando As New SqlCommand("insert into stock " & _
"values(@c_ingreso,@c_producto,@c_salida,@c_provee dor,@f_vence)", conexion)
Dim ada As New SqlDataAdapter()
conexion.Open()
ada.InsertCommand = comando
With ada.InsertCommand
.Parameters.Add(New SqlParameter("@c_ingreso", SqlDbType.Int))
.Parameters.Add(New SqlParameter("@c_producto", SqlDbType.Int))
.Parameters.Add(New SqlParameter("@c_salida", SqlDbType.Int))
.Parameters.Add(New SqlParameter("@c_proveedor", SqlDbType.Int))
.Parameters.Add(New SqlParameter("@f_vence", SqlDbType.DateTime))
.Parameters("@c_ingreso").Value = c_infor
.Parameters("@c_producto").Value = c_producto
.Parameters("@c_salida").Value = c_salida
.Parameters("@c_proveedor").Value = c_proveedor
.Parameters("@f_vence").Value = f_vence
End With
ada.InsertCommand.ExecuteNonQuery() ---->>>ACA EL ERROR
conexion.Close()
End Function
Public Function insertar(ByVal canti As Integer, ByVal fecha As Date, ByVal n_gen As String, ByVal n_com As String, ByVal dos As String, ByVal n_uni As String, ByVal m_dos As String, ByVal n_prove As String)
Dim i As Integer
For i = 0 To cantidad
f_vence = fecha
c_infor = get_c_inf()
c_producto = get_c_prod(n_gen, n_com, dos, n_uni, m_dos)
c_salida = 0
c_proveedor = get_c_prove(n_prove)
guarda_stock()
Next
End Function
