Un rápido acceso desde Visual Basic .NET 2005 Express a una base de datos en Microsoft Access. Parte 4.

35. 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".

Visual Basic 2005 Express le ayuda a escribir código mediante la función de autocompletado.

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

El código debe quedar así:

36. Es un buen momento para grabar lo que está haciendo

37. Y ahora si comience a ejecutar la aplicación

38. Debe aparecer algo como esto. Recuerde que los botones no hacen nada por ahora porque no tienen programado ningún evento.

39. De vuelta en el desarrollo, agreguemos los eventos a los cuatro(4) botones

40. Este es el código

Y este es el código para todos los botones

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

41. Pruebe el programa nuevamente y navegue con los botones.