Cómo ejecutar una consulta de Microsoft Access desde Visual Basic

Conocer la forma de ejecutar Microsoft Office Access consultas utilizando Visual Basic.NET (VB.NET) le puede ahorrar tiempo si se trabaja con una base de datos. 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 orientado a objetos utilizado para crear aplicaciones de Windows. Una consulta de acción se utiliza para realizar cambios en una base de datos existente. En unos pocos pasos se puede escribir código VB.NET para ejecutar consultas de acción para crear y eliminar una tabla en una base de datos.

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." Pulse la tecla "Ctrl" y "A" a continuación, pulse "Borrar" para eliminar el código actual.

2 Copia y pega el código siguiente para su módulo "Module1.vb" para ejecutar una consulta y crear una tabla en la base de datos Northwind a continuación, ejecutar otra consulta y eliminar la tabla que se creó. La base de datos Northwind se incluye en el paquete de Microsoft Office.

Imports System.Data.OleDb

Module Module1

Sub Main()

myConnToAccess tenue Como OleDbConnection

MySqlCommand tenue Como OleDbCommand

Dim como secuencia mySQLStrg

myConnToAccess = nuevo OleDbConnection ( "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C: \ Neptuno 2007.accdb;")

myConnToAccess.Open ()

mySQLStrg = "CREATE tableToDelete TABLA ([Índice] NÚMERO, [Desc] TEXTO);"

MySqlCommand = New OleDbCommand (mySQLStrg, myConnToAccess)

mySQLCommand.ExecuteNonQuery ()

MsgBox ( "tableToDelete se ha creado en su base de datos Neptuno")

mySQLStrg = "DROP TABLE tableToDelete;"

MySqlCommand = New OleDbCommand (mySQLStrg, myConnToAccess)

mySQLCommand.ExecuteNonQuery ()

MsgBox ( "tableToDelete ha sido eliminado")

myConnToAccess.Close ()

End Sub

Módulo fin

3 Editar la siguiente línea de código y escriba la ruta de acceso a la base de datos:

OleDbConnection ( "Provider = Microsoft.ACE.OLEDB.12.0; Data

Fuente = C: \ Neptuno 2007.accdb; ")

Pulse la tecla "F5" para ejecutar el programa.