Parte 3

Conexión a la Base de Datos de Access
Altas en la base de Datos

Una vez que se tienen todas los formularios que se van a ocupar, vamos a conectar la base de datos a la aplicación.

Se abre el programa de Visual Studio .net, y abren el proyecto Proyecto FinalVB. Ya que esta abierto el proyecto, se abre el formulario de altasAlumnos.vb, dándole doble clic en el Explorador de soluciones.

Se le colocara cinco etiquetas que digan Matricula, Nombre, Apellido, Dirección e Inscrito.

Se agrega cuatro cajas de texto para cada etiqueta, a cada caja de texto hay que quitarle el texto y dejarlo en blanco y ponerle el nombre de txtNombre.

Para la matricula se llamara txtMatricula, para el nombre se llamara txtNombre, para el apellido se llamara txtApellido y para dirección se llamara txtDireccion.

Se agrega un checkBox dándole el nombre de chkInscrito y se le quita el texto, y por ultimo se agrega un botón de Aceptar con el nombre btnAceptar, para dar de alta al alumno, después de hacer escrito sus datos.

En el siguiente paso, sobre este mismo formulario se agrega elementos de datos para hacer la conexión con la base de datos. Se agrega un control de tipo OleDbConnection, eligiéndolo y arrastrándolo al formulario.

En las propiedades del control de conexión se le cambiara el nombre por conxbdAlumnos. Se despliega la lista en la propiedad ConnectionString y se elige

Abre la ventana Propiedades de Vínculos de datos, y en la pestaña Proveedor se elige al proveedor de base de datos para Access 2000 o Access XP, que es Jet 4.0 OLE DB provider. Y se le da siguiente.

Se especifica la ubicación de la base de datos de Access, dando clic en el botón del paso1, que indicando en las carpetas en que se encuentra la base de datos BDFinal.mbd, no se especifica ninguna contraseña ya que la base de datos no la requiere, y por ultimo se le da clic en Probar Conexión.

Los formatos de datos son diferentes entre Visual Basic y Access, por lo que se requiere un adaptador de datos DataAdapter.
Una vez que se creo la conexión se da clic en el grupo datos de la caja de herramientas, y se agrega un control OleDBDataAdapter, (Fig. 9) de manera automática inicia el asistente de configuración de datos,

• se da clic en siguiente la segunda ventana requiere que se especifique la conexión a utilizar para este Adaptador de Datos, confirmar que esta escrita la ubicación de la conexión que se hizo anteriormente.
• se da clic en siguiente aparece la tercer ventana, en donde solo esta habilitado la opción de Usar Instrucciones SQL, ya que se esta utilizando un adaptador de tipo OleDbDataAdapter.
• Se da clic en siguiente y en la cuarta ventana nos indica el conjunto de datos que van a ser cargados al adaptador. Y se le da clic en el botón de Generador de consultas.
• Se abre otra ventana la cual nos indica las tablas que tenemos en nuestra base de datos BDFinal.mbd, y elegimos la tabla ALUMNOS, y se le da agregar y después cerrar.
• Aparece nuestra tabla ALUMNOS en el generador de consultas, y se elige *(Todas las columnas) y se le da aceptar.
• Se da clic en siguiente, y en la quinta ventana nos indica se el adaptador de configuro correctamente y por ultimo se da Finalizar.
  
  

Por ultimo cambiarle el nombre en las propiedades al adaptador por adapterAlumnos.

Una vez creado el adaptador de datos es necesario crear un objeto que represente los datos a utilizar en la aplicación, este objeto recibe el nombre de DataSet y constituye una representación de los datos proporcionados por la conexión y extraídos por el adaptador.

Para crear el dataset del adaptador que tenemos, se le da clic derecho sobre el control adapterAlumnos y elegimos la opción de Generar conjunto de datos.

En la siguiente ventana, en la opción de nuevo se le da el nombre de dsAlumnos, y se le da aceptar, ya tenemos nuestro control dataSet.

Y en las propiedades del control dataset, cambiarle el nombre de DsAlumnos1 por DsAlumnos

Ya que tenemos la conexión ahora hay que vincular las cajas de texto del formulario con la conexión, para que todo lo que se capture en las cajas de texto, pasen ala base de datos.
Primero abrimos el código de formulario y en la parte de arriba importamos unas clases, escribe el siguiente código:
Imports System.Data
Imports System.Data.OleDb

Después abre la clase (formAlumnos Events) con el método Load, con esto se escribe el código de la función formAlumnos_Load( ), lo cual indica que el código que pongamos dentro de esta función se ejecutara cuando se cargue o se mande a llamar al formulario.

En esta función pondremos el siguiente código:

Private Sub formAlumnos_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

DsAlumnos.Clear()
adapterAlumnos.Fill(DsAlumnos, "ALUMNOS")

End Sub

En donde la primera instrucción dsAlumnos.clear() limpiamos el objeto datset que se ha creado.
Con la segunda instrucción, el Dataset inicialmente está vacío. El método Fill del objeto DataAdapter es utilizado para cargar el Dataset. Se debe poner el nombre del adaptador que se utiliza con el método fill, e indicar a que dataset va a cargar los datos, así como de que tabla son los datos.

Por ultimo vamos a relacionar los valores de las cajas de texto con la base de datos para dar de altas a los alumnos. Damos doble clic al btnAceptar y se crea el código del botón con el método clic btnAceptar_Click, dentro de esta función escribiremos el siguiente código:

Dim fila As DataRow
fila = Me.DsAlumnos.Tables("ALUMNOS").NewRow
Try
'Rellenar los campos de la tabla
fila("matricula") = txtMatricula.Text()
fila("nombre") = txtNombre.Text
fila("apellido") = txtApellido.Text
fila("dirección") = txtDireccion.Text
fila("inscrito") = chkInscrito.CheckState
'se insertan los datos
Me.DsAlumnos.Tables("ALUMNOS").Rows.Add(fila) 'se insertan los datos en el dataset
Me.adapterAlumnos.Update(Me.DsAlumnos.Tables("ALUMNOS")) 'se insertan los datos en la base de datos
MsgBox("Alumno dado de alta")
limpiaCajasTxt()
Catch eEndEdit As Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)

End Try

Dim fila As DataRow	Se declara un objeto de tipo datarow
fila = Me.DsAlumnos.Tables("ALUMNOS").NewRow	Se relaciona el objeto fila con el dataset con los datos de la tabla
fila("matricula") = txtMatricula.Text()	Se le insertan los datos que contengan las cajas de texto en el objeto datarow
Me.DsAlumnos.Tables("ALUMNOS").Rows.Add(fila)	Se insertan los datos en el dataset
Me.adapterAlumnos.Update(Me.DsAlumnos.Tables("ALUMNOS"))	Se insertan los datos a la base de datos
MsgBox("Alumno dado de alta")	Lanza un mensaje de que el alumno fue dado de alta correctamente
limpiaCajasTxt()	Se llama a la función que limpia las cajas de texto
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)	Manda un mensaje de error si el alumno no fue dado de alta en la base de datos

Por ultimo agrega la ultima función que es limpiaCajasTxt() poniendo el siguiente código:

Private Sub limpiaCajasTxt()
txtMatricula.Text = ""
txtNombre.Text = ""
txtApellido.Text = ""
txtDireccion.Text = ""
chkInscrito.Checked = False

End Sub
Esta función limpia las cajas de texto de los últimos datos que se le hayan metido. Listos para ingresar un nuevo alumno si es necesario.

Ejercicio:
Haz las altas de las materias y de los inscritos, inserta las cajas de texto que sean necesarios.
Recuerda que para cada formulario de altas es necesario hacer una conexión a la tabla indicada.