Actualizar Stock de tabla de productos

[maxxifernandez]

hola este es la primera vez q publico en un foro, me gustaria q alguien me ayude con esto xq es para la facu y tengo q entregar, muchas gracias



Les paso el codigo que tengo donde mi tabla de productos tiene q actualizar solo el stock y mi tabla de compras carga todos los datos de los textboxs






Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click

Me.conectar()

Dim actualizar As String
Dim ganancia_v As Decimal
Dim precioCompra_v As Decimal
Dim porcentaje_v As Decimal
Dim precioVenta_v As Decimal
Dim stock_v As Decimal
Dim cantidad_v As Decimal

actualizar = "UPDATE TabProductos" & " SET stock_v = @Stock" & _ --> esta linea nose si esta bien
" WHERE CodProducto = @CodProducto"

precioCompra_v = CDec(Me.txtPrecioCompra.Text)
porcentaje_v = CDec(Me.txtPorcentaje.Text)
cantidad_v = CDec(Me.txtCantidad.Text)
ganancia_v = (precioCompra_v * porcentaje_v) / 100
precioVenta_v = precioCompra_v + ganancia_v


stock_v = (stock_v + cantidad_v)

Dim cmdActualizar As New SqlCommand(actualizar, miConex)


cmdActualizar.Parameters.AddWithValue("@Stock", stock_v)


miConex.Open()
Try
Dim ACT As Integer
ACT = CInt(cmdActualizar.ExecuteNonQuery)
Catch ex As Exception
MsgBox("Error al Actualizar TabProd") ---------> salta el error al actualizar tabla de productos

End Try
miConex.Close()
MsgBox("Datos Actualizados TabProd")





miConex.Open()
Dim insertar2 As String
'TabCompra: cargo todos los campos
insertar2 = " INSERT INTO TabCompra (CodProducto, Descripcion, PrecioCompra, Fecha, Cantidad, Unidades, Proveedor)" & _
"VALUES" & _
"(@CodProducto, @Descripcion, @PrecioCompra, @Fecha, @Cantidad, @Unidades, @Proveedor)"

stock_v = stock_v + cantidad_v

Dim cmdInsertar2 As New SqlCommand(insertar2, miConex)

'TabCompra()
cmdInsertar2.Parameters.AddWithValue("@CodProducto ", Me.txtCodigoProducto.Text)
cmdInsertar2.Parameters.AddWithValue("@Descripcion ", Me.txtDescripcion.Text)
cmdInsertar2.Parameters.AddWithValue("@PrecioCompr a", Me.txtPrecioCompra.Text)
cmdInsertar2.Parameters.AddWithValue("@Fecha", Me.DateTimePicker1.Text)
cmdInsertar2.Parameters.AddWithValue("@Cantidad", Me.txtCantidad.Text)
cmdInsertar2.Parameters.AddWithValue("@Unidades", Me.txtUnidades.Text)
cmdInsertar2.Parameters.AddWithValue("@Proveedor", Me.txtNombreProveedor.Text)

Try
Dim FINSS As Integer = CInt(cmdInsertar2.ExecuteNonQuery)
Catch ex As Exception
MsgBox("Error al Cargar TabCompra")

End Try

miConex.Close()
MsgBox("Datos Cargados TabCompra") ---------> la tabla de compras carga bien
Me.actualizar()
End Sub