¿Cómo realizo una suma en una tabla con vb6?
Hola buenas tardes, no se usar vb6 muy bien, y quisiera saber como le hago si tengo una base de datos de access enlazada a una tabla de vb con cantidades y realizar la suma al final de cada columna...(como en excel que se tiene una columna y al final se calcula la suma ya sea con una fórmula..) por fis... Ayúdenme, espero y haya sido clara en la pregunta
1 Respuesta
Respuesta de Amin Cazares
1
A ver si te sirve
RecSQL. Open "select * from tabla " ' no recuerdo bien como es la consulta
While Not RecSQL.EOF
reg = RecSQL.Fields("nombre_columna_a_sumar")
suma=suma+reg
RecSQL.MoveNext
Wend
Set RecSQL = Nothing
asi ya tienes la suma y si el resultado lo quieres guardar solo haces
Set RecSQL = New ADODB.Recordset
RecSQL.Open "INSERT INTO tabla(nombre_campo) VALUES (" & Val(suma) & "
Set RecSQL = Nothing
RecSQL. Open "select * from tabla " ' no recuerdo bien como es la consulta
While Not RecSQL.EOF
reg = RecSQL.Fields("nombre_columna_a_sumar")
suma=suma+reg
RecSQL.MoveNext
Wend
Set RecSQL = Nothing
asi ya tienes la suma y si el resultado lo quieres guardar solo haces
Set RecSQL = New ADODB.Recordset
RecSQL.Open "INSERT INTO tabla(nombre_campo) VALUES (" & Val(suma) & "
Set RecSQL = Nothing
