PEGAR O ULTIMO REGISTO DE UMA TABELA

 Tópico anterior Próximo tópico Novo tópico

PEGAR O ULTIMO REGISTO DE UMA TABELA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#484885 - 10/10/2018 10:27:48

WMR2018
BALSAS
Cadast. em:Outubro/2017


Bom dia Pessoal

Preciso gerar um relatorio de faturas, porem preciso pegar somente a ultima fatura gerada para quele locatario

tenho 2 tabelas: CLIENTE e FATURA

Tabela cliente tenho o cadastro unico para cada cliente com o campo CODIGO
tabela FATURA tenho varia faturas para cada cliente

Preciso gerar um relatorio onde mostre o campo LEITURA_FINAL da ultima fatura daquele cliente

Fiz a segunte SQL:

sSQL = "SELECT FATURA.*, CLIENTE.* " & _
"FROM FATURA INNER JOIN CLIENTE ON FATURA.COD_LOCATARIO = CLIENTE.CODIGO " & _
"ORDER BY COD_FATURA"


só que aparece todas as faturas, quero q apareça somente 1 fatura (a ultima)



#484887 - 10/10/2018 10:53:49

JONESPARIS
ERECHIM
Cadast. em:Fevereiro/2006


Olá!

Tabela Fatura tem Chave primária? É auto Incremento?

sSQL = "SELECT FATURA.*, CLIENTE.* " & _
"FROM FATURA INNER JOIN CLIENTE ON FATURA.COD_LOCATARIO = CLIENTE.CODIGO " & _
"group by FATURA.COD_LOCATARIO ORDER BY COD_FATURA"

Inclua o Group By



Jones Paris

#484927 - 15/10/2018 11:32:05

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Não seria colocar o campo no Select Max(COD_ FATURA) as MaiorCodigo, * ...
Assim ele pega só um registro, o de maior valor



#484933 - 15/10/2018 16:27:09

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Wmr2018 se a sua consulta esta exibindo os dados normalmente

sSQL = "SELECT FATURA.*, CLIENTE.* " & _
"FROM FATURA INNER JOIN CLIENTE ON FATURA.COD_LOCATARIO = CLIENTE.CODIGO " & _
"ORDER BY COD_FATURA"

basta adicionar apenas 1 cláusula no final do order by, isso se for um banco mysql
"ORDER BY COD_FATURA DESC LIMIT 1"
Dessa forma ele exibe o resultado do maior para o menor e apenas 1 registro

Se for um banco Access terá que usar o top 1 logo no inicio do comando select e mantenha o comando DESC no final do order by

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário