Cómo acceder a VBA consultas SQL

Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación diseñado por Microsoft y se utiliza para automatizar tareas rutinarias en Access . El acceso es un sistema de gestión de base de datos relacional incluido en la suite de Microsoft Office. Un lenguaje de consulta estructurado de consultas (SQL ) se utiliza para recuperar datos de una tabla de base de datos . Los resultados de la salida de una consulta SQL se accede a través de un objeto Recordset. En pocos pasos se puede escribir código VBA para crear una consulta SQL y visualizar los registros recuperados . Instrucciones
1

Abra la base de datos Access Northwind Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office.

2 Haga clic en " Herramientas de base de datos ", seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el campo " Insertar" y seleccione " Módulo ".
3

Copia y pega el siguiente código en el nuevo módulo para ver el nombre y número de teléfono de la empresa en la tabla "Cliente" :

Private Sub customerQuery ()

strSQL As String Dim

custRst As Recordset

Dim dbs como base de datos

rstCntr Dim As Integer

custStr dévil como secuencia

Set dbs = CurrentDb

strSQL = " SELECT Customers . [ Nombre ] , "

strSQL = strSQL y "Los clientes [ Teléfono de la empresa ] . "

strSQL = strSQL & " FROM Clientes ";

Set custRst = dbs.OpenRecordset ( strSQL )

custRst.MoveLast

custRst.MoveFirst

Para rstCntr = 0 Para custRst.RecordCount - 1

custStr = custStr y custRst.Fields ( 0 ) Calidad & _

"es . un cliente y su teléfono de la empresa es "& custRst.Fields ( 1 ) . Valor y vbCr

custRst.MoveNext

Siguiente rstCntr

MsgBox custStr

custRst.Close

dbs.Close

End Sub
4

Ejecute la subrutina con la tecla " F5 ".