Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Mover recordset, cómo lo abro?

Estas en el tema de Mover recordset, cómo lo abro? en el foro de Visual Basic clásico en Foros del Web. Me gustaría saber como puedo mover un recordset al siguiente, anterior, ultimo y primer registro, sé que tengo unas propiedades llamadas MoveNext, MovePrevious, MoveFirst y ...
  #1 (permalink)  
Antiguo 06/07/2006, 05:37
 
Fecha de Ingreso: marzo-2005
Mensajes: 276
Antigüedad: 19 años, 2 meses
Puntos: 0
Pregunta Mover recordset, cómo lo abro?

Me gustaría saber como puedo mover un recordset al siguiente, anterior, ultimo y primer registro, sé que tengo unas propiedades llamadas MoveNext, MovePrevious, MoveFirst y MoveLast, pero la única que me funciona es MoveNext, cómo debo abrir mi recordset, hasta ahora lo he hecho de esta manera:

Dim rsMover As New ADODB.Recordset
ejecutar = "SELECT * FROM clientes order by Nombre desc"
Set rsMover = conexion.Execute(ejecutar)
  #2 (permalink)  
Antiguo 06/07/2006, 10:59
Avatar de marcos1979  
Fecha de Ingreso: abril-2004
Ubicación: 62º 06' 18" O / 33º 07' 47" S
Mensajes: 331
Antigüedad: 20 años
Puntos: 1
Cuantos registros tiene rsMover???
Cual es el error que te da?
Comprobaste las propiedades . BOF y .EOF ??

Un saludo
__________________
Marcos

El dinero no da la felicidad... démelo y sea feliz!!!
  #3 (permalink)  
Antiguo 06/07/2006, 15:32
 
Fecha de Ingreso: abril-2004
Ubicación: Managua
Mensajes: 150
Antigüedad: 20 años
Puntos: 0
Public Function Buscar() As Boolean
Set rstconfig = Nothing
Set rstconfig = New ADODB.Recordset
With rstconfig
.ActiveConnection = MICONECCION
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Source = "select * from CONFIGURACION ;"
.Open
If .RecordCount <> 0 Then
Buscar = True
Else
MsgBox "No existe configuración actual", vbInformation, "CLSCONFIGURACION"
.Close
Set rstconfig = Nothing
Buscar = False
End If
End With
End Function



Public Sub ANTERIOR()
On Error GoTo salir
If rstarqueo.EOF = False Then
rstarqueo.MovePrevious
End If
salir:
End Sub
Public Sub Siguiente()
On Error GoTo salir
If rstarqueo.EOF = False Then
rstarqueo.MoveNext
End If
salir:
End Sub
  #4 (permalink)  
Antiguo 06/07/2006, 16:13
Avatar de Developer9
(Desactivado)
 
Fecha de Ingreso: abril-2005
Ubicación: Mi Ecuador del alma
Mensajes: 4.196
Antigüedad: 19 años
Puntos: 47
Eje! atenti que ya llegué

HOla... niña. Buenas tardes, que tal, como se encuentra en su querida España, un gusto ser un fiel colaborador de una niña en problemas

fácil y sencillo... como dijo la cucaracha bajandose del grillo.
Los metodos son:

rsMover.MoveFirst
rsMover.MovePrevious
rsMover.MoveNext
rsMover.MoveLast

Ahora lo mas difícil es saber... que hace cada cual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:05.