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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Localizar um registro, do último para o primeiro
Scaliburth
BELO HORIZONTE
MG - BRASIL
ENUNCIADA !
Postada em 02/06/2004 11:32 hs            
       É de conhecimento de todos, que a localização de um registro pelo VB, começa da primeiro e vai até o último. Mas gostaria de fazer esta pesquisa em sentido contrário, ou seja, do último registro para o primeiro. Tentei mudar a forma de classificação do campo na tabela para Ordem Decrescente, só que, quando eu adiciono um novo registro ele vai para o final. E para que funcione desta forma toda vez eu teria que abrir o banco de dados e classificá-lo novamente.
     É possível fazer este tipo de pesquisa? Do último registro para o primeiro.
    
     O código que eu uso é o seguinte:
"Dim banco as database
 dim tabe as recordset
 set banco = opendatabase (caminho)
 set tabe=banco.openrecordset(Tabela)
 tabe.Index = "Campo"
 tabe.Seek "=", text1
 if tabe.nomatch then
        sequencia do código
 end if
 
Agradeço a todos
   

SÃO PAULO
SP - BRASIL
Postada em 02/06/2004 12:47 hs            
Acredito que você possa fazer da seguinte forma:
 
For l_idx = tabela.recordcount to 1 step - 1
  if registro que eu quero then
    faça isso
    exit for
  end if
Next
 
Espero ter ajudado.
 
Carla
     
|-tom-|
Pontos: 2843
CATANDUVA
SP - BRASIL
Postada em 02/06/2004 14:02 hs            
eu nunca fiz mais eu acho q seria
 
RS.MoveMax
Do While not Rs.BoF
    IF (Condicao) then
         se encontrar Sua Condicao
        exit do
    Endif
    Rs.MovePrevious
loop
 
Tenta isso aki Emoções

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

 tom -Catanduva/SP

Analista Sistemas - Visual Basic 6 - VB.NET

"Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna"

                                                                                              Isaías 26:4  Emoções 

 

     
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 02/06/2004 14:35 hs            
 
Você tentou usar o FindL ast?
Use o MoveL ast e depois o na consulta o FindL ast.
 
Você testou assim e não deu certo?
TÓPICO EDITADO
 
Página(s): 1/1    


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