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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Localizar registros
Scaliburth
BELO HORIZONTE
MG - BRASIL
Postada em 05/07/2004 10:43 hs            
 
É de conhecimento de todos, que a localização de um registro pelo VB, começa do 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, mudei também o index para decrescente, so que também não da certo. Sei que poderia fazer uma consulta com as propriedade move e depois procurar para ver se tem outro registro, até chegar no mais atual, só que minha tabela é muito grande e isso poderia fazer com que o programa ficasse mais lento.
     É possível fazer este tipo de pesquisa? Do último registro para o primeiro.
    
     O código que eu uso é o seguinte:
 
dim tabe as recordset
 set banco = opendatabase (caminho)
 set tabe=banco.openrecordset(Tabela)
 tabe.Index = "Campo0"
 tabe.Seek "=", text1
 if tabe.nomatch then
        'Então terá que digitar 'E AQUI E UM DOS LOCAIS QUE PODE SER DIGITADO ERRADO
else
        text2=tabe("Campo1")
        text3=tabe("Campo2"
        ...
 end if
 
E já tentei colocar a data, em ordem decrescente, mas o meu problema é que todos os registros que ele localiza são os primeiros. Gostaria de saber se através deste código tem jeito de começar a localizar do registro mais atual para para o mais antigo, pois desta forma, logo no primeiro(atual) eu ja busco ele, ignorando os demais que podem estar errado.
 
Obrigado a todos e desculpem-me pelo tamanho do texto
     
FX
BELEM
PA - BRASIL
Postada em 05/07/2004 10:56 hs            
se eu não me engano tem o findMax funciona assim
 
tb.findMax  "nomedocampo =" & valor
 
a tabela tem que ser aberta em Dynaset e os index nao serao carregados
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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