[Resolvido]Consulta por % de registros

Preciso de uma grande ajuda.

No anexo se encontra uma listagem com Cidades e seus respectivos Estados.
Estou precisando do seguinte:

Criar uma consulta que me dê o resultado de 10% de cada cidade de acordo com a sua respectiva contagem.

Exemplo (Visualizar na tabela)

Cidade ABELARDO LUZ aparece na base 51 vezes. Preciso que a consulta me traga apenas 5 registros.
Cidade AGRONOMICA aparece na base 21 vezes. Preciso que a consulta me traga apenas 2 registros.
Cidade AGUAS DE CHAPEC aparece na base 82 vezes. Preciso que a consulta me traga apenas 8 registros.




Obrigado

opa, Veja se é isso que você precisa.

Código:

SELECT Cidades.CIDADE, Count(Cidades.CIDADE) AS ContarDeCIDADE, Round(Count([Cidades].[CIDADE])*0.1,0) AS [10%]
FROM Cidades
GROUP BY Cidades.CIDADE


De qualquer forma, anexei o exemplo da consulta pronta

Abs

[url=livebraintutoriais.blogspot.com]Live Brain Tutoriais[/url]

Boa tarde,
O cálculo de 10% sobre 51 dá 6
Crie campo Registo (Autonumeração)
SELECT Estado, Cidade, Registo FROM Cidades WHERE Registo IN (SELECT TOP 10 PERCENT Registo FROM Cidades as C WHERE C.Estado = Cidades.Estado and C.Cidade = Cidades.Cidade ORDER BY Registo DESC);

Prezado Alexandre,

Criei o campo Registro.

O comando não está retornando nenhuma informação na consulta, além disso, quando tento executar uma msgbox é aberta pedindo para inserir valor do Parâmetro Registro.

Se possivel, o sr. pode me enviar essa instrução SQL dentro do exemplo que enviei? Talvez eu esteja fazendo algo errado.


Obrigado!

LeberSa você testou o exemplo que mandei?

Só pra deixar claro...

Quando o produto resutante é menor do que 0,5 o arredondamento é feito para baixo como nos exemplos abaixo:
5,1 >>> 5
6,45 >>> 6
7,5 >>> 8
9,9 >>> 10

A função ARRED das consultas do Access ou a equivalente ROUND na linguagem SQL utiliza esse conceito.
Porém no caso do Select TOP Valor PERCENT o arredondamento é feito sempre para cima
5,1 >>> 6
6,45 >>> 4
7,5 >>> 8
9,9 >>> 10

Nenhum dos códigos está errado, porém fica a critério do nosso amigo utilizar qual deles é mais adequado para ele.


Abraços

LiveBrain,

Obrigado por seu retorno.
Eu testei, mas não é bem isso que preciso.

Como citei no exemplo, preciso que valor retornado na pesquisa traga a repetição dos nomes das cidades correspondentes a 10% de sua contagem.
No exemplo que vc mandou, é indicado na coluna 10% o resultado dos percentual desejado. O que eu preciso é que ao inves do numeros, o nome da cidade se repita.

Veja no anexo. Acho que fica mais claro.

Alexandre e Live Brain.

O que puderem me ajudar...Eu fico agradecido

Eu disse para criar o campo Registo, se criou o campo Registro, adeqúe o código SQL que indiquei

Me desculpe, mas nao estou conseguindo.

Bom dia,
Mande a bd

Alexandre bom dia!

Segue conforme solicitado.

Boa tarde,
A bd nem consulta tinha. Assim, não obtinha o que precisava
Veja

Não veio a consulta no bd que postou.

Olhei o bd errado.

Mestre o resultado está correto.

Muito obrigado pela ajuda!!!

Anexo, tenho a Consulta1 com o seguinte comando SQL que tem como objetivo fazer a contagem de Cidades por Estados e apresentar apenas 10% dos registros gerais.

SELECT Cidades.Estado, Cidades.Cidade, Cidades.Registro, Cidades.VALOR
FROM Cidades
WHERE (((Cidades.Registro) In (SELECT TOP 10 PERCENT Registro FROM Cidades as C WHERE C.Estado = Cidades.Estado and C.Cidade = Cidades.Cidade ORDER BY Registro DESC)))
ORDER BY Cidades.Cidade, Cidades.VALOR DESC;

A minha dúvida é:

Na tabela Cidades por exemplo temos a cidade ABELARDO LUZ que se repete na tabela 51 vezes, na consulta devo considerar 10%, ou seja 5,1. Arredondando deveria ser 5, mas a consulta sempre arredonda pra cima e traz 6 registros.

