Mini Control de Stock vb2008 - restas y sumas

[flashtkd]

Este mini control de stock esta enlazado directamente con la base de datos access, cuenta con dos campos "Id" y "cantidad", no usare por el momento el campo "Id" solo utilizare el campo "cantidad".

Como se puede apreciar en la figura, en el primer textbox muestra la cantidad total, que no tiene limite de compra, quiere decir que se incremente el numero sin limite, se incrementa ingresando un numero donde dice "Comprar", lo que deveria de sumar el valor agregado + el de la base de datos, y hacer lo mismo cuando se necesite vender algo, se restara, pero tiene un limite que es "10", debera desplegar un mensaje que no se puede vender nada más, es decir inabilitar ese textbox de vender..

Tengo un problema en las restas y sumas



Formulas

Sección vender
cantidad = txtvender - base de datos

si cantidad =>10 base de datos entonces
mensaje ("no se puede vender más")
fin si

Sección comprar
cantidad = txtcomprar + base datos

base datos - descargar
http://www.mediafire.com/?jfmgi9tm0n1

El código fuente vb-2008
http://www.mediafire.com/?yfzljnbhqwe

Logre hacer cargar la cantidad total, con el siguiente código.

Código del boton comprar, me modifica todo ok, como le implemento la resta.

Dim coneccion As OleDbConnection
Dim orden As OleDbCommand

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Stock\Stock\bin\Debug\mibase.mdb")

Dim q As String = "update mitabla set cantidad = @cantidad where Id = 1"

orden = New OleDbCommand(q, coneccion)

orden.Parameters.Add(New OleDbParameter("@cantidad", OleDbType.Integer, 20))

orden.Parameters("@cantidad").Value = txtvender.Text

orden.Connection.Open()

orden.ExecuteNonQuery()

orden.Connection.Close()

MsgBox("Registro modificado")

txttotal.Refresh()

Como puedo convertir este codigo de VB6.0 a .Net

Dim Resta As Long
Resta = rst!cantidad - txtvender
If Resta <= txtstock Then
MsgBox "Inferior al Stock"
Else
' actualiza el campo de la tabla
rst!cantidad = Resta
rst.Update
' actualiza el TextBox
txtcantidad.Refresh
End If

Me da error

Dim Resta As Long

Resta = orden.Parameters!txttotal - txtvender

If Resta <= txtvender Then
MsgBox("Inferior al Stock")
Else
' actualiza el campo de la tabla
orden.Parameters!!cantidad = Resta
orden.Parameters!.Update()
' actualiza el TextBox
txttotal.Refresh()
End If

[javiercapi]

Muy currado tu post

copia y pega en tu codigo y mira a ver si es esto lo que quieres, es lo que me parecio entender

Código:

    Dim cn As OleDbConnection
    Dim cmd As OleDbCommand
    Dim lector As OleDbDataReader
    Dim ruta As String = "C:\foro\mibase.mdb"


    Private Sub Stock_Actual()

        cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ruta & "")
        cmd = New OleDbCommand("select cantidad from mitabla", cn)

        cn.Open()
        lector = cmd.ExecuteReader
        lector.Read()

        If lector.HasRows Then
            txttotal.Text = lector.Item(0)
        End If

        lector.Close()
        cn.Close()

    End Sub

    Private Sub btnvender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvender.Click

        If txttotal.Text >= 10 Then

            cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ruta & "")
            cmd = New OleDbCommand("UPDATE mitabla SET mitabla.cantidad = " & txttotal.Text & "-" & txtvender.Text & "", cn)

            cn.Open()
            cmd.ExecuteNonQuery()
            MsgBox("Venta ok")
            cn.Close()

            Stock_Actual()

        Else
            MsgBox("no se puede vender más")
        End If
        

    End Sub

    Private Sub btncomprar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncomprar.Click

        cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ruta & "")
        cmd = New OleDbCommand("UPDATE mitabla SET mitabla.cantidad = " & txttotal.Text & "+" & txtcomprar.Text & "", cn)

        cn.Open()
        cmd.ExecuteNonQuery()
        MsgBox("Compra ok")
        cn.Close()

        Stock_Actual()


    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Stock_Actual()

    End Sub

[flashtkd]

muchas gracias ya lo e conseguido.

como puedo bloquear el ingreso a los textbox, solo ingreso de numero.