[Resolvidos]Consulta sql para mostrar-filtro-filtrar alterações nos registros

Boa Tarde a todos.

Em primeiro lugar quero dizer que a minha últim questão (limitação de acesso à BD) ficou resolvida com a prestável colaboração do Criquio. Bem Haja.

Agora tenho um outro problema a resolver para o qual peço a vossa ajuda. Tenho uma Tabela "DetalheAluno" que regista as actividades em que o Aluno se inscreve no início do ano lectivo. Com base nessa tabela criei uma consulta que serve de base a um Relatório que informa as diversas actividades existentes e os alunos nela inscritos. Mas acontece que ao longo do ano lectivo o aluno pode desistir de uma delas, aderir a outras, etc.

Todos os mese é necessário enviar um mapa para a contabilidade (o tal relatório) que mantenha as informações dos alunos que não fizeram alterações mas substituindo o registo com uma data anterior do aluno em que se verificou alteração pelo que tem a data posterior e consequentemente poder ver-se a alteração às actividades. Não pode apresentar os registos anteriores.

Não consigo especificar o critério na consulta... Ou me aparecem todos os registos do mesmo aluno ou a consulta fica reduzida só aos alunos que tiveram alterações e os outros não aparecem. Como fazer?

Ola Vasco bom dia;

Coloque parte do seu banco com as tabelas e a consulta que pretende, aqui: http://www.speedyshare.com/

Fica mais facil de resolver.

Boa Tarde J Paulo,

Apenas agora cheguei a casa e vou ter que sair de seguida. Amanhã farei o que me pede para ver se me dá uma ajuda no assunto.

Bem Haja pela atenção e um abraço.

Bom dia J Paulo,

Peço desculpa mas durante o fim de semana tive que me ausentar. Coloquei a BD neste aqui: http://www.speedyshare.com/files/23525977/GESCOLA_Testes.rar.
Quando abrir vá ao FormAluno e clicando em Detalhes de Aluno abre o outro Form onde eu queria registar as alterações ao longo dos meses, colocando uma data claro está nos novos registos. Depois queria que a consulta me devolvesse os últimos registos por aluno de modo a que as alterações substituíssem as escolhas iniciais (mais antigas). Se um aluno tivesse por exemplo 4 registos só queria o 4º registo desse aluno, embora se um outro aluno só tivesse o registo inicial fosse esse que aparecesse. Não sei se me fiz entender mas alguma dúvida faça o favor de colocar.

Abraço.

J Paulo,

Uma rectificação - para download o link é: http://www.speedyshare.com/files/23526462/GESCOLA_Testes.rar

Abraço.

Veja se é isto que pretende;

http://dl.dropbox.com/u/771097/GESCOLA_Testes_OLD.rar

Caro J Paulo,

Bem haja pelo seu tempo que me disponibilizou. Não é contudo esta a consulta que pretendo pois ela retorna os últimos registos mas só relativamente aos alunos que tiveram alterações. Se verificar a minha consulta Consulta Base AEC de Alunos para Listagem de Alterações dá um resultado idêntico ao seu embora eu não tenha utilizado todos os campos da Tabela. E a minha consulta Consulta Base AEC de Alunos para Listagem dá todos os registos do Aluno que também não é o que pretendo. O que eu pretendia - e utilizando a mesma tabela do exemplo que coloquei - era que me devolvesse:
Para o Nº Aluno 1 o registo relativo à data de 26-07-2010; para o Nº 2 o registo relativo à data de 01-07-2010; para o Nº 3 o registo relativo à data 26-07-2010 e para o Aluno Nº 4 o registo relativo à data 26-07-2010. Isto porque são estes os registos em vigor no novo "Mês"(claro que 26-07-2010 não é outro mês, mas façamos de conta que é!). Para me fazer entender melhor, tomei a liberdade de por um ficheiro excel com os registos que queria ver retornados, neste link: http://www.speedyshare.com/files/23539302/Consulta_Base_para_enviar_a_Contabilidade_em_DetalheAluno.xlsx

Mais uma vez bem haja e peço portanto mais um pouco do seu/vosso tempo para esta dúvida.

Nota: Nesse Excel estão a vermelho os registos que não devem aparecer e devem ser substituídos porque há registos do mesmo aluno com data posterior. A verde estão os que queria ver retornados na consulta.

Abra a Consulta Base AEC de Alunos para Listagem de Alterações em modo SQL e cole isto, veja o resultado;


