COMO MOVIMENTAR RESGISTROS???

USUARIO.EXCLUIDOS 10/01/2005 20:11:33
#59882
OLA!!! ESTOU QUERENDO FAZER AQUELES BOTÕES QUE ANDAN P/FRENTE, P/TRAS, P/ INICIO E P/ FIM, COMO ESTOU USANDO CONEXÃO ADO COM BANCO ACCESS, O COMANDO MOVEFIRST, MOVENEXT..., NÃO FUNCIONA...

SERà QUE ALGUEM CONHECE ALGUM MODO DE FAZER ISTO, OU ALGUMA FERRAMENTA QUE FAÇA ISTO????

FICO MUITO GRATO COM A RESPOSTA....

OBRIGADO!!!
USUARIO.EXCLUIDOS 10/01/2005 20:19:43
#59884
cara, como nao da certo? vc ta faznedo certinho?
se vc usa adodc faiz assim:

private sub command1_click
Adodc1.Recordset.MoveFirst
ou
Adodc1.Recordset.MoveLast.....next.....
end sub

caso nao, substituí o adodc pela variavel de conexao...
espero ter ajudado.!
USUARIO.EXCLUIDOS 10/01/2005 20:28:50
#59885
Não deu certo.....
CLEVERTON 11/01/2005 01:35:57
#59897
as vezes é o modo de abertura que vc esta usando na conexao do recorset
USUARIO.EXCLUIDOS 11/01/2005 08:09:23
#59905
private sub botanterior_click()
adodc1.recordset.moveprevious
end sub

private sub botproximo_click()
adodc1.recordset.movenext
end sub

Private sub botultimo_click()
adodc1.recordset.movelast
end sub

Private sub botprimeiro_click()
adodc1.recordset.movefirst
end sub

se não funcionar e você utilizar conexão declarada poste o codigo da conexão e qual a mensagem de erro assim fica mais facil resolver o seu problema.
IVOFABIANO 11/01/2005 08:17:16
#59910
Vc deve previnir tb a movimentação do cursor para posições anteriores à  primeira e posteriores à  última :

--- primeiro

If Not rs.BOF Or Not rs.EOF Then
rs.MoveFirst
End If
End Sub

--- proximo

If Not rs.EOF Then
rs.MoveNext
End If
If rs.EOF And Not rs.BOF Then
rs.MovePrevious
End If
End Sub

--- Ultimo

If Not rs.EOF Or Not rs.BOF Then
rs.MoveLast
End If
End Sub


--- anterior

If Not rs.BOF Then
rs.MovePrevious
End If
If rs.BOF And Not rs.EOF Then
rs.MoveNext
End If
End Sub

Abraços
Tópico encerrado , respostas não são mais permitidas
Voltar