USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Pegar numero do ultimo registro + 1
AUREO2006
PASSO FUNDO
RS - BRASIL
Postada em 11/09/2006 18:56 hs            
Estou desenvolvendo um programa usando firebird e visual basic 6. Criei um formulario, que será vinculado a uma tabela do banco de ados  com um dataenvironment. Tenho uma textbox que desejo que ao receber o foco ela seja preenchida com o número do último registro do campo de nome código(autonumeração+chave primária) da tabela cujo formulario está vinculado + 1. Pois bem. Eu criei uma variável chamada número para preenche-la, porém não tem jeito de eu conseguir buscar este número. Alguém sabe como posso fazer isso?
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 11/09/2006 23:51 hs            
qual o tipo de conexão q vc está usando ADO ou DAO?
 
   
AUREO2006
não registrado
ENUNCIADA !
Postada em 12/09/2006 09:28 hs   
Estou usando ADO.
   
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 12/09/2006 12:15 hs            
eu costumo usar o seguinte:
selecao= "select * from tabela"
n=0:n1=0
set tabela=banco.openrecordset(selecao,dbopensnapshot)
do until tabela.eof
n= tabela ("código")
if n1=0 then
       n1=n
else
       if n1<n then
              n1=n
       else
       endif
endif
tabela.movenext
loop
tabela.close
 
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 12/09/2006 12:16 hs            
com o código vc pega o numero do ultimo registro daí é só acrescentar um
 
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 12/09/2006 12:20 hs            
ops o código q te passei era para DAO...mas para o ADO é quase a mesma coisa...
 
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página