Cómo utilizar variables en una consulta de Access VBA

Las consultas son una herramienta poderosa en Microsoft Access para recuperar información de una tabla de base de datos y tener el conocimiento sobre el uso de las variables en las consultas se pueden realizar su solicitud de acceso más dinámico. En VBA se puede construir sentencias SQL que contienen variables como variables de cadena para recuperar los datos. Una vez que construir la instrucción SQL, puede utilizar el objeto Recordset para recuperar los resultados de la consulta. Las variables de usuario en lugar de pasar el tiempo la construcción de muchas sentencias SQL con criterios no modificables.

Instrucciones

1 Comience por crear un nuevo procedimiento sub usando el siguiente código:

Private Sub useVariablesInQuery ()

2 Escriba el siguiente código para crear las variables que va a utilizar en su consulta:

Dim como secuencia strSQL

Dim como secuencia companyName

Dim como secuencia lastName

Dim primera medida de registros

DBS dévil como Base de Datos

Set dbs = CurrentDb

3 Escribe lo siguiente para definir los valores de las variables utilizadas en su consulta:

companyName = "Los comerciantes de Northwind"

lastName = "Freehafer"

4 Escribe lo siguiente para crear una consulta utilizando las variables en el paso anterior:

strSQL = "SELECT Employees.Company, empleados. [Apellido], empleados. [Nombre],"

strSQL = strSQL y "Los empleados. [E-mail]"

strSQL = strSQL y "de los empleados"

strSQL = strSQL & "WHERE (((Employees.Company) = '" & (companyName) & "')"

strSQL = strSQL & "Y (. (Los empleados [Apellido]) = '" & (lastName) & "'));"

5 Escribe lo siguiente para abrir un conjunto de registros y mostrar los resultados de su consulta:

Establecer primera = dbs.OpenRecordset (strSQL)

Debug.Print rst.Fields (0) .Value

Debug.Print rst.Fields (1) .Value

Debug.Print rst.Fields (2) .Value

Debug.Print rst.Fields (3) .Value

6 Escriba el siguiente procedimiento para poner fin a su substitución:

rst.Close

dbs.Close

End Sub

7 Pulse la tecla "F5" para ejecutar el código.