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
Todo Access VBA 