Como como fazer somatório


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Como como fazer somatório

SRick

LAVRAS
MG - BRASIL

ENUNCIADA !

Postada em 16/01/2008 09:39 hs

Amigos bom dia.

Tenho uma tabela e nesta tabela existe dois campos, sendo que um campo o preenchimento é "SIM" e o outro campo o preenchimento é "NÃO". Bom, gostaria de criar um formulário onde eu conseguiria mostrar o total de "SIM" e o total de "NÃO"

EX:

CAMPO1 (QUE CONTEM SIM) = 78

CAMPO2 (QUE CONTEM NÃO) = 21

Eu acredito que a solução seja simples, mas não consegui resolver.

Obrigado a todos.

SRick

Perci

MATÃO
SP - BRASIL

ENUNCIADA !

Postada em 16/01/2008 09:53 hs

Eu faço assim:

    totalsim = 0
    totalnao = 0
    sqldados= "Select * From MeusDados Where codchave = " & TxtCodChave.Text

    Set rsdados = db.OpenRecordset(sqldados)
    Do While Not rsdados.EOF
        totalsim = totalsim + 1

      totalnao = totalnao + 1
        rsdados.MoveNext
    Loop
    LblTotalSim.Caption = "Total de SIM: " & Format(totalsim, "0000")

LblTotalNao.Caption = "Total de NÂO: " & Format(totalnao, "0000")

Sempre fiz assim e deu certo.
Espero ter ajudado

Nunca diga a Deus que você tem um grande problema,
Diga ao problema que você tem um GRANDE DEUS.

SRick

LAVRAS
MG - BRASIL

ENUNCIADA !

Postada em 16/01/2008 10:08 hs

Obrigado amigo.

SRick.

SSbarbosa
não registrado

Postada em 17/01/2008 10:30 hs

Eu faço assim: ( Perci  Matão SP)

so faltou um detalhe:

    totalsim = 0
    totalnao = 0
    sqldados= "Select * From MeusDados Where codchave = " & TxtCodChave.Text
    Set rsdados = db.OpenRecordset(sqldados)
    Do While Not rsdados.EOF
        if Campo.do.Banco.Dados = "SIM" then
             totalsim = totalsim + 1
        else
             totalnao = totalnao + 1
       end if
        rsdados.MoveNext
    Loop
    LblTotalSim.Caption = "Total de SIM: " & Format(totalsim, "0000")
    LblTotalNao.Caption = "Total de NÂO: " & Format(totalnao, "0000")

Sempre fiz assim e deu certo.
Espero ter ajudado

---------------------------------------------------
Não diga a Deus que você tem um grande problema.
Diga ao problema que você tem um grande Deus.
---------------------------------------------------

Perci

MATÃO
SP - BRASIL

Postada em 17/01/2008 14:54 hs

É verdade, amigo SSBarbosa, obrigado pela ajuda. Eu me esqueci deste detalhe. Espero que o amigo SRick tenha conseguido.

Até mais.

Cardoso G

PATOS DE MINAS
MG - BRASIL

Postada em 17/01/2008 15:48 hs

voce pode fazer assim tambem

sqlDados1 = "Select count(campoNao) totalN From MeusDados Where campo = 'NAO'"

sqlDados2 = "Select count(campoSim) totalS From MeusDados Where campo = 'SIM'"

Set rsdados = db.OpenRecordset(sqldados1)

if not rsdados.eof then

LblTotalNao.Caption = "Total de NAO: " & Format(rsdados!totalN, "0000")

endif

set rsdados = nothing

Set rsdados = db.OpenRecordset(sqldados2)

if not rsdados.eof then

LblTotalSim.Caption = "Total de SIM: " & Format(rsdados!totalS, "0000")

endif

set rsdados=nothing

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR