Ya vimos un poco de teoría, es tiempo de pasar al código ADO.NET para iniciar con la practica, algunos conceptos que no entiendan por favor dejen su comentario y les contestare en breve.

Este es un ejemplo simple de una conexión con una base de datos de Access la base de datos que estaremos utilizado será la de Northwind o Neptuno como la quieran llamar.

Estaré explicando los ejemplos paso a paso, estaremos trabajando con módulos y los resultados los observaremos en consola, después aplicaremos lo que aprendimos de las conexiones a objetos de Visual Basic .NET, como DataGridView, CristalReports, etc. Si bien les parece mejor que empecemos en vez de consola con objetos de VB.NET.

Les aconsejo que bajen una versión de prueba del Visual Studio 2005,2008 ó 2010 para realizar los ejemplos y que tengan el Access, con la base de datos de ejemplo, Northwind.

Asegúrense de pegar la base de datos de Access, en la carpeta DEBUG que se encuentra en bin dela capeta del proyecto de consola.

Esto solo muestra las propiedades de la conexión si es exitosa.

Empieza Código:

Imports System.Data.OleDb ‘esta librería es para conectarnos con OLEDB

Module ConexionNorthwind

Sub Main()

‘primero tenemos que crear un objeto connection

Dim conn As New OleDbConnection

‘después establecemos la cadena de conexión, estableciendo el proveedor y el origen de datos

conn.ConnectionString = «Provider = Microsoft.Jet.OLEDB.4.0;» & _

«Data Source = » & CurDir() & «\Northwind.mdb» ‘CurDir, obtiene la carpeta actual

‘se utiliza po si tenemos para tratamiento de error por si tenemos error en la conexión, no se paralice la aplicación

Try

‘abrimos la conexión

conn.Open()

‘condición si esta abierta la conexión

If conn.State = ConnectionState.Open Then

‘mostramos las propiedades de la conexión

Console.WriteLine(«Se a establecido la conexión»)

Console.WriteLine(«ConnectionString = ‘» & conn.ConnectionString & «‘»)

Console.WriteLine(«ConnectionTimeOut = » & conn.ConnectionTimeout)

Console.WriteLine(«Database = » & conn.Database)

Console.ReadLine() ‘espera hasta que se presione una tecla para avanzar

conn.Close() ‘aquí cerramos la conexión

Else

Console.WriteLine(«La conexión no pudo completarse, esta cerrada»)

End If

Catch ex As Exception

Console.WriteLine(«***Error al intentar conexión***»)

End Try

End Sub

End Module