Cóm usar variables en una petición de Access VBA

Escrito por jaime avelar | Traducido por eduardo moguel
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cóm usar variables en una petición de Access VBA
Construye declaraciones SQL usando variables en VBA. (Jupiterimages/Photos.com/Getty Images)

Las peticiones son una poderosa herramienta de Microsoft Access que sirve para recuperar información de las tablas de bases de datos y el saber cómo usar variables en estas peticiones puede hacer que tu aplicación de Access sea más dinámica. En VBA puedes construir declaraciones SQL que contenga variables, como variables de cadena, para recuperar datos. Una vez que elabores tu declaración SQL puedes usar el objeto Recordset para recuperar los resultados de la petición. Usa variables en lugar de perder tiempo construyendo muchas declaraciones SQL con criterios de código inflexibles.

Nivel de dificultad:
Moderado

Otras personas están leyendo

Necesitarás

  • Base de datos Northwind

Lista completaMinimizar

Instrucciones

  1. 1

    Comienza creando un nuevo sub-procedimiento mediante el siguiente código:

    Private Sub useVariablesInQuery()

  2. 2

    Teclea el siguiente código para crear las variables que usaras en tu petición:

    Dim strSQL As String Dim nombrecompañía As String Dim apellido As String Dim rst As Recordset Dim dbs As Database Set dbs = CurrentDb

  3. 3

    Teclea lo siguiente para definir los valores de tus variables usadas en la petición:

    nombrecompañía = "Northwind Traders" apellido = "Freehafer"

  4. 4

    Teclea lo siguiente para crear una petición que utilice las variables del paso anterior:

    strSQL = "SELECT Empleados.Compañía, Empleados.[Apellidos], Empleados.[Primer nombre], " strSQL = strSQL & "Empleados [correo electrónico " strSQL = strSQL & "FROM Empleados " strSQL = strSQL & "WHERE (((Empleados.Compañía)='" & (nombrecompañía) & "')" strSQL = strSQL & "AND ((Empleados[Apellido])='" & (apellido) & "'));"

  5. 5

    Teclea el siguiente código para abrir un comando Recordset y mostrar los resultados de la petición:

    Set rst = 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. 6

    Teclea lo siguiente para terminar tu sub-procedimiento:

    rst.Close dbs.Close End Sub

  7. 7

    Presiona "F5" para ejecutar tu código.

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles