| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    Come salvare i dati filtrati da un'altra tabella in Access
    Sapere come salvare le informazioni da una tabella a un'altra tabella consente di risparmiare tempo durante il trasferimento di dati in un database . Microsoft Office Access è un sistema di gestione di database relazionali incluso nella suite Microsoft Office . Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione sviluppato da Microsoft . VBA può essere utilizzato in Access per automatizzare i processi altrimenti eseguite manualmente . In pochi passi è possibile scrivere codice VBA per interrogare i dati da una tabella e salvarlo in un'altra tabella . Istruzioni
    1

    Avviare Microsoft Office Access 2007 e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic ".
    2

    Fare clic sul campo "Inserisci" e selezionare " Modulo ".

    Copia e incolla il seguente codice nel tuo modulo :

    createNewTable private Sub ( ) per

    Dim rst come Recordset

    Dim db As Database Dim

    sqlstr As String

    sqlstr = "CREATE TABLE CustomerInfo ( TESTO Nome ( 25 ) , testo Cognome ( 25) ) ; "

    DoCmd.RunSQL ( sqlstr ) per

    sqlstr = " INSERT INTO CustomerInfo ( [Nome] , [Cognome ] ) "

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

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sqlstr ) < br >

    sqlstr = " INSERT INTO CustomerInfo ( [Nome] , [ Cognome] ) "

    sqlstr = sqlstr & " VALUES (' Carlo ', ' Gonzalez '); "

    DoCmd . SetWarnings False

    DoCmd.RunSQL ( sqlstr ) per

    sqlstr = " CustomerInfo.FirstName SELECT, "

    sqlstr = sqlstr & " CustomerInfo.LastName INTO CharlesInfo "

    sqlstr = sqlstr & "FROM CustomerInfo "

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

    DoCmd.SetWarnings False < br >

    DoCmd.RunSQL ( sqlstr ) per

    End Sub
    3

    Premere " F5 " per eseguire la subroutine . Il codice crea una nuova tabella e aggiungere due nuovi record di dati. Una nuova tabella verrà creata dove " Nome " è uguale a " Charles ".

    Previous :

    next :
      Articoli Correlati
    ·Progetto VBA non verrà aggiornata 
    ·VBA Coding Tricks 
    ·Come nascondere le colonne generate automaticamente 
    ·Visual Basic 6 Step-by -Step 
    ·Come eseguire una query di Access in VB 
    ·Come utilizzare Telnet Con VB6 
    ·Come leggere porte seriali utilizzando Visual Basic 
    ·Come creare documenti Word usando VB6 
    ·Come trovare il numero di righe in un Lettore di dati S…
    ·Tutorial di Visual Basic Application 
      Articoli in evidenza
    ·Come fare un Mailer modulo PHP che Auto Reindirizza ad …
    ·Come utilizzare QBASIC nel trovare la inversa di una ma…
    ·Come scrivere un semplice programma DB2 
    ·Come formattare la larghezza di galleggianti in Java 
    ·Come aggiungere un immagine in un file PHP 
    ·MySQL Replication Tutorial 
    ·Come aggiungere a un array in VBA 
    ·Tutorial per brevi URL Servizi in PHP 
    ·Come leggere RSS Con VBScript 
    ·Come modificare una foto in PHP 
    Copyright © Conoscenza Informatica http://it.wingwit.com