Problemas cn la sentencia UPDATE

[DavidNovato]

Buenas tardes Gente..

Bueno hoy tengo algunos problemitas con la sentencia UPDATE.. pasa lo sigueente:

En un Form tengo 2 combobox "Proveedor" y "Producto".. estos estan relacionados, al elegir un proveedor m muestra unicamente los productos de dicho proveedor... (hasta ahi todo bn).. Tabien hay en el Form 2 textbox.. 1 txtbox deberia mostrarme la cantidad d productos disponibles (digo "deberia" porque aun no he logrado hacer que haga dicha funcion ) .. y el otro txtbox es para llenar..osea.. para agregar o quitar productos(NUMERICAMENTE), utilizando los botones "agregar"y"quitar" que estan en el form..

El problema es que no logro que solo le agregue o le quite una cantidad "x" al producto que yo seleccione del combobox (UNICAMENTE A ESE PRODUCTO)

Aquie les dejo el codigo que tngo(el cual no m funciona) :

Código vb:

Private Sub cmdquitar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdquitar.Click
        Using con As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012")
            con.Open()
 
 
            Dim queryproducto As String = "UPDATE producto SET cantidad_disponible=- @cantidad WHERE ID_producto="+cboproducto2.SelectedValue
            Using cmd As New MySqlCommand(queryproducto, con)
                cmd.Parameters.AddWithValue("@cantidad", TextBox3.Text)
                cmd.ExecuteScalar()
            End Using
        End Using
    End Sub
 

Si ven que estoy loco o algo.. entiendanme hago lo que puedo con lo que aprendo en el dia a dia.. Inicie esto hace un par d semanas ... Gracias de antemano, Saludos

PD: trabajo cn windowsforms y BD MYsql

[TheoriaX]

quizas algo asi

Código:

Private Sub cmdquitar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdquitar.Click
        Using con As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012")
            con.Open()
 
            Dim cantidadProd  As String = Me.textboxDisponible.Text
            Dim cantidad As String = Me.textboxQuitarCantidad.Text
            Dim queryproducto As String = "UPDATE producto SET cantidad_disponible='" + cantidadProd - cantidad + "' WHERE ID_producto="+cboproducto2.SelectedValue //Checate bien si esa propiedad te da el ID del Producto
            Using cmd As New MySqlCommand(queryproducto, con)
                cmd.Parameters.AddWithValue("@cantidad", TextBox3.Text)
                cmd.ExecuteScalar()
            End Using
        End Using
    End Sub

[TheoriaX]

y creo que en la parte de cmd.ExecuteScalar esta mal, lo que hace esa funcion es traerte un unico valor, tendria que ser cmd.ExecuteQuery... algo asi para que ejecute el UPDATE de forma correcta ya que no devuelve ningun valor

[DavidNovato]

Hice los cambios que m recomendaste.. pero aun sale el mismo error .. "La conversión de la cadena "UPDATE producto SET cantidad_dis" en el tipo 'Double' no es válida."

[Ka0stj]

Ya cambiaste la sentencia cmd.ExecuteScalar por cmd.ExecuteNonQuery()?

Por otro lado:

Dim queryproducto As String = "UPDATE producto SET cantidad_disponible='" & Convert.ToDouble(cantidadProd) - Convert.ToDouble(cantidad) &
"' WHERE ID_producto=" & cboproducto2.SelectedValue

Asegurate también que en las propiedades de DisplayMember y ValueMember de tu ComboBox cboproducto2 las tengas correctas, de tal forma que no tengas problemas con esta sentencia que agregas al UPDATE cboproducto2.SelectedValue

[DavidNovato]

Bueno hice lo que me dijiste Ka0stj! No me da error.. pero al parecer no hace nada.. XD.. no hace e cambio en la BD..

[Ka0stj]

Que se supone que haces con esta linea?

cmd.Parameters.AddWithValue("@cantidad", TextBox3.Text)

[DavidNovato]

Bueno en ese texbox es dond coloco el numero que le voy a quitar a la cantidad disponible... y si lo hace.. al principio lo hic sin condicion para probar.. y x ejemplo: ponia 5, y le quitaba 5 unidades a todos los productos.. pero ahora que quiero especificar a que producto es que le va a restar unidades es que no se como hacer

[Ka0stj]

Podrias colocar el codigo de la parte donde le agregas las propiedades de origen de datos a tu combobox?

cboproducto2.DataSource = ""
cboproducto2.DisplayMember
cboproducto2.ValueMember

Lo más seguro es que no haga nada porque en el filtro WHERE IdProducto = cboproducto2.SelectedValue le estes pasando un Id que no existe.

[DavidNovato]

Código vb:

Try
            Dim ds As New DataTable
            ds = producto_carga(cboproveedor2.SelectedValue.ToString())
            cboproducto2.DataSource = ds
            cboproducto2.DisplayMember = "nombre_modelo"
            cboproducto2.ValueMember = "ID_producto"
            cboproducto2.SelectedIndex = -1
 
        Catch ex As Exception
            Return
        End Try
 

Asi lo tngo... ahi loque hace es q cuando se selecciona primero un proveedor .. en el combobox producto solo aparecen los productos de ese proveedor.. y luego ahi decidir si agregarle o quitarle unidades

[Ka0stj]

Correcto, ahora bien, en que evento se dispara el UPDATE? y después de hacer que cosa se ejecuta el UPDATE?

Te lo comento porque me imagino que se dispara al seleccionar un producto, o bien, seleccionas un producto y después presionas algún botón. En conclusión, antes de ejecutar el UPDATE seleccionas un producto? ya que al inicio lo mandas al index -1.

[DavidNovato]

Exacto elijo el producto, pongo la cantidad de unidades que quiero quitar y luego presiono un boton.... el index lo puse en -1 para que al seleccionar el proveedor no se autollenara el combobox "producto" con el primer producto d la lista... si no que apareciera el campo en blanco y el usuario despliegue la lista y seleccione el que desee...

[Ka0stj]

Pon un BreakPoint en esta linea:

Dim queryproducto As String = "UPDATE producto SET cantidad_disponible='" & Convert.ToDouble(cantidadProd) - Convert.ToDouble(cantidad) &
"' WHERE ID_producto=" & cboproducto2.SelectedValue


Fijate si te esta regresando un valor esto cboproducto2.SelectedValue