SOMAR VALORES NO BANCO DE DADOS

USUARIO.EXCLUIDOS 08/09/2007 23:49:32
#234793
Pessoal estou utilizando a sql abaixo para somar valores de uma tabela conforme o critério da sql, no entanto, sempre aparece o mesmo valor no label. Até soma corretamente porém mesmo com os itens excluidos (lidos anteriormente) continua aparecendo o mesmo valor o que será que está faltando

Sintaxe:

CONSULTASQL = "SELECT * " & _
"FROM Tabgastos " & _
" where codigo like'" & CRITERIO & "%'"
Set TBSQL = CON.Execute(CONSULTASQL)
Do Until TBSQL.EOF
frmgastos.lstgastos.AddItem TBSQL("descricao") & " " & Format(TBSQL("gastos"), "R$0.00") & " " & TBSQL("data")
valor = (valor + TBSQL!gastos)
TBSQL.MoveNext
Loop

frmprocessos.lblvalor.Caption = Format(valor, "Currency")
frmprocessos.Show
ICEMAN 09/09/2007 00:11:33
#234794 Resposta escolhida
ta faltando limpar a list antes de preenchela

CONSULTASQL = "SELECT * " & _
"FROM Tabgastos " & _
" where codigo like'" & CRITERIO & "%'"
Set TBSQL = CON.Execute(CONSULTASQL)

lstgastos.clear
Do Until TBSQL.EOF
frmgastos.lstgastos.AddItem TBSQL("descricao") & " " & Format(TBSQL("gastos"), "R$0.00") & " " & TBSQL("data")
valor = (valor + TBSQL!gastos)
TBSQL.MoveNext
Loop

frmprocessos.lblvalor.Caption = Format(valor, "Currency")
frmprocessos.Show

e nunca se esqueça de que para cada vez que vc for preencher a lista vc devera fechar e abrir o recordset e dar um .clear no listview
Tópico encerrado , respostas não são mais permitidas
Voltar