como recorrer un recordset hacia atras

misterdyc
09 de Mayo del 2005
hola k hay, estoy realizando un formulario que contiene 6 textbox que son cada uno de los campos de una tabla de una BBDD.COnecto genial con la tabla y con un recordset consigo los registros que deseo.
Dentro del formulario tengo unos botones para avanzar al siguiente registro y retroceder al siguiente, lo de avanzar funciona perfectamente y se me actualizan los textbox genial, pero cuando hago el recordset.MovePrevious me da error.Como podría solucionar esto?

Os pongo el codigo para k os hagais una mejor idea vale?
Muchas gracias.

Private Sub Command1_Click() (((retroceder)))
rspruebas.MovePrevious
Text1.Text = rspruebas("fecha")
Text2.Text = rspruebas("hora")
Text3.Text = rspruebas("aula")
Text6.Text = rspruebas("causa")
Text5.Text = rspruebas("alistado")
If rspruebas.BOF Then Command1.Enabled = False
End Sub

Private Sub Command2_Click() ((((avanzar))))
rspruebas.MoveNext
Text1.Text = rspruebas("fecha")
Text2.Text = rspruebas("hora")
Text3.Text = rspruebas("aula")
Text6.Text = rspruebas("causa")
Text5.Text = rspruebas("alistado")
Command1.Enabled = True
If rspruebas.EOF Then Command2.Enabled = False
End Sub

Public Sub Form_Load()
Set conexion = New Connection
Dim ruta As String
ruta = App.Path & "BBDD_DLLPruebaADO.mdb"
With conexion
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ruta & ";Mode=ReadWrite|Share Deny None;" & _
"Persist Security Info=False"
End With
conexion.Open
Set rspruebas = New Recordset
rspruebas.CacheSize = 3
With rspruebas
.Source = "SELECT * FROM FALTAS"
.ActiveConnection = conexion
End With
rspruebas.Open
Text1.Text = rspruebas("fecha")
Text2.Text = rspruebas("hora")
Text3.Text = rspruebas("aula")
Text6.Text = rspruebas("causa")
Text5.Text = rspruebas("alistado")
Command1.Enabled = False
End Sub



lorrich
09 de Mayo del 2005
Que error te da???

misterdyc
09 de Mayo del 2005
Si pongo MoveLast el error es:
El conjunto de filas no admite recuperacion hacia atrás

Si pongo MovePrevious el error es;
La operación no esta permitida en este contexto.