USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Cláusula GROUP BY
Irenko
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 25/05/2004 17:33 hs            
Como eu usei o GROUP BY no 1º SELECT para o Codigo, como usar tambem no 2º SELECT para a Descrição?
Private Sub MontaBaixas()
Dim Bdbaixas As DAO.Database
Dim Tbbaixas As DAO.Recordset, TbPva As DAO.Recordset
Dim Ln3
Ln3 = 4
Plan421.Range("a4:M65000").ClearContents
Set Bdbaixas = OpenDatabase("C:EstoqueMateriais.mdb")
Set Tbbaixas = Bdbaixas.OpenRecordset("SELECT CODIGO, Sum(SAIDA) AS TOTAL FROM BAIXAS GROUP BY CODIGO", dbOpenSnapshot)
Set TbPva = Bdbaixas.OpenRecordset("SELECT Baixas.Codigo,Localizacao.Descrição FROM Baixas,Localizacao WHERE Localizacao.Código=Baixas.Codigo", dbOpenSnapshot)
Do While Not TbBaixas.EOF
Ln3 = Ln3 + 1
Plan421.Range("A" & Ln3) = Tbbaixas("Codigo")
Plan421.Range("E" & Ln3) = Tbbaixas("TOTAL")
Plan421.Range("C" & Ln3) = TbPva("Descrição")
Ln3 = Ln3 + 1
TbPva.MoveNext
Tbbaixas.MoveNext
Loop
Bdbaixas.Close
Set Bdbaixas = Nothing
End Sub
   
Felipe
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 25/05/2004 22:38 hs            
Vc quer agrupar pelo que na segunda tabela?
   
Irenko
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 26/05/2004 09:44 hs            
Era so usar o distinct. Agora ficou beleza.
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página