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 =)
