suma de colmunas en datagrid (vb6)

[Say_No_More]

Hola tengo un datagrid en un form, que es un libro de contabilidad, con 3 columnas la primera es una descripcion, y las otras 2 son numericas (debe y haber).
la idea es sumar la columna debe y que ese valor se muestre en un label o textbox y lo mismo con la columna haber, para despues sacar la diferencia (saldo). estoy usando el siguiente codigo pero no da resultado, que hago al o que tengo que hacer??
gracias

codigo:


Private Sub Form_Load()
'SACAR EL SALDO DE LA CUENTA CORRIENTE (NO FUNCA TODAVIA)
SQL = "select debe,sum(debe) as db from pagos"
SQL = "select haber,sum(haber) as hbr from pagos"
resulta2 = db - hbr




lblsaldo.Caption = resulta2

If lblsaldo.Caption < "0" Then
lblsaldo.ForeColor = vbRed
Else
lblsaldo.ForeColor = vbBlue
End If

------------------------------------------------------------------------
pd: base de datos: access
conexion: dataenviorment

[luciano]

Hola, no soy experto en esto pero veo que está mal la consulta, el sum va en el comienzo de la clausula (corrijanme si me equivoco). por ejemplo:

Código:

SELECT
Sum(campo)
AS Total FROM tabla;

No lo probe, pero creo que esta bien. salu2

[Bacarra]

Las consultas SQL tienes que ponerlas asi:

SQL = "select sum(debe) as db from pagos"
SQL = "select sum(haber) as hbr from pagos"

las resta:

resulta2 = RS!db - RS!hbr
(donde rs es el nombre del recordset)


la comapracion asi:

If val(lblsaldo.Caption) < 0 Then
lblsaldo.ForeColor = vbRed
Else
lblsaldo.ForeColor = vbBlue
End If




Saludosss!!

[black_devil]

Hola haslo en el evento Active del form

Private cn As ADODB.Connection' bueno es mi conexion en mi caso con ODODB ...
Private rs As ADODB.RecordSet
Public rs1 As ADODB.RecordSet


Private Sub Form_Activate()

On Error GoTo Errores
rs.Open "SELECT SUM(debe) FROM PAGOS", cn, adOpenDynamic, adCmdText
If (rs.BOF And rs.EOF) Then
rs.Close
MsgBox "Datos del registro no encontrados.", vbCritical + vbOKOnly, "Búsqueda de datos en el registro"
Else
lblsaldo.Caption = rs.Fields(0)
If lblsaldo.Caption < "0" Then
lblsaldo.ForeColor = vbRed
Else
lblsaldo.ForeColor = vbBlue
End If

rs.Close
End If

rs1.Open "SELECT SUM(haber) FROM PAGOS", cn, adOpenDynamic, adCmdText
If (rs1.BOF And rs1.EOF) Then
rs1.Close
MsgBox "Datos del registro no encontrados.", vbCritical + vbOKOnly, "Búsqueda de datos en el registro"
Else
lblsaldo1.Caption = rs1.Fields(0)
If lblsaldo1.Caption < "0" Then
lblsaldo.ForeColor = vbRed
Else
lblsaldo1.ForeColor = vbBlue
End If
lbresultado.ForeColor = vbRed
lblresultado.Caption = Val(lblsaldo.Caption) - Val(lblsaldo1.Caption)
rs1.Close
End If
Exit Sub
Errores:

End Sub

Espero que te sirva....

[marcos1979]

En una unica consulta:

Código:

rs.Open "SELECT sum(debe) as total_debe, sum(haber) as total_haber, (sum(debe) - sum(haber)) as saldo FROM pagos"

lblDebe.Caption = IIf(IsNull(rs.Fields("total_debe").Value), 0, rs.Fields("total_debe").Value)
lblHaber.Caption = IIf(IsNull(rs.Fields("total_haber").Value), 0, rs.Fields("total_haber").Value)
lblSaldo.Caption = IIf(IsNull(rs.Fields("saldo").Value), 0, rs.Fields("saldo").Value)

Un saludo

[pedrokristian]

Iniciado por Bacarra

Las consultas SQL tienes que ponerlas asi:

SQL = "select sum(debe) as db from pagos"
SQL = "select sum(haber) as hbr from pagos"

las resta:

resulta2 = RS!db - RS!hbr
(donde rs es el nombre del recordset)


la comapracion asi:

If val(lblsaldo.Caption) < 0 Then
lblsaldo.ForeColor = vbRed
Else
lblsaldo.ForeColor = vbBlue
End If




Saludosss!!

hola mira tengo este problema yo he declarado en mi form asi

sub Suma ( )
dim sql as string

sql = "SELECT sum(PRECIO) as TOTAL from PRODUCTOS"
resultado= rs!PRECIO
text1.text = resultado

end sub
y en el text1 he declarado asi

private sub text1_change()
Suma
end sub


y sabes que es lo que pasa que al sumar se supone que debe aparecer el total de mi columna precio pero me aparece el total del primer registro. si me pueden ayudar les agradeceria mucho gracias.

[PACO_TORG]

Private Sub Form_Load()
'SACAR EL SALDO DE LA CUENTA CORRIENTE (NO FUNCA TODAVIA)
SQL = "select debe,sum(debe) as db from pagos"
SQL = "select haber,sum(haber) as hbr from pagos"
resulta2 = db - hbr

seria así:

SQL = "select sum(debe) as db from pagos"


set text1.datasource = SQL
text1.datafield = "db"

asi te muestra la suma de la columna debe.... ahora haz lo que falta..

yo hice algo similar y asi me funciono... espero te sirva

[PACO_TORG]

bueno, se me ocurrio algo despues de que mande el primero..je :)

SQL = "select sum(debe) as db, sum(haber) as hbr from pagos"


set text1.datasource = SQL
text1.datafield = "db"
set text2.datasource = SQL
text2.datafield = "hbr"

diferencia = text1 - text2
espero asi te sirva tambien.. si no.. pues disculpame...:(

[pedrokristian]

hola gente tengo este problema yo he declarado en mi form asi

sub Suma ( )
dim sql as string

sql = "SELECT sum(PRECIO) as TOTAL from PRODUCTOS"
resultado= rs!PRECIO
text1.text = resultado

end sub
y en el text1 he declarado asi

private sub text1_change()
Suma
end sub


y saben que es lo que pasa que al sumar se supone que debe aparecer el total de mi columna precio pero me aparece el total del primer registro. si me pueden ayudar les agradeceria mucho gracias necesito que me ayuden gracias.

[isdrf]

Iniciado por pedrokristian

hola mira tengo este problema yo he declarado en mi form asi

sub Suma ( )
dim sql as string

sql = "SELECT sum(PRECIO) as TOTAL from PRODUCTOS"
resultado= rs!PRECIO
text1.text = resultado

end sub
y en el text1 he declarado asi

private sub text1_change()
Suma
end sub


y sabes que es lo que pasa que al sumar se supone que debe aparecer el total de mi columna precio pero me aparece el total del primer registro. si me pueden ayudar les agradeceria mucho gracias.

pusiste mal la variable
es:

resultado= rs!total
text1.text = resultado

[STARSYS]

Hola a todos, estoy trabajando con vb6, y neesito hacer un formulario de ventas con un grid (datagrid, dbgrid o similar) donde pueda sumar por columnas, efectuar operaciones entre columnas (multiplicar y sumar) localizar datos en una columna del grid desde un campo codigo y descripcion a la vez (deseo utilizar lector de codigo de barras). si tienen algo po favor pasenlo cuanto antes. Gracias.