Imports System.Data
Imports System.Data.SqlClient
Public Class frminventario
Private dt As New DataTable
'conexion para boton guardar
' Dim conegu As New SqlConnection("data source=(local);initial catalog=dbventas; integrated security= true")
'variables de conexionn para los demas botones
Private cnsp As SqlConnection
Private ds1p As DataSet
Private da1p As SqlDataAdapter
Private Sub btactualizar_Click(sender As System.Object, e As System.EventArgs) Handles btactualizar.Click
If cnsp.State = ConnectionState.Closed Then
cnsp.Open()
End If
Dim cmd1 As New SqlCommand("UPDATE productos set nombre_categoria='" & Me.cbnompro.Text & "', nombre='" & Me.txtnompro.Text & "', descripcion='" & Me.txtdespro.Text
& "', stock=" & Me.txtprostock.Text & ", cantidad_ingreso=" & Me.txtinpro.Text & ", stock_cajas=" & Me.txtcaprosto.Text & ", ingreso_cajas=" & Me.txtincaja.Text & ", precio_compra="
& Me.txtprecou.Text & ", precio_venta_unitario=" & Me.txtpreveu.Text & ", precio_caja_compra=" & Me.txtprecoca.Text & ", contenido_caja=" & Me.txtnuproca.Text & ", precio_venta_caja="
& Me.txtpreveca.Text & ", fecha_vencimiento='" & Me.txtfeven.Text & "', nombre_proveedor='" & Me.txtnoprovee.Text & "', fecha_ingreso='" & Me.txtfein.Text & "', numero_factura='" &
Me.txtnufa.Text & "' where idproducto=" & Conversion.Int(Me.txtidpro.Text) & "", cnsp)
cmd1.ExecuteNonQuery()
MsgBox("Stock actualizado correctamente......", MsgBoxStyle.Information, "Confirmar")
'actualizamos dtvpro
Dim datos As New SqlDataAdapter("select * from productos where idproducto like'" & Me.txtbuspro.Text & "%'", cnsp)
Dim ds1p As New DataSet()
datos.Fill(ds1p, "productos")
Me.dtvpro.DataSource = ds1p.Tables(0)
If cnsp.State = ConnectionState.Open Then
cnsp.Close()
End If
'llamamos al proceso limpiar
limpiar()
End Sub