Descuento de una BD

[RooseveltQ]

Buenas mis colegas estoy ehstancado ya tengo casi listo un programa para la uni pero no eh podido hacer que cuando le diga veder me haga un descuento de la bd que tengo hecha en access por favor ayuda de urgencia. haci estoy haciendo mi consulta:

Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\yusleydis\tesis_yus.mdb"
Using conexion As New OleDb.OleDbConnection(connstring)
conexion.Open()
Dim CadenaSQL As String
CadenaSQL = ("UPDATE productos SET cantidad=cantidad - '" & ct.Text & " ' WHERE codigo='" & cp1.Text & "'")
Dim cmd As New OleDb.OleDbCommand(CadenaSQL, conexion)
Dim i As Integer = cmd.ExecuteNonQuery
MsgBox("Actualizacion Completa")
conexion.Close()
End Using
End Sub

donde ct.text es el textbox de cantidad y cp1.text es el codigo del producto por favor ayuda en que lo estoy haciendo mal..? :(

[Ka0stj]

La instrucción se ejecuta pero no actualiza?
No te marca ningún error en la ejecución?
cp1.Text es un Textbox también?
Checa lo que te regresan esos controles antes de ejecutar la consulta.

Saludos!

[gnzsoloyo]

Si todo está bien y no hay errores, simplemente es que no hay registros que cumplan la condición.
Asegurate de que los valores del WHERE estén bien y se cumplan.

[RooseveltQ]

Iniciado por Ka0stj

La instrucción se ejecuta pero no actualiza?
No te marca ningún error en la ejecución?
cp1.Text es un Textbox también?
Checa lo que te regresan esos controles antes de ejecutar la consulta.

Saludos!

no me da error al final lepongo un messagebox a ver que tal y me dice que todo esta bien que se actualizo necesito de su gran ayuda y si cp1.text es el codigodelproducto a descontarse y ct.text es la cantidad a descontarse..!! ayuda please

[Ka0stj]

Prueba lo que dice gnzsoloyo fijate que en realidad ese registro que vas a actualizar exista. Prueba la consulta primero.