RETORNA ZERO

COSTELINHA 11/09/2006 08:45:00
#170590
Bom Dia!!

Estou com um problema, uso banco de dados access, tenho o campo pago recebendo valores verdadeiro ou falso, e o seginte codigo esta me retornando zero

Se alguem puder ajudar

valeu
USUARIO.EXCLUIDOS 11/09/2006 08:47:23
#170591
cade o código???
COSTELINHA 11/09/2006 08:51:09
#170592
abrir_banco
sql = "select sum (total) as soma from vendas where idcliente = '" & txt_cod_cli.Text & "'"
sql = sql & "and pago = false"
rs.Open sql, cn, adOpenDynamic, adLockBatchOptimistic

foi mal, esqueci de colocar o codigo
USUARIO.EXCLUIDOS 11/09/2006 08:54:25
#170594
Cara, a função SUM() retorna o número de registros que encontrados que respeitam a condição do WHERE.
USUARIO.EXCLUIDOS 11/09/2006 09:41:02
#170604
assim:

sql = "select sum (total) as soma from vendas where idcliente = " & txt_cod_cli.Text & "" 
sql = sql & " and pago = 0" 
rs.Open sql, cn, adOpenDynamic, adLockBatchOptimistic 

MsgBox "Total: " & rs("soma"), vbInformation + vbOKOnly, "Total"


ou

sql = "select sum (total) as soma from vendas where idcliente = " & txt_cod_cli.Text & "" 
sql = sql & " and pago = False" 
rs.Open sql, cn, adOpenDynamic, adLockBatchOptimistic 

MsgBox "Total: " & rs("soma"), vbInformation + vbOKOnly, "Total"

USUARIO.EXCLUIDOS 11/09/2006 15:11:00
#170674
Tente assim veja se funcina.

Vc tem ceteza que existe pagamentos com o código do cliente que esta informado e false na segunda condição?

sql = "select sum (total) as soma from vendas where idcliente = " & val(txt_cod_cli.Text) & ""
sql = sql & " and pago = 0"
rs.Open sql, cn, adOpenDynamic, adLockBatchOptimistic

Tópico encerrado , respostas não são mais permitidas
Voltar