Este fórum está sendo desativado

[osmarls]

Bom dia a todos, estou tendo um problema com a consulta , quando os dados sao copiados para a listview apos a consulta quando um determinado registro passa de 10 ele não fica na ordem da listview,como abaixo
como fica - deveria ser assim
7 - 12
5 - 11
4 - 7
4 - 5
12 - 4
11 - 4


Sub ranking()

Set rs1 = BD.OpenRecordset("select count(EQUIPAMENTO),EQUIPAMENTO from os GROUP BY EQUIPAMENTO")

Dim Y
ListView5.ListItems.Clear

While Not rs1.EOF
Set Y = ListView5.ListItems.Add(, , rs1(0).Value)

Y.SubItems(1) = rs1("EQUIPAMENTO").Value
rs1.MoveNext
Wend
End Sub

dese ja agrade ço a todos

[babdallas]

Veja se atende

Código: Selecionar todos

Sub ranking()

Set rs1 = BD.OpenRecordset("select count(EQUIPAMENTO),EQUIPAMENTO FROM os ORDER BY EQUIPAMENTO DESC GROUP BY EQUIPAMENTO")

Dim Y
ListView5.ListItems.Clear

While Not rs1.EOF
Set Y = ListView5.ListItems.Add(, , rs1(0).Value)

Y.SubItems(1) = rs1("EQUIPAMENTO").Value
rs1.MoveNext
Wend
End Sub

[osmarls]

Ola amigo muito obrigado pela sua resposta, mas infelizmente não deu certo aparace a seguinte mensagem de erro:
Erro em tempo de execução 3138
Erro de sintaxe na clausula ORDER BY

[babdallas]

Tente assim:

Código: Selecionar todos

Sub ranking()

Set rs1 = BD.OpenRecordset("select count(EQUIPAMENTO),EQUIPAMENTO FROM os GROUP BY EQUIPAMENTO ORDER BY EQUIPAMENTO DESC")

Dim Y
ListView5.ListItems.Clear

While Not rs1.EOF
Set Y = ListView5.ListItems.Add(, , rs1(0).Value)

Y.SubItems(1) = rs1("EQUIPAMENTO").Value
rs1.MoveNext
Wend
End Sub

[osmarls]

Ola amigo, ele achou os registros, mas ainda não esta conseguindo colocar em ordem , pena que não estou conseguindo mandar o print pra vc ver, mas valeu pela ajuda.

[babdallas]

Assista estes vídeos e veja se ajuda. Caso não consiga, anexe um exemplo do BD e da pasta de trabalho aqui para eu verificar o que pode estar acontecendo.

Evandro Franco
https://www.youtube.com/watch?v=YU6J8UJ0Q_g

Canal SGP
https://www.youtube.com/watch?v=WtXg5b41GuA

Renam Ruthes
https://www.youtube.com/watch?v=w_kk-3DmN88
https://www.youtube.com/watch?v=fDU2hIKgTek

[osmarls]

Ola , muito obrigado pelos links, me ajudaram bastante, mas mesmo assim não deu certo, estou anexando o arquivo do excel, pena que não consegui enviar o arquivo do acces.

[osmarls]

Bom dia babdallas e amigos do forum, muito obrigado pela ajuda , consegui fazer de uma outra maneira. Otimo domingo .