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