SELECT TabDetalheAluno.DataRegisto, Max(TabDetalheAluno.NrAluno) AS MaxOfNrAluno, TabAlunos.NomeAluno, Max(TabValencias.CodValencia) AS MaxOfCodValencia, Max(TabValencias.Valencia) AS MaxOfValencia, Max(TabNivel.CodNivel) AS MaxOfCodNivel, Max(TabNivel.Nivel) AS MaxOfNivel, Max(TabDetalhesActivExtraCurriculares.CodActividExtraCurric) AS MaxOfCodActividExtraCurric, Max(TabDetalhesActivExtraCurriculares.CodInformacao) AS MaxOfCodInformacao, Max(TabDetalhesActivExtraCurriculares.Preço) AS MaxOfPreço
FROM TabValencias INNER JOIN (TabNivel INNER JOIN ((TabDetalhesActivExtraCurriculares INNER JOIN TabDetalheAluno ON TabDetalhesActivExtraCurriculares.CodDetalhesAEC = TabDetalheAluno.CodActividadesExtraCurriculares.Value) INNER JOIN TabAlunos ON TabDetalheAluno.NrAluno = TabAlunos.NrAluno) ON TabNivel.Nivel = TabDetalheAluno.Nivel) ON TabValencias.Valencia = TabNivel.CodValencia
GROUP BY TabDetalheAluno.DataRegisto, TabAlunos.NomeAluno
HAVING (((TabDetalheAluno.DataRegisto)=(select max(DataRegisto)
from TabDetalheAluno temp
where TabAlunos.NrAluno = temp.NrAluno)))
ORDER BY Max(TabDetalheAluno.NrAluno), Max(TabValencias.CodValencia), Max(TabNivel.CodNivel), Max(TabNivel.Nivel);

Caro J Paulo,

Fiz conforme me indicou e criei a consulta Consulta Base AEC de Alunos para Listagem de Alterações_sql.

Ela retona de facto o último dos registos de um aluno que teve alterações e os registos dos alunos que não tiveram alterações. Mas... tem um problema que é fundamental: só devolve um único valor para o campo MaxOfCodActividExtraCurric: CodActividExtraCurric e consequentemente os que estão à direita e dependem deste.

Ora este campo admite valores múltiplos - um Aluno pode e está geralmente inscrito em mais do que uma AEC -Actividade Extra Curricular e a consulta apenas devolve uma delas. Na práctica cada aluno só tem uma linha correspondente quando deveria ter tantas quantas as AEC em que está inscrito ou então ter as AEC separadas por ; (ponto e vírgula).

Postei a BD de novo num link: http://www.speedyshare.com/files/23554128/GESCOLA_Testes.rar de modo a que possa confirmar já depois de ter efectuado a consulta de acordo com as suas indicações. Pode experimentar - se fizer esse favor e tiver ainda "pachorra" para me aturar - abrir o FormAluno e a partir daí o DetalheAluno e ver exactamente o que lhe acabei de referir.

Fico na expectativa das suas notícias.

Um abraço.

Bom dia J Paulo,

São 4 da manhã mas eu cá ando a tentar resolver o assunto... mas está difícil!... Não sei se ajuda mas uma consulta que fiz - Consulta TESTE PARA AEC de Alunos_paraContabilidade - dá o último registo do aluno, com todas as AEC. O problema é que só dá de um aluno...? Não haverá maneira de "forçar" que todos eles apareçam? Utilizei como Critério da Consulta no campo [DataRegisto] :DMáx("[DataRegisto]";"[TabDetalheAluno]"). Voltei a por uma nova versão em que a consulta referida acima a Bold está feita. Será que ajuda alguma coisa? Link: http://www.speedyshare.com/files/23554972/GESCOLA_Testes.rar

Abra novamente numa consulta nova ou numa existente, em modo SQL e cole;


SELECT Max(TabDetalheAluno.NrAluno) AS MaxOfNrAluno, TabDetalheAluno.DataRegisto, Max(TabValencias.Valencia) AS MáxDeValencia, Max(TabNivel.Nivel) AS MáxDeNivel, Max(TabAlunos.NomeAluno) AS MáxDeNomeAluno, Max(TabDetalhesActivExtraCurriculares.CodEscolActividExtra) AS MáxDeCodEscolActividExtra, Max(TabDetalhesActivExtraCurriculares.CodInformacao) AS MáxDeCodInformacao, TabDetalhesActivExtraCurriculares.Preço, TabNivel.CodNivel
FROM TabValencias INNER JOIN (TabNivel INNER JOIN (TabAlunos INNER JOIN (TabDetalhesActivExtraCurriculares INNER JOIN TabDetalheAluno ON TabDetalhesActivExtraCurriculares.CodDetalhesAEC = TabDetalheAluno.CodActividadesExtraCurriculares.Value) ON TabAlunos.NrAluno = TabDetalheAluno.NrAluno) ON TabNivel.Nivel = TabDetalheAluno.Nivel) ON TabValencias.Valencia = TabNivel.CodValencia
GROUP BY TabDetalheAluno.DataRegisto, TabDetalhesActivExtraCurriculares.Preço, TabNivel.CodNivel, TabDetalheAluno.NrAluno, TabValencias.CodValencia, TabNivel.CodNivel, TabDetalheAluno.NrAluno
HAVING (((TabDetalheAluno.DataRegisto)=(select max(DataRegisto)
from TabDetalheAluno temp
where TabAlunos.NrAluno = temp.NrAluno)))
ORDER BY Max(TabValencias.CodValencia), Max(TabNivel.CodNivel), Max(TabDetalheAluno.NrAluno);

Caro J Paulo,

Valeu! Desta vez funciona.

Mais uma vez Bem Haja e um abraço agradecido pelo seu tempo.

Vasco.

Obrigado pelo retorno amigo, o forum agradece.