Cómo utilizar una llamada de acceso de VB para una consulta

Conocer cómo consultar una tabla de base de datos Access utilizando Microsoft Visual Basic.NET puede hacer que su aplicación de Windows más dinámico. El acceso es un sistema de gestión de base de datos relacional incluido en el paquete de Microsoft Office. VB.NET es un lenguaje de programación utilizado para crear aplicaciones de Windows. En unos pocos pasos, puede crear una aplicación VB.NET para acceder a la base de datos Neptuno incluida con MS Office y consultar la tabla de clientes.

Instrucciones

1 Abra Microsoft Visual Basic Express y haga clic en "Nuevo proyecto ..." en el panel izquierdo de la pantalla. Haga doble clic en "Aplicación de consola."

2 Escriba lo siguiente en la primera línea de "Module1.vb":

Imports System.Data.OleDb

3 Escriba el siguiente abajo "Sub Main ()" para declarar las variables:

Dim conn Como OleDbConnection

Dim strSQL As String

ds dévil como conjunto de datos

Dim como secuencia tmpStr

4 Escribe lo siguiente para crear una nueva consulta de selección para consultar la tabla "clientes":

strSQL = "SELECT Customers.* FROM Customers;"

conn = new OleDbConnection _

( "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = F: \ DemandStudios \ Archivo \ Neptuno 2007.accdb;")

5 Escriba lo siguiente para crear una nueva conexión a la base de datos:

Dim myConnection As OleDbConnection = New OleDbConnection

Dim da Como OleDbDataAdapter

da = Nueva OleDbDataAdapter (strSQL, conn)

ds = nuevo conjunto de datos

6 Escriba lo siguiente para recorrer todos los registros devueltos por la consulta y guardarlos en una variable de cadena:

da.Fill(ds, "Customers")

Para cada rowCust En ds.Tables ( "clientes"). Las filas

tmpStr = tmpStr y rowCust ( "Compañía") ToString () y. "|"

tmpStr = tmpStr y rowCust ( "Apellido") ToString () y. "|"

tmpStr = tmpStr y rowCust ( "Nombre") ToString () y. "|" y vbLf

Siguiente

7 Escriba el siguiente a la salida de los resultados a la ventana de la consola:

System.Console.Write (tmpStr)

MsgBox ( "Hecho!")

8 Escriba lo siguiente para terminar la conexión de base de datos:

myConnection.Close()

Pulse la tecla "F5" para ejecutar el programa.