Como hacer suma de campos en VB.-

[(RTT)Blackhawk]

HOla , tengo una base de datos con llave CODIGO , que se aumenta sola... y tiene un campo llamado VALOR y otro LLAMADO VALOR2.

Como lo hago para que me muestre la suma de todos los campos VALOR . y la suma de todos los campos VALOR2 ???


gracias.-

[Sir Matrix]

si quieres sumar todos los registros del campo 1 lo puedes hacer en sql:

Select sum(campo1) from tabla

y del campo 2

Select sum(campo2) from tabla

....saludos :P

[Mickel]

o mas rapido aun

SELECT SUM(CAMPO1),SUM(CAMPO2) FROM TABLA

[(RTT)Blackhawk]

No me Funciona...

les pego el code..

Option Explicit
' declaramos una variable de alcance publico de tipo DataBase
Dim Base As Database
' declaramos una variable de alcance publico de tipo Recordset
Dim Tabla As Recordset

Private Sub Form_Load()
On Error GoTo Error:
' varible de tipo set que guarda la direccion de la base de datos
Set Base = OpenDatabase(App.Path & "\\Base1.mdb")
'varible de tipo set que abre la tabla en modo lectura - escritura
Set Tabla = Base.OpenRecordset("economia", dbOpenTable)
Label4 = SELECT SUM(ValorI)FROM Tabla
Label5 = 50
Label6 = Label5 - Label4
Exit Sub
Error:
MsgBox "Error : " & Err.Description
Resume Next
End Sub

COMO LO HAGO PARA QUE EN EL LABEL4 MUESTRE LA SUMA DE TODOS LOS CAMPOS !VALORI ???

GRACIAS:...

[Sir Matrix]

Hola... pruébalo con estas modificaciones:

Option Explicit
' declaramos una variable de alcance publico de tipo DataBase
Dim Base As Database
' declaramos una variable de alcance publico de tipo Recordset
Dim Tabla As Recordset

Private Sub Form_Load()
On Error GoTo Error:
' varible de tipo set que guarda la direccion de la base de datos
Set Base = OpenDatabase(App.Path & "\\Base1.mdb")
'varible de tipo set que abre la tabla en modo lectura - escritura

sql= "SELECT SUM(ValorI) as Valor1 FROM Tabla"
Set Tabla = Base.OpenRecordset(sql)
Label4 = Val(TABLA!Valor1)
Label5 = 50
Label6 = Label5 - Label4
Exit Sub
Error:
MsgBox "Error : " & Err.Description
Resume Next
End Sub


------------------

No lo he probado pero por ahí debería andar... en lugar del nombre de la tabla, debías poner la consulta SQl,...

Saludos :)

[(RTT)Blackhawk]

Me dice que deefina SQL... como lo defino ?? como que cosa ???

grax maestro por las ayudas...

PD: tienes msn ?

[Sir Matrix]

ahh, es que falta declarar el sql:

coloca antes:

dim sql as string :P

saludos ;)

[(RTT)Blackhawk]

cannot find the input table or query ´Tabla´......

Me sale ese error...



ASi me quedo...

Option Explicit
' declaramos una variable de alcance publico de tipo DataBase
Dim Base As Database
' declaramos una variable de alcance publico de tipo Recordset
Dim Tabla As Recordset
Private Sub Form_Load()
On Error GoTo Error:
' varible de tipo set que guarda la direccion de la base de datos
Set Base = OpenDatabase(App.Path & "\\Base1.mdb")
'varible de tipo set que abre la tabla en modo lectura - escritura
Dim sql As String

sql = "SELECT SUM(ValorI) as Valor1 FROM Tabla"
Set Tabla = Base.OpenRecordset(sql)
Label4 = Val(Tabla!Valor1)
Label5 = 50
Label6 = Label5 - Label4
Exit Sub
Error:
MsgBox "Error : " & Err.Description
Resume Next
End Sub


grax again

[Sir Matrix]

ahh.. es que debes cambiar esta linea:

sql = "SELECT SUM(ValorI) as Valor1 FROM Tabla"

con el nombre de tu tabla... en lugar de "Tabla"

>!!!!


salu2

[(RTT)Blackhawk]

Ahora si funciona... Muchisimas Gracias...

Otra Preguntita....

Yo ingreso los datos como 12.000 y en la base de datos estan los campos como LONG , yo al final uso dos valores , IngresosTotales y GastosTotales , y el problema esta en que el de gastos totales es la suma del campo GastosTOTALES. que viene de la suma de todos los gastos chicos pero este campo me sale sin decimales.. osea 6 o 5 o 5,3 se entiende ??? y los ingresos como 12000 tonce no funka ... que puede ser ??

Para obtener el campo GastosTOtales coloque !GastosTotales = Val (text2.text + text3.text +etc )

Estoy mal ???

Los ingresos los muestra bien pq no suma nada para obtener ese campo...


GRacias maestrro...

[rdorlando]

El problema puede estar dado porque long es para enteros largos , y los decimales se redondean , declaralo con otro tipo de dato.

[Eternal Idol]

En si es la misma pregunta:

http://www.forosdelweb.com/s/msg203738.html

ValorGTO = Int(Text2.Text) + Int(Text3.Text) + Int(Text4.Text) + Int(Text5.Text) + Int(Text6.Text)