Existe alguma forma de arredondar o resultado dessa consulta considerando o numero após a virgula? Exemplo

Caso o resultado seja 5,1 Trago 5 registros
Caso o resultado seja 6,7 trago 7 registro


Obrigado

Boa tarde,
Por se tratar da mesma dúvida, devia ter dado continuidade. Juntei os temas

Alexandre boa tarde
Eu finalizei o tópico e achei que não poderia postar em seguida.

Preciso postar novamente a dúvida na sequencia?

Sim, pode.
A cada pressão do botão "Resolvido", o título alterna entre "Resolvido" e não "Resolvido"

Mais uma que aprendi Alexandre. Obrigado!

O sr acha que é viável resolver essa minha questão?
Já garimpei pela internet, tentei colocar a função Round mas não dá certo.

Se a quantidade de registos em cada grupo não fôr inferior a 10 nem superior a 100
SELECT Estado, Cidade, Registro FROM Cidades WHERE Registro In (SELECT TOP 10 PERCENT Registro FROM Cidades as C WHERE C.Estado = Cidades.Estado and C.Cidade = Cidades.Cidade ORDER BY Registro DESC) and Registro Not In (SELECT Max(Registro) FROM Cidades as D WHERE D.Estado = Cidades.Estado and D.Cidade = Cidades.Cidade);

Alexandre,

A quantidade de registros do grupo está entre (inferior)10 e (superior)563.

1 - Cole num módulo

Option Compare Database
Option Explicit

Function PercCidade(lngRegisto As Long, strCidade As String, strEstado As String) As Boolean
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT Registro FROM Cidades WHERE Cidade='" & strCidade & "' and Estado='" & strEstado & "' ORDER BY Registro DESC")
Rst.MoveLast: Rst.MoveFirst
Do While Not Rst.EOF
If Rst.AbsolutePosition < Int((Rst.RecordCount) / 10) Then
If Rst("Registro") = lngRegisto Then PercCidade = True
End If
Rst.MoveNext
Loop
Set Rst = Nothing
End Function

2 - SQL da consulta

SELECT Cidades.Estado, Cidades.Cidade, Cidades.Registro FROM Cidades WHERE PercCidade(Registro,Cidade,Estado);

Alexandre,

Estava testando por isso demorei um pouco.

O que ocorre é que o resultado está com arredondamento para baixo, exemplo

- Quando um conjunto tem 51 registros a consulta retorna 5 registros (Correto);
- Quando um conjunto tem 257 registros a consulta retorna 25 registros (Incorreto), nesse caso preciso que retorne 26.

Bom dia,
Existem várias formas de arredondamento:
- Desde que passe do zero, arredonda para a unidade seguinte
- Se não fôr inteiro, arredonda para o inteiro inferior
- Até 0,5 (inclusivé) arredonda para baixo
- Até 0,5 (exclusivé) arredonda para baixo

Informe qual pretende seguir

Alexandre bom dia!

Pretendo seguir a regra utilizada para arredondar decimais (Considerando uma casa após a virgula). Sei que no excel tem a função ARRED que realiza exatamente esse arredondamento - Citei isso apenas como referencia.

Abaixo, o padrao a ser seguido considerando os 10% de cada cidade

- Se o algarismo apos a virgula for menor que 5, deve se manter inalterado ao algarismo da esquerda.
12,0 = 12
12,1 = 12
12,2 = 12
12,3 = 12
12,4 = 12

- Se o algarismo apos a virgula for igual ou maior que 5, deve se acrescentar uma unidade ao algarismo da esquerda.
12,5 = 13
12,6 = 13
12,7 = 13
12,8 = 13
12,9 = 13

Muito obrigado por sua ajuda e interesse em me ajudar.

Boa tarde,
Utilize esta função
Function PercCidade(lngRegisto As Long, strCidade As String, strEstado As String) As Boolean
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT Registro FROM Cidades WHERE Cidade='" & strCidade & "' and Estado='" & strEstado & "' ORDER BY Registro DESC")
Rst.MoveLast: Rst.MoveFirst
Do While Not Rst.EOF
If Rst.AbsolutePosition < Int((Rst.RecordCount + 5) / 10) Then
If Rst("Registro") = lngRegisto Then PercCidade = True
End If
Rst.MoveNext
Loop
Set Rst = Nothing
End Function

Para ter noção da problemática dos arredondamentos
http://support.microsoft.com/kb/196652/pt

Funcionou perfeitamente!

Muito obrigado!!!