Problemas Com Moveprevious E Movelast

[Macêdo]

consigo passar registro por registro com o MoveNext OK!

Consigo também mover para o primeiro registro com o MoveFirst OK!

O MovePrevious não funciona e dá o seguinte erro:

Run Time Error '3219' Operação não permitida neste contexto

O MoveLast não funciona e dá o seguinte erro:

Run time error '2147217884(80040e24)

o conjunto de linhas não oferece suporte para busca regressiva

abaixo todo o codigo:

general declarations

Dim cnncomando As New ADODB.Command

Dim rs_Pronaf As New ADODB.Recordset

Private Sub Command1_Click()
With rs_Pronaf

rs_Pronaf.MoveNext
    Text1 = !cod
    Text2 = !nome
    Text3 = !municipio
End With

End Sub

Private Sub Command2_Click()
With rs_Pronaf

rs_Pronaf.MoveFirst

    Text1 = !cod
    Text2 = !nome
    Text3 = !municipio
End With

End Sub

Private Sub Command3_Click()
With rs_Pronaf

rs_Pronaf.MoveLast
    Text1 = !cod
    Text2 = !nome
    Text3 = !municipio
End With

End Sub

Private Sub Command4_Click()
With rs_Pronaf

rs_Pronaf.MovePrevious
    Text1 = !cod
    Text2 = !nome
    Text3 = !municipio
End With

End Sub

Private Sub Form_Load()
With cnncomando
    .ActiveConnection = cnnProjetos
    .CommandType = adCmdText
    .CommandText = " select * from projetos "
    Set rs_Pronaf = .Execute
End With
With rs_Pronaf
    Text1 = !cod
    Text2 = !nome
    Text3 = !municipio
End With
End Sub

Agradeço desde já a atenção de todos.

[kuroi]

isso é da sua conexao. posta como ta o codigo onde você abre ela. mas acho q você deveria adicionar a seguinte linha antes de abri-la:

cnncomando.CursorLocation = adUseClient

[Macêdo]

Kuroi, estou fazendo a conexão dentro do evento timer do splash:

Private Sub Timer1_Timer()
On Error GoTo errconexao
cnnProjetos.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _
"data Source = " & App.Path & "\bdprojetos.mdb;"
cnnProjetos.Open
Unload Me
MDIprojetos.Show
Exit Sub

errconexao:
With Err
If .Number <> 0 Then
MsgBox " houve um erro na conexão com o banco de dados." & _
vbCrLf & " O sistema será encerrado.", vbCritical + vbOKOnly + vbApplicationModal, "erro na conexão"
.Number = 0
Set cnnProjetos = Nothing
End
End If
End With

End Sub

[kuroi]

é, no codigo acima, eu passei o command, mas era pra ser o connection. faca assim:

cnnProjetos.CursorLocation = adUseClient

antes do cnnProjetos.Open

[Macêdo]

Perfeito kuroi!

O que tem nesta informação que faz com que resolva um problema deste?

[kuroi]

tipo, sei q a propriedade CursorLocation define a localizacao do cursor (ponteiro do registro - o q indica qual o registro atual). o padrão (quando você não seta nd) é ele abrir a conexao com o cursor no servidor (o seu provider OLE DB). e o provider pode ter restricoes por isso não deixa dar o MovePrevious e o MoveLast.

agora setando o cursor no cliente, não sei exatamente como funciona mas resolve o problema.

mais informacoes aqui: http://msdn2.microsoft.com/en-us/library/ms677542.aspx