Consulta NO ME RESULTA AYUDAAAA !!!!

[Baco_]

A ver ... necesito sumar una cierta cantidad de productos ingresados para compararlos con las que he entregado, pero no he podido realizar la suma del campo cantidad les dejo el codigo a ver si me hechan una mano porfa

Private Sub CmdGuardar_Click()

Dim SumaCantidad As Integer

Conectar

rs1.Open "Select Sum(Cantidad) as SumaCantidad From Ingreso Where Producto = '" & TxtProducto & "'", Conexion, adOpenDynamic, adLockOptimistic
Text1.Text = rs1!SumaCantidad
rs1.Close

End Sub

En realidad no ha resultado nada (mi BD es en Access por si las moscas) ....
desde ante mano Grax..

[GeoAvila]

Iniciado por Baco_

A ver ... necesito sumar una cierta cantidad de productos ingresados para compararlos con las que he entregado, pero no he podido realizar la suma del campo cantidad les dejo el codigo a ver si me hechan una mano porfa

Private Sub CmdGuardar_Click()

Dim SumaCantidad As Integer

Conectar

rs1.Open "Select Sum(Cantidad) as SumaCantidad From Ingreso Where Producto = '" & TxtProducto & "'", Conexion, adOpenDynamic, adLockOptimistic
Text1.Text = rs1!SumaCantidad
rs1.Close

End Sub

En realidad no ha resultado nada (mi BD es en Access por si las moscas) ....
desde ante mano Grax..

Te aconsejaria hacer tu consulta en una vista de access y luejo llamarla desde vb

nos vemos..

[hightemplar7]

'" & TxtProducto & "'"

no deberia ser :

'" & TxtProducto.text & "'"

??? @_@

[extrem_bcn]

Iniciado por hightemplar7

'" & TxtProducto & "'"

no deberia ser :

'" & TxtProducto.text & "'"

??? @_@

es lo mismo, el valor por defecto de un TextBox es el .text

[extrem_bcn]

Iniciado por Baco_

Private Sub CmdGuardar_Click()

Dim SumaCantidad As Integer

Conectar

rs1.Open "Select Sum(Cantidad) as SumaCantidad From Ingreso Where Producto = '" & TxtProducto & "'", Conexion, adOpenDynamic, adLockOptimistic
Text1.Text = rs1!SumaCantidad
rs1.Close

End Sub

Quizá lo entendí mal pero por lo que veo tú quieres sumar todas las cantidades de cada producto y compararlo no??

pues mira prueba de hacer esto:


rs1.Open "SELECT producto, SUM(Cantidad) FROM Ingreso WHERE producto = '" & TxtProducto & "' GROUP BY producto", Conexion, adOpenDynamic, adLockOptimistic
Text1.Text = rs1("cantidad")
rs1.Close

Ahy te devolverá el sumatorio del producto que hayas elejido.

saludos

[Kruzado]

si todo eso no te resuta prueba con

RS1.MOVELAST
Text1.Text = rs1!SumaCantidad