Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Pedro_07

[VB 6] Botoes d navegaçao

Mensagens Recomendadas

Pedro_07    0
Pedro_07

Tou a fazer um programa k liga a uma base de dados, e keria fazer botoes para navegar entre registos (1º, seguinte, anterior e ultimo)

Alguem m pode dar umas luses sobre como fazer os botoes?

O programa liga a BD com um Data, mas n keria k a navegaçao entre registos foxe feito pelo Data

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Pedro_07    0
Pedro_07

Ja tnh as textbox, o programa ja liga a BD, agr kero e por buttons pra navegar entre registos, ir para o primeiro, para o seguinte, para o proximo e para o ultimo....

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vjoe    0
vjoe

Botão "Primeiro" -> DataControl.Recordset.MoveFirst

Botão "Anterior" -> DataControl.Recordset.MovePrevious

Botão "Seguinte" -> DataControl.Recordset.MoveNext

Botão "Último" -> DataControl.Recordset.MoveLast

Substitui o "DataControl" pelo nome do teu Data Control.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Pedro_07    0
Pedro_07

Brigadao, ja consegui fazer os botoes..

Agr tnh outro problema, por exemplo se estiver no ultimo e carregar em seguinte dá me erro, como posso contornar este erro?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Zeant    0
Zeant

Boas,

Tenta contar quantos registos tens na tabela e arranja um contrador kando ele dectrar o ultimos metes o botao de seguinte invisivel ou mxm Enabled e ja n tens esse problema, tens que fazer os mxm com o anterior e o primeiro....

cmps,

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Miguel_Silva    0
Miguel_Silva

Esta é a maneira que eu utilizo:

Botão seguinte

DataControl.Recordset.MoveNext

If DataControl.Recordset.EOF Then

    DataControl.Recordset.MoveLast

End If

Botão Anterior

DataControl.Recordset.MovePrevious

If DataControl.Recordset.BOF Then

    DataControl.Recordset.MoveFirst

End If

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade