Visual Basic - Moverse por los registros

Life is soft - evento anual de software empresarial
   
Vista:

Moverse por los registros

Publicado por Richard (49 intervenciones) el 16/03/2016 17:02:08
Hola. Espero que esten bien.

Estaba haciendo una busqueda de un registro y poder desplazarme por los registros que coincidan con la misma. La busqueda la realiza pero no se mueve por los registros, uso el siguiente código
1
2
3
4
5
6
7
8
9
10
11
12
13
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
 
 en el load del formulario
Call conectar
Sub conectar()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
 
cn.CursorLocation = adUseClient
rs.CursorLocation = adUseClient
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & ReadIniValue(App.Path & "\rutagps.ini", "bd", "ruta"), "vehiculo"
End Sub

Para buscar por una caja de texto ejecuto este otro código
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
If KeyAscii = 13 Then
    Set rs = cn.Execute("select * from vehiculo where cedula like '" & txtcedula & "'")
        If rs.EOF = True Then
        MsgBox "No existen registros con ésta cedula, revisela e intente de nuevo", vbInformation, "ATENCIÓN"
    Else
    'muestro los datos en unas cajas de texto
    txtcedula = rs!cedula
    txtnombre = rs!nombre
    txtapellido = rs!apellido
    txttelefono = rs!telefono
    txtcorreo = rs!correo
    txtplaca = rs!placa
    txtcarro = rs!carro
    txtgps = rs!equipo
    txtsimcard = rs!simcard
    fecha_contrato = rs!fechacontrato
    vencimiento = rs!fechavencimiento
    pago_desde = rs!pagodesde
    hasta = rs!hasta
        End If
End If

Y para moverme una vez que lo busque en cuatro botones coloco
1
rs.MoveFirst
1
rs.MoveLast
1
2
3
If rs.BOF = False Then
rs.MovePrevious
End If
1
2
3
If rs.EOF = False Then
rs.MoveNext
End If

Pero no se desplaza. ¿Cúal es la manera correcta de Hacerlo?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Wilfredo Patricio Castillo

Moverse por los registros

Set rstEmployees = New ADODB.Recordset
Set rstEmployees.ActiveConnection = Cnxn
rstEmployees.CursorLocation = adUseClient
rstEmployees.CursorType = adOpenStatic
rstEmployees.LockType = adLockBatchOptimistic
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar