Las conexiones a bases de datos mediante OleDB en Visual Basic .NET suponen añadir una capa más ya que no hablamos directamente con el motor de la base de datos sino que lo hace el driver oledb por nosotros.
Para realizar nuestro código mas comprensible y para mayor comodidad para nosotros generaremos una cadena de conexión al abrirse la aplicación y la iremos llamando siempre que la precisemos. Así nos ahorraremos tener que escribir esta cadena en todos los formularios que ataquen de cualquier manera a la base de datos.
En primer lugar importaremos el espacio con nombre (Namespace) System.Data.Oledb haciendo clic con el botón derecho sobre el nombre de la solución y seleccionando Propiedades, después seleccionaremos Importación escribiremos System.Data.Oledb en el cuadro de texto espacio de nombres y pulsaremos el botón Agregar importación. Con esto tendremos este espacio con nombre disponible en todo nuestro proyecto.
Añadiremos un modulo al proyecto y lo llamaremos modGlobal, en el insertaremos el siguiente código:
- Module modGlobal
- Public Conexion As New OleDbConnection 'conexión unica
- Public Const strProv = "Provider=Microsoft.Jet.OLEDB.4.0"
- End Module
Aquí tendremos nuestra variable de conexión llamada Conexión que en este caso es del tipo OleDbConnection, esta variable la iniciaremos cuando arranque la aplicación y la llamaremos siempre que sea preciso, y tenemos una constante strProv que utilizaremos para crear nuestra cadena de conexión. En esta constante ponemos el proveedor (driver) para la conexión.
Para arrancar nuestra supuesta aplicación utilizaremos un formulario para solicitar al usuario el nombre de la base de datos a la que desea conectarse. El formulario podría ser algo así:
El usuario insertara el nombre path completo de la base de datos y si lo desconoce lo buscara pulsando el botón con los tres puntos, después pulsara el botón Aceptar y nosotros usaremos la información que ha incluido de la siguiente manera, el código quedaría así:
- Private Sub cmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click
- Dim strCon As String'Asignaremos a Data Source el path que el usuario a escrito en la caja de texto txtPath
- strCon = strProv & ";Data Source=" & txtPath.Text
- 'y de este modo completaremos la cadena de conexión para la base de datos de Access
- 'abrimos un gestor de errores
- Try
- Conexion = New OleDbConnection
- 'asignamos a la propiedad ConnectionString del objeto OleDbConnection la cadena de conexión
- Conexion.ConnectionString = strCon
- 'y abrimos la conexión para comprobar que funciona correctamente
- Conexion.Open()
- 'informamos al usuario del éxito de la conexión, cerramos la conexión y obramos en consecuencia
- MsgBox("Conexión con Base de Datos realizada", MsgBoxStyle.Information, "Información del Sistema")
- Conexion.Close()
- Catch errores As Exception
- 'Si la conexión no funciona informamos al usuario del error y obramos en consecuencia
- MsgBox(errores.ToString)
- End Try
- End Sub
Enlaces interesantes
- Descargar programas de Visual Basic .NET
