Problemas Com .moveprevious

[GAMBLER]

Pessoal, solicito a sua valiosa ajuda para o seguinte problema:

Fiz uma rotina que recebe dois parametros (para frete ou para tráz) funciona sem problemas quando avanço os registros, porem não funciona quando "volto" com .MovePrevious.

Se antes de chegar ao fim da tabela (EOF), descido "retonar" uma paginação de dados, da a seguinte mensagem de erro:

Run-Time error '3021';

BOF ou EOF são verdadeiros, ou o registro atual foi excluido, A opração solicitada pelo aplicativo requer um registro atual.

Se vou até o fim da tabela (Eof) e descido voltar, dá a seguinte mensagem

Run-time erro '2219'

Operação não permitida neste contexto.

Pelo que já achei, me parece que o problema está relacionado ao tipo de cursor?

Dim Dados As ADODB.Recordset

gSQL = "Select * from Dados"

Set rsDados = New ADODB.Recordset

Set rsDados = pConexao.Execute(gSQL)

ListarReg (1) <- ou 2

Public Sub ListarReg(modo)

X = 0

If modo = 1 Then

Do While Not rsDados.EOF() And X < 12

If rsDados!Horasai <> Null Then

rsDados.MoveNext

End If

…

…

X = X + 1

rsDados.MoveNext

Loop

cmdAvancar.SetFocus

Else

Do While Not rsDados.BOF() And X < 12

…

…

X = X + 1

If rsDados!Horasai <> Null Then

rsDados.MovePrevious

End If

If Not rsDados.BOF() Then

rsDados.MovePrevious

End If

Loop

cmdVoltar.SetFocus

End If

End Sub

Muito obrigado.

[fercosmig]

problemas com o cursor

http://www.macoratti.net/ado_fast.htm

abraços

[Graymalkin]

Experimente abrir o recordset através do método Open() do mesmo (e não através de um Execute() da conexão). Não tenho certeza, mas talvez o cursor de um Execute() seja forward-only.

Abraços,

Graymalkin

[kuroi]

mas talvez o cursor de um Execute() seja forward-only.

acho q não graymalkin. movenext e moveprevious funcionam normal...