CLAUSULA GROUP BY SQL

USUARIO.EXCLUIDOS 25/05/2004 15:30:59
#26611
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:\Estoque\Materiais.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
LCSD 25/05/2004 16:54:39
#26628 Resposta escolhida
Se eu não me engano, ficaria assim:

("SELECT Baixas.Codigo,Localizacao.Descrição FROM Baixas,Localizacao WHERE Localizacao.Código=Baixas.Codigo GROUP BY Descrição"


Tente assim, não se se funciona, pois não tenho como testar no momento....

Caso não consiga, post novamente para tentar ajudá-lo novamente.
Tópico encerrado , respostas não são mais permitidas
Voltar