COMO SOMAR VALORES DA TABELA

USUARIO.EXCLUIDOS 20/11/2006 21:01:50
#185460
Amigos,

Tenho uma TblFrequencia, com o campo Entrada, que só contém números "1", como faço para contar esses números "1" do cliente código tal, e mostrar no label.

um abraço!
Menudo(de volta)
USUARIO.EXCLUIDOS 20/11/2006 21:43:28
#185462
Select sum(Entrada) as Total from TblFrequencia where Codigo = '" & aqui_codigo_do_cliente & "'"

label.caption = objeto_recordeset!Total
USUARIO.EXCLUIDOS 23/11/2006 20:50:28
#186005
Amigo Josimar,

Quando eu coloco este seu exemplo e dou enter fica vermelha a linha e o erro é SELECT CASE. Não entendi, pois acho que está certo o exemplo.
Será que eu tenho que fazer mais alguma coisa antes.

Um abraço!
ESLEYSANCHES 23/11/2006 20:55:29
#186006
Amigo se tah usando o DATA ?
se tiver faça assim:

Data1.Recorsource = "SELECT SUM(seu_campo_aqui) AS SOMA FROM sua_tabela"
Data1.refresh

label1.caption = data1.recordset("SOMA")

Veja se funciona amigão !!

Abraços !!
USUARIO.EXCLUIDOS 23/11/2006 21:35:29
#186010
ou melhor:
"SELECT Count(seu_campo_aqui) AS SOMA FROM sua_tabela"
USUARIO.EXCLUIDOS 23/11/2006 22:45:52
#186012
Poste o seus códigos....
ESLEYSANCHES 23/11/2006 22:55:17
#186014
Amigo para te ajudar e você não ter problemas em anexo está um exemplo prático de soma, de uma olhadinha !!

Abraços !!
CHIARADIA 24/11/2006 19:06:18
#186200
Faça da seguinte maneira....

   
dim vlConsulta as string
dim vlRegistro as recordset

set vlregistro=new recordset
vlregistro.cursorlocation=aduseclient
vlconsulta="SELECT SUM(CAMPO) AS QTD FROM TABELA WHERE ID_CLIENTE=" & Id_Cliente
vlregistro.open, vlconsulta, variavel_conexao_banco

msgbox "Qtd: " & vlregistro("QTD")
USUARIO.EXCLUIDOS 25/11/2006 09:42:48
#186212
Colega, se vc criou este campo apenas para poder fazer a contagem (1+1+1...), então nem precisa dele, pode deletar, pq além do SUM, tem o COUNT que pega o número de registros, daí ficaria +/- assim:

SeuRecordSet.Open "SELECT COUNT(*) As Total FROM tblFrequencia WHERE codCliente = " & txtCodCliente
SeuLabel.Caption = SeuRecordSet("Total")


Se não conseguir, mostre a forma como vc costuma pegar dados do banco que aí fica mais fácil ajudar...flw
USUARIO.EXCLUIDOS 25/11/2006 14:20:46
#186237
Amigo Matiloi,

Fiz extamente o que vc postou:

RsFrequencia.OpenRecordset "SELECT COUNT(*) As Total FROM tblFrequencia WHERE codigo = " & TxtCodeBarra
LblFrequencia.Caption = RsFrequencia("Total")

Porém dá um erro:
Run-time error '3421'
Data type conversion error.

Já tentei todos os exemplos mais.....

um abraço a todos!
LCSD 25/11/2006 14:51:07
#186242
tenta o seguinte...

se for contar qtas vezes o "1" aparece para cada cliente
RsFrequencia.Open "SELECT * FROM tblFrequencia WHERE codigoCliente = " & TxtCodeBarra
seu_label.caption = rsFrequencia.recordCount
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar