Tecnología

Inicio

Cómo Ejecutar parámetros en una consulta DAO en Access VBA

Cómo Ejecutar parámetros en una consulta DAO en Access VBA


Microsoft Office Access es un sistema de gestión de base de datos relacional de uso común para las bases de datos más pequeñas y locales. Visual Basic para aplicaciones, también conocido como VBA, es un lenguaje de programación utilizado para automatizar los procesos de rutina. Una consulta se utiliza para recuperar datos de las tablas de base de datos. Se puede construir una consulta para actualizar también los datos en una tabla de base de datos. En unos pocos pasos se puede escribir código VBA para ejecutar una consulta de actualización y también crear una consulta de selección para ver la actualización.

Instrucciones

1 Abra la base de datos Neptuno Microsoft Office Access. La base de datos Northwind se incluye en el paquete de Microsoft Office.

2 Haga clic en "Herramientas de base de datos", a continuación, seleccione "Visual Basic" para abrir la ventana de Visual Básico Microsoft. Haga clic en el "insertar" y seleccione "Módulo".

3 Copia y pega el código siguiente en el nuevo módulo para actualizar la tabla empleados y luego ver la actualización con una consulta de selección.

Public Sub DAOQuery ()

Dim title As String

Dim db Como DAO.Database

Dim primera medida DAO.Recordset

Dim como secuencia qry

title = "DAO consulta"

Set db = CurrentDb ()

qry = "Actualización empleados establecen empleados. [móvil] = '210-999-999'"

qry = qry y "WHERE (((Empleados [Apellido]) = 'Cencini').);"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (qry)

Debug.Print título & ": Actualización de SQL paramenter consulta:" & _

vbNewLine y "" y qry

qry = "SELECT empleados. [Apellido], empleados. [móvil]"

qry = qry y "de los empleados"

qry = qry y "WHERE (((Empleados [Apellido]) = 'Cencini').);"

Debug.Print título & ": consulta SQL:" & _

vbNewLine y "" y qry

'Run the qry y crear un conjunto de registros

Establecer primera = db.OpenRecordset (qry)

título y Debug.Print ": Recuperar información de esquema para el conjunto de resultados dado:"

Para i = 0 Para rst.Fields.Count - 1

Debug.Print "|" & rst.Fields (i) .Nombre

Siguiente yo

Debug.Print título & ": Recuperar los datos reales:"

Aunque no hacer rst.EOF

Debug.Print "|" y primera [Apellido] & "|" y primera [móvil]!

rst.MoveNext

Lazo

título y Debug.Print ": Total Número de filas:" & rst.RecordCount

título y Debug.Print ": limpieza de Hecho.".

rst.Close

db.Close

End Sub

4 Ejecutar la subrutina presionando "F5".