. En la base de todos los métodos de acceso a datos Visual Basic.Net ' s se encuentra ADO.Net . Esta tecnología de acceso de datos fue lanzado en el marco neto inicial. . Se conecta con muchos servidores de bases de datos , como Microsoft Access, ofrece más flexibilidad y proporciona un fuerte control de errores. Conexión a Microsoft Access puede ilustrarse mediante la creación de una sencilla aplicación de consola que enumera los nombres de una base de datos de contactos. Instrucciones
1

Abra Microsoft Access ( 2000 o posterior) y crear una nueva base de datos llamada Contactos. Crear un tblContacts tabla y agregar dos campos de texto, nombre y apellido . Introduzca unas pocas personas en la mesa, luego cierre Access .
2

Abra Visual Basic.Net ( cualquier versión) y crear una nueva aplicación de consola. Agregue la siguiente línea antes de que el módulo de declaración

importaciones System.Data.OleDb

Module Module1

El espacio de nombres OleDb proporciona referencias a los objetos de acceso a bases de datos.
< Br > Página 3

Añada la línea siguiente antes de la instrucción

importaciones System.Data.OleDb

Módulo Module1

el espacio de nombres OleDb proporciona referencias a la base de datos objetos de acceso .
4

Introduzca una cadena de conexión después de la declaración del módulo

connString Private As String = " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = d : \\. contacts.mdb ; "

la cadena de conexión se describe cómo OleDb se comunica con la base de datos . Lla ejemplo utiliza el proveedor Microsoft ACE para comunicarse con el acceso Base de datos

d: \\ contacts.mdb . Cambiar la ubicación para reflejar la base de datos que creó en el paso 1 .
5

Copia el código que aparece abajo en el método Main . Comienza declarando la SearchString variable, que contiene el comando SQL para seleccionar los datos .

Sub Main ()

SearchString As String = "Select Nombre, Apellido Desde tblContacts "
< p> SearchString & = "Ordenar por Apellido, Nombre ; " .
6

establecer una conexión con la base de datos Access con el objeto OleDbConnection

conec Dim As New OleDbConnection
< p> Trate

conn.ConnectionString = connString

conn.Open ()

Catch ex As Exception

Console.WriteLine ( " no se puede abrir la base de datos " )

Console.WriteLine ( ex. Mensaje )

Volver

End Try

utilice siempre excepciones estructuradas ( try /catch ) para atrapar y reporte errores arrojados por los objetos de acceso a datos .
7

Crear comandos y objetos de adaptador de datos y utilizarlos para recuperar los resultados de búsqueda en una nueva estructura de DataSet.

Dim ds As New DataSet

Prueba

cmd As New OleDbCommand ( SearchString , conn)

cmd.CommandType = CommandType.Text

dap dévil como nuevo OleDbDataAdapter
< p> dap.SelectCommand = cmd

dap.Fill (ds )

Catch ex As Exception

Console.WriteLine ( "No se puede ejecutar la búsqueda Pruebe
8

recorrer las filas del conjunto de datos para recuperar los campos Nombre y Apellidos . Desde acceso a un valor nulo provoca una excepción, siempre prueba para los valores nulos antes de recuperarlos .

Console.WriteLine ( " Contacto: " ) .

para cada fila como DataRow En ds.Tables ( 0 ) Filas

Si row.IsNull ( " Nombre" ) = False Then

Console.Write (fila ( " Nombre" ) & "" )

End If

Si row.IsNull ( " Apellido" ) = True Si

Siguiente

WriteLine ( " encontrados " y ds.Tables ( 0 ) . Rows.Count.ToString y "contactos" )

End Sub
< p > End Module