MovePrevious

fco javier
13 de Abril del 2004
Alguien me podría ayudar por favor tengo en el formulario cuatro comanbuton, con los cuales quiero navegar por la bd con los métodos moveMoveFirst etc..todo los procedimientos me funciona menos este que me da un error el error es no hay registros activos .gracias

Private Sub CommandPosterior_Click()
Set rec = bd.OpenRecordset("select* from Clientes ")
rec.MovePrevious 'Posterior registro
Call visualiza
rec.Close
End Sub

BACO
13 de Abril del 2004
Public Conexion As New ADODB.Connection
Public Recordset As New ADODB.Recordset
Public Consulta As String


Conexion.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=;Data Source="
Conexion.Open

Consulta = "select * from maeparametros"
Recordset.CursorLocation = adUseClient ==> PARA NO PERDER EL CURSOR, ES EL UNICO TIPO DE CURSOR QUE PERMITE TRABAJAR CON ESTAS PROPIEDADES
Recordset.Open Consulta, Conexion

Do While Not Recordset.BOF
MsgBox (Recordset.Fields("sigla").Value)
Recordset.MoveNext
'Recordset.MoveLast
MsgBox (Recordset.Fields("sigla").Value)
Recordset.MovePrevious
Loop


con esto te va a funcionar el metodo MovePrevious, ojo con la parte donde se indica el cursor, con el que se especifica el ejemplo te va a funcionar.

suerte