| 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 ejecutar parámetros de una consulta DAO en Access VBA
    Microsoft Office Access es un sistema de gestión de base de datos relacional utilizada para 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 rutinarios. Una consulta se utiliza para recuperar datos de las tablas de bases de datos . Puede crear una consulta para actualizar también los datos en una tabla de base de datos. En 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 acceder a la actualización. Instrucciones
    1

    Abra la base de datos Access Northwind Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office.

    2 Haga clic en " Herramientas de base de datos ", seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el campo " Insertar" y seleccione " Módulo ".
    3

    Copia y pega el siguiente código 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 ()

    título dévil como secuencia

    db As DAO.Database

    primera Dim As
    DAO.Recordset

    qry dévil como secuencia
    título

    = "La consulta DAO "

    Set db = CurrentDb ()

    qry = "Los empleados Actualización Configurar empleados . [ móvil] = '210 -999-999 "

    qry = qry &" WHERE ( ( ( Employees. [ Apellido ] ) = ' Cencini ')) ; "

    DoCmd.SetWarnings
    False < p> DoCmd.RunSQL ( qry )

    título Debug.Print & " : SQL Update paramenter consulta: " & _

    vbNewLine & "" & qry

    qry = " seleccionar a los empleados . [ Apellido ] , los empleados . [ móvil] "

    qry = qry y " FROM Empleados "

    qry = qry &" WHERE ( ( ( Employees. [ Apellido ] ) = ' Cencini ')) ; "

    título Debug.Print &" : consulta SQL : "& _

    vbNewLine &" "& qry

    'Ejecutar el qry y crear un registro conjunto

    set rst = db.OpenRecordset ( qry )

    título Debug.Print & " : Recuperar información de esquema para el resultado conjunto dado : "

    para i = 0 To rst.Fields.Count - 1

    Debug.Print "

    Previous :

    next :
      Artículos relacionados
    ·Cómo escribir secuencias de comandos VBS para modifica…
    ·Cómo programar el botón Calcular en Vb.Net 
    ·Cómo calcular el total de la columna de DataGrid 
    ·Cómo cambiar el color de la cuadrícula 
    ·Cómo utilizar el cuadro de Autocompletar en WPF 
    ·Cómo crear una barra de progreso 
    ·Cómo hacer un menú desplegable o Tab en Visual Basic …
    ·Cómo utilizar el control de Windows Forms en WPF 
    ·Cómo detener un bucle en Visual Basic 6 
    ·Cómo hacer fotos Scroll 
      Artículos destacados
    ·Cómo usar PHP Mailer 
    ·Cómo utilizar el cuadro de texto en Visual Basic 6.0 
    ·Cómo quitar acentos en una cadena de VB6 
    ·Cómo recuperar una matriz de MySQL 
    ·Error de sintaxis durante la depuración 
    ·Cómo publicar en JSON en ColdFusion 
    ·Cómo leer de un flujo de entrada en Java 
    ·Cómo hacer un script de Greasemonkey de usuario 
    ·Cómo hacer un ordenamiento de burbuja 
    ·Cómo crear una calculadora de GPA en Visual Basic 2008…
    Copyright © Conocimientos Informáticos http://ordenador.wingwit.com