| Casa | Hardware | Redes | Programación | software | Criticar | Sistemas |   
Programación  
  • C /C + + Programming

  • Lenguajes De Programación

  • Delphi Programación

  • Programación Java

  • JavaScript Programación

  • Programación PHP /MySQL

  • Perl Programming

  • Python Programming

  • Rubí Programación

  • Visual Basics Programación
  •  
    Conocimientos Informáticos >> Programación >> Visual Basics Programación >> Content
    Cómo crear un pase de acceso a parámetros de consulta en VBA
    Crear consultas de parámetro con Microsoft Access VBA (Visual Basic para Aplicaciones ) implica el uso de objetos predefinidos de acceso , incluyendo el QueryDef y objetos de base de datos . La cadena de consulta utilizado con estos objetos es el mismo que se utiliza al crear consultas de Access sin VBA (por ejemplo , "SELECT * FROM mitabla DONDE micampo = [ user_entered_parameter ]" ) . Cosas que necesitará
    Microsoft Access
    Ver Más instrucciones
    1

    Open Access y crear una tabla de datos de la muestra con las siguientes filas . Introduce el texto de la primera fila como nombres de campo de la tabla . Para reservar en

    , datesold , palabras netsalefurthering , 12/1/2009 , $ 5.03furthering palabras , 12/3/2009 , $ 4.97der meisterstringer , 12/5/2009 , $ 1.97der meisterstringer , 12/6/2009 , $ 0.97
    2

    Guarde la tabla como " libros", a continuación, entrar en el IDE de Visual Basic ( Integrated Development Environment) con la tecla " Alt- F11. "
    3

    Haga clic en " Insertar ", seguido de " módulo "en la barra de herramientas del IDE , a continuación, pegue el código siguiente en la ventana de código :

    Pública Sub param_q_select () Dim db Como DAO.DatabaseDim qd Como DAO.QueryDefDim sqry Como StringSet db = CurrentDbsqry = "select * FROM libros DONDE libro como [Enter título del libro ]" Set qd = db.CreateQueryDef ( " qpSelect " , sqry ) End Sub
    4

    Ejecute la macro colocando el cursor en cualquier lugar dentro de este subprograma y presionando "F5 ".
    5

    Volver al acceso y cierre la navegación ventana de la izquierda si está abierto . Vuelva a abrir la ventana y observe la nueva consulta almacenada ( " qpSelect ") . Haga doble clic en esta consulta para ejecutarlo, y escribe " * piel * " en el indicador. Observe los resultados de la consulta : sólo las filas con "palabras Fomento " se muestran
    6

    Volver al IDE con la tecla " Alt -F11 ", y ejecutar la macro siguiendo las instrucciones del Paso 4 . . Observe el error que aparece en esta ocasión ( "Object " qpSelect 'ya existe ")
    7

    Revisar el código para prevenir el error reemplazándolo con este código: .

    Pública Sub param_q_select () Dim db Como DAO.DatabaseDim qd Como DAO.QueryDefDim sqry Como StringSet db = CurrentDbOn Error GoTo skip_deletedb.QueryDefs.Delete " qpSelect " skip_delete : sqry = "select * FROM libros DONDE libro como [Enter título del libro ] "Set qd = db.CreateQueryDef ( " qpSelect " , sqry ) End Sub
    8

    volver a ejecutar el código con instrucciones paso de 4 . Tenga en cuenta que no hay ningún error esta vez
    9

    Revisar la macro para que el usuario del programa puede elegir qué campo para crear una consulta de parámetros a partir de: . Copiar la subrutina param_q_select completo y pegarlo en un área en blanco de la ventana de código . Cambie el nombre duplicado como param_q_choose_field
    10

    Reemplace el código del programa existente de param_q_choose_field , entre " el error ..." y declaraciones "End Sub " . Escriba o pegue este código en su lugar:

    Dim sfsf = InputBox ( " Escriba el nombre de campo ") sqry = "select * FROM libros WHERE" y sf & " como [ ENTER" y sf y "] " On Error GoTo skip_deletedb.QueryDefs.Delete " qpSelect " skip_delete : Set qd = db.CreateQueryDef ( " qpSelect " , sqry ) End Sub
    11

    Re - ejecutar la subrutina usando las instrucciones del Paso 4 y tipo " netsale " cuando el "Enter campo de nombre " aparece pronto .
    12

    ejecutar la consulta creado por la subrutina usando las instrucciones del Paso 5 . Sin embargo , introduzca "* 0 * " cuando se le solicite para el parámetro netsale . Pulse el botón " Enter" y reconocen que sólo las filas cuyo campo " netsale " contiene un "0 " se devolvieron .

    Previous :

    next :
      Artículos relacionados
    ·Cómo hacer una barra de progreso en la repetición de …
    ·Cómo cambiar el color de la cuadrícula de datos en Vi…
    ·Cómo utilizar DrawLine en VB.NET 
    ·Cómo cambiar el texto de cabecera 
    ·Cómo utilizar Listview en VB 6.0 
    ·Cómo copiar carpetas Uso de VBA 
    ·Cómo usar LAME en Visual Basic 
    ·Cómo hacer que funcione más rápido MS Access en un p…
    ·Cómo guardar la lista de elementos de cuadro en un obj…
    ·Cómo acceder a los informes en VB 
      Artículos destacados
    ·Cómo convertir porcentajes a decimales en Cold Fusion 
    ·Cómo eliminar una nueva línea y el espacio en PHP 
    ·Cómo limpiar el código Java 
    ·Cómo utilizar la función HEAPSIZE 
    ·¿Cómo puedo compilar y correr Mis archivos Vb.Net en …
    ·Apache Thrift PHP es lenta 
    ·Cómo hacer galletas de ordenador 
    ·Cómo convertir de Java para PHP 
    ·Cómo crear un conjunto de datos jerárquica 
    ·Cómo insertar una marca de tiempo en PHP MySQL 
    Copyright © Conocimientos Informáticos http://ordenador.wingwit.com