| Docencia | Autor |
Un rápido acceso desde Visual Basic .NET 2003 a bases de datos en Microsoft Access
30. Hora de añadir algunos botones
31. Y por supuesto cambiarle las propiedades como se ve en la imagen
32. Coloco las etiquetas "<< Primero", "< Anterior", "Siguiente >", "Último >>"
33. Añada también controles "Label" y controles "TextBox"
34. Cambie el nombre de los objetos texto a txtNombre y txtEdad
30. De doble clic sobre la forma para programar el evento "Load" de la forma.
En la plataforma .NET, el software esta desconectado de la base de datos, esta característica permite que sea mas eficiente el acceso a la base de datos para múltiples usuarios al tiempo en vez del enfoque antiguo que siempre estaba conectado (unos pocos usuarios consumían todo el acceso a la base de datos). Pero como esta desconectado se debe primer rellenar el conjunto de datos con la siguiente instrucción:
OleDbDataAdapter1.Fill(DataSet11)
Recuerde que "DataSet11" apunta a la tabla "Personas".
También hay que decirle a Visual Basic que los campos texto se refieren a campos de la base de datos, eso se logra con las siguientes instrucciones:
txtNombre.DataBindings.Add(
"Text", DataSet11, "Personas.Nombre")txtEdad.DataBindings.Add(
"Text", DataSet11, "Personas.Edad")31. Y ahora si comience a ejecutar la aplicación
32. Debe aparecer algo como esto. Recuerde que los botones no hacen nada por ahora porque no tienen programado ningún evento.
33. De vuelta en el desarrollo, agreguemos los eventos a los cuatro(4) botones, este es el código
Ir al primer registro: Me.BindingContext(DataSet11, "Personas").Position = 0
Ir al anterior registro: Me.BindingContext(DataSet11, "Personas").Position -= 1
Ir al siguiente registro: Me.BindingContext(DataSet11, "Personas").Position += 1
Ir al último registro (se debe saber previamente cuantos registros existen para poder ir al último):
Dim iNumRegistros As Integer
iNumRegistros = Me.BindingContext(DataSet11, "Personas").Count
Me.BindingContext(DataSet11, "Personas").Position = iNumRegistros - 1
35. Pruebe el programa nuevamente y navegue con los botones.