Northwind base de datos
Ver Más 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 :
strSQL As String Dim
companyName As
secuencia
lastName dévil como secuencia
rst As Recordset
Dim dbs como base de datos
Set dbs = CurrentDb
3
escriba lo siguiente para definir los valores de las variables utilizadas en la consulta :
companyName = " Neptuno "
lastName = " Freehafer "
4
escriba el después de crear una consulta utilizando las variables en el paso anterior :
strSQL = " . . SELECT Employees.Company , Trabajadores [ Apellido ] , los empleados [ Nombre ] , "
strSQL = strSQL & " Los empleados . [ E - mail] "
strSQL = strSQL & " FROM Empleados "
strSQL = strSQL & " WHERE ( ( ( Employees.Company ) = '" & ( companyName ) & " ')"
strSQL = strSQL & " AND ( ( Employees. [ Apellido ] ) =" "y ( lastName ) &" " )); "
5 < p > Escriba el siguiente para abrir un conjunto de registros y mostrar los resultados de la consulta :
Set rst = dbs.OpenRecordset ( strSQL )
Debug.Print rst.Fields ( 0 ) Valor < . br>
Debug.Print rst.Fields ( 1 ) . Valor
Debug.Print rst.Fields ( 2 ) . Valor
Debug.Print rst.Fields ( 3 ) . Valor
6
Escriba lo siguiente para terminar su procedimiento sub :
rst.Close
dbs.Close
End sub
7
Press "F5 " para ejecutar el código .