Hola a todos, estoy creando un programa para gestionar mis base de datos de mysql en visual basic 6 con ODBC y estoy creando botones para examinar el contenido de mi tabla:
para el boton inicio (ver los primeros datos ingresados):
Código:
Private Sub inicio_Click()
Set RecBD = New ADODB.Recordset
RecBD.Open "select * from contacto order by ID DESC", BD, adOpenStatic, adLockOptimistic
While Not RecBD.EOF
ID.Text = "" & RecBD.Fields(0) & ""
fecha.Text = "" & RecBD.Fields(1) & ""
nombre.Text = "" & RecBD.Fields(2) & ""
email.Text = "" & RecBD.Fields(3) & ""
web.Text = "" & RecBD.Fields(4) & ""
direccion.Text = "" & RecBD.Fields(5) & ""
telefono.Text = "" & RecBD.Fields(6) & ""
servicio.Text = "" & RecBD.Fields(7) & ""
notas.Text = "" & RecBD.Fields(8) & ""
ip.Text = "" & RecBD.Fields(9) & ""
revisado.Text = "" & RecBD.Fields(10) & ""
revisado_por.Text = "" & RecBD.Fields(11) & ""
RecBD.MoveNext
Wend
Exit Sub
End Sub
para el boton fin (ver los ultimos datos ingresados):
Código:
Private Sub fin_Click()
Set RecBD = New ADODB.Recordset
RecBD.Open "select * from contacto order by ID ASC", BD, adOpenStatic, adLockOptimistic
While Not RecBD.EOF
ID.Text = "" & RecBD.Fields(0) & ""
fecha.Text = "" & RecBD.Fields(1) & ""
nombre.Text = "" & RecBD.Fields(2) & ""
email.Text = "" & RecBD.Fields(3) & ""
web.Text = "" & RecBD.Fields(4) & ""
direccion.Text = "" & RecBD.Fields(5) & ""
telefono.Text = "" & RecBD.Fields(6) & ""
servicio.Text = "" & RecBD.Fields(7) & ""
notas.Text = "" & RecBD.Fields(8) & ""
ip.Text = "" & RecBD.Fields(9) & ""
revisado.Text = "" & RecBD.Fields(10) & ""
revisado_por.Text = "" & RecBD.Fields(11) & ""
RecBD.MoveNext
Wend
Exit Sub
End Sub
Esos botones funcionan a la perfeccion, pero
quiero crear dos botones uno para ver el siguiente registro (p.e. si estoy en ID 1 pasar al ID 2 y no al ultimo ID como en el boton fin) y otro para ver el anterior registro pero no se como hacer la consulta. ¿Alguien me ayuda?
(disculpen mi ignorancia pero recien me estoy metiendo al mundo de la programacion en visual basic y les pido me expliquen lo mejor que puedan =)