#Seja Reconhecido como uma Autoridade no Excel e Aumente a sua Empregabilidade. Vou te mostrar os segredos que os MAGOS do EXCEL usam para impressionar com suas planilhas.

Artigos Visual Basic

Buscar último registro do Access no VB6

scar último registro do Access no VB6

Buscar ltimo registro do Access no VB6 Buscar último registro do Access no VB6




Fala pessoal, no artigo de hoje estarei mostrando como selecionar o último registro da tabela Access e retorna-lo para uma textbox, se você também tem essa duvida e não consegue resolver leia o artigo até o final talvez eu possa te ajudar.

Recentemente tive essa dificuldade de retorna o último registro da tabela Access , vi que muitos usuários tem esse probleminha e por esse motivo estamos postando no site uma “possível solução”.

Se você não conseguir resolver o problema entre em contato com a gente pelo chat ou escrevendo seu comentário no post, responderemos a duvida o mais rápido possível.

Primeiramente vou mostrar como que faço a conexão com o banco de dados, isso facilitará no entendimento do código no decorre desse post:

puxar ultimo registro do access 5 Buscar último registro do Access no VB6

Escrevi no módulo tanto a conexão como também o close da conexão, iremos apenas chamar a public sub ConeectDB e FechaDb, mas acredito que você já deve entender isso.

Criei um form com alguns campos assim como na imagem a baixo:

puxar ultimo registro do access 6 Buscar último registro do Access no VB6

As propriedades dos controles foram renomeados da seguinte forma:

Textbox Código: propriedade(name) = codigo

Textbox valor a cadastrar: propriedade(name) = nome

Nesse caso isso é necessário para termos registros na tabela, dessa forma teremos códigos para retornar ao formulário, vou deixa o projeto para download a baixo desse post.

Dentro do botão cadastrar digitei o seguinte código

puxar ultimo registro do access 7 Buscar último registro do Access no VB6

Basicamente esse código faz o seguinte

  1. ConeectDb‘chama a conexão com Access
  2. rs.Open “select * from Tabela1”, db, 3, 3‘seleciona todos da minha tabela
  3. rs.AddNew‘adciona novo valor
  4. rs!nome = nome.Text‘Expecifico que o campo nome da tabela recebe o valor da textbox
  5. rs.Update‘Joga valor da textbox para a tabela
  6. FechaDB‘fecha conexão com o Access

O código acima não é tão importante para você nesse caso, ele apenas serve para cadastrarmos registros em nosso banco de dados, o código a baixo “é o que você deve estar procurando” veja:




Apos o sistema ter feito o registro, o programa irar conectar ao banco de dados novamente e obter o ultimo registro cadastrado e retorna-lo para a textbox código:

  1. ConeectDb ‘chama a conexão com Access
  2. rs.Open “Select Max(Codigo) from Tabela1”, db, 3, 3′‘Seleciona ultimo registro da tabela
  3. Do Until rs.EOF‘Conta
  4. codigo.Text = “” & rs(0)‘textbox código recebe valor do rs código
  5. rs.MoveNext‘Retorna valor
  6. Loop‘Faz o loop
  7. FechaDB‘Fecha conexão com Access

Veja o código em ação:

Puxa ultimo valor da tabela access Buscar último registro do Access no VB6

Repare, sempre cadastrando e puxando o ultimo registro do banco de dados, não é o mais indicado mas também podemos fazer o seguinte:

puxar ultimo registro do access 8 Buscar último registro do Access no VB6

Podemos pegar o ultimo registro do Access e adicionar +1, vi muitas duvidas a respeito disso em fóruns mas apesar de ser prático não é muito indicado.

Bem esse foi o artigo de hoje espero que possa ter ajudado, estarei deixando o projeto criado para esse artigo no link a baixo, não esqueça de compartilha para amigos e deixa seu comentário caso tenha te ajudado vlw!


Buscar últiregistro, Buscar último registro, Buscar último registro, Buscar último registro, Buscar último registro

Sobre o autor | Website

Por gentileza, se deseja alterar o arquivo do rodapé,
entre em contato com o suporte.