SOMAR VALORES DA COLUNA ACCESS E JOGAR NA LISTVIEW

 Tópico anterior Próximo tópico Novo tópico

SOMAR VALORES DA COLUNA ACCESS E JOGAR NA LISTVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#491797 - 11/12/2019 17:15:26

RICARDOPIBU
CABO FRIO
Cadast. em:Março/2018


 Anexos estao visíveis somente para usuários registrados

Ol! Preciso muito de uma ajuda,
tenho uma aplicao e necessito pegar os valores que esto num campo da minha tabela, feita no access, e colocar esses valores na listview... estou enviando duas fotos para exemplificar o que estou pedindo... desde obrigado!

Cursos de Excel e VB6:
cursoexcelvba.com.br


#491798 - 11/12/2019 17:17:09

RICARDOPIBU
CABO FRIO
Cadast. em:Março/2018


 Anexos estao visíveis somente para usuários registrados

Segunda imagem

Cursos de Excel e VB6:
cursoexcelvba.com.br


#491799 - 11/12/2019 17:44:35

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
SELECT Nome, SUM(ValorRecebido1) FROM TBcursos_financeiro inner join TABELA_CONTENDO_NOME_ALUNO as aluno on tbcursos_financeiro.codaluno = aluno.codigo
Group By TBcursos_financeiro.codaluno


Mais ou menos isso

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#491803 - 11/12/2019 18:38:16

RICARDOPIBU
CABO FRIO
Cadast. em:Março/2018


Citação:
:
SELECT Nome, SUM(ValorRecebido1) FROM TBcursos_financeiro inner join TABELA_CONTENDO_NOME_ALUNO as aluno on tbcursos_financeiro.codaluno = aluno.codigo
Group By TBcursos_financeiro.codaluno


Mais ou menos isso



Desculpe, mas no estou conseguindo aplicar esse seu comando... vou lhe mostrar o comando que j fiz e deu certo, contudo ele s no me d as somatrias de valores de cada aluno em seus respectivos lugares na listview... mas se olhar na segunda imagem q enviei, vers q ele puxa somente um valor, mas eu preciso de todos os valores q o aluno pagou durante o ano letivo.

crie esse []Private sub[] e chamo ele pleo Form_Load
_________________________________________________________________________
Private Sub BuscaAluno()
connectDB
   rs.Open []SELECT C.*, A.NomeParticipante FROM TBCursos_Financeiro AS C [] & _
           []INNER JOIN TBCursos AS A [] & _
           []ON C.CodAluno = A.Codigo [] & _
           []ORDER BY A.NomeParticipante[], db, 2, 4

   Do Until rs.EOF
   Set item = lstPagamentoAluno.ListItems.Add(, , rs!Codigo)
    item.SubItems(3) = rs!NomeParticipante & [] - [] & rs!CodAluno
    item.SubItems(1) = rs!Codigo
    item.SubItems(4) = [][] & []R$ [] & VBA.Format(rs!ValorRecebido1, []#,##0.00[])
rs.MoveNext
Loop
FechaDB

End Sub
_____________________________________________________________________________________________

Cursos de Excel e VB6:
cursoexcelvba.com.br


#491805 - 11/12/2019 19:51:10

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Use o Group by para cdigo do Aluno.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por RICARDOPIBU em 08/01/2020 19:18:29