| 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 guardar los datos filtrados a otra tabla en Access
    Conocer cómo guardar la información de una tabla a otra tabla le puede ahorrar tiempo en la transferencia de datos en una base de datos. Microsoft Office Access es un sistema de gestión de base de datos relacional incluido en la suite de Microsoft Office. Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación desarrollado por Microsoft . VBA se puede utilizar en el acceso a automatizar los procesos de lo contrario realizados manualmente . En pocos pasos se puede escribir código VBA para consultar datos de una tabla y guardarla en otra tabla. Instrucciones
    1

    Inicio Microsoft Office Access 2007 y seleccione "Base de datos en blanco ", y luego haga clic en " Crear". Haga clic en " Herramientas de base de datos ", seleccione "Basic . Visual "

    2 Haga clic en el campo " Insertar" y seleccione " Módulo ".

    Copia y pega el siguiente código en el módulo :

    createNewTable Sub Private ()

    rst As Recordset

    db As Database

    sqlstr dévil como secuencia

    sqlstr = "CREATE TABLE CustomerInfo ( TEXTO Nombre ( 25 ) , TEXTO Apellidos ( 25 )); "

    DoCmd.RunSQL ( sqlstr )

    sqlstr = "INSERT INTO CustomerInfo ( [ Nombre] , [Apellidos ] ) "

    sqlstr = sqlstr &" VALUES ( 'John ', ' Williams '); "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sqlstr ) < br >

    sqlstr = "INSERT INTO CustomerInfo ( [ Nombre] , [ Apellidos] ) "

    sqlstr = sqlstr & " VALUES ( 'Charles ', ' González '); "

    DoCmd . EstablecerAdvertencias False

    DoCmd.RunSQL ( sqlstr )

    sqlstr = " CustomerInfo.FirstName SELECT "

    sqlstr = sqlstr & " CustomerInfo.LastName EN CharlesInfo "

    sqlstr = sqlstr y "FROM CustomerInfo "

    sqlstr = sqlstr & " WHERE ( ( ( CustomerInfo.FirstName ) = ' Charles ')) ; "

    DoCmd.SetWarnings False < br >

    DoCmd.RunSQL ( sqlstr )

    End Sub
    3 Pulse

    "F5 " para ejecutar la subrutina . El código creará una nueva tabla y agregue dos nuevos registros de datos. Una nueva tabla se creará en " Nombre" es igual a " Charles ".

    Previous :

    next :
      Artículos relacionados
    ·Cómo escribir una Clase Dispose con Visual Basic 
    ·Cómo leer correo electrónico mediante VBA 
    ·Cómo eliminar algo de un cuadro de lista en Visual Bas…
    ·Cómo calcular Comisión Usando Looping 
    ·Cómo enviar y recibir un SMS con VB 6 
    ·Cómo hacer un Basic 2005 Nombramiento Calendario Visua…
    ·Cómo actualizar los registros ODBC en Visual Basic 6 
    ·Cómo comprobar si un recurso compartido tiene permisos…
    ·Cómo crear un cuadro de texto en Visual Basic 
    ·Cómo acceder a una base de datos en otro PC en VB6 
      Artículos destacados
    ·¿Qué es Python 2.2.3 
    ·Cómo agregar Buscar Cajas de barras de exploración Te…
    ·Cómo introducir una cadena desde el teclado 
    ·Cómo ocultar la barra de direcciones de JavaScript 
    ·Funciones de una franja de mesa 
    ·Cómo quitar las anotaciones de código Java 
    ·Cómo escribir un Registro en Visual Basic 
    ·Cómo acceder a una VBA Incremental Record Search 
    ·¿Qué es estricta comprobación de tipos 
    ·Cómo hacer un chat sin necesidad de Java 
    Copyright © Conocimientos Informáticos http://ordenador.wingwit.com