16/12/2007, 09:26
|
| | | Fecha de Ingreso: julio-2005 Ubicación: Salamanca
Mensajes: 54
Antigüedad: 19 años, 9 meses Puntos: 0 | |
| Consulta NO ME RESULTA AYUDAAAA !!!!
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.. |