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.
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