| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Comment faire pour enregistrer des données filtrées à une autre table dans Access
    Savoir comment enregistrer des informations d'une table à une autre table peut vous faire gagner du temps lors du transfert de données dans une base de données . Microsoft Office Access est un système de gestion de base de données relationnelle inclus dans la suite Microsoft Office . Visual Basic pour Applications ( VBA) est un langage de programmation informatique développé par Microsoft. VBA peut être utilisé dans Access pour automatiser les processus autrement effectuées manuellement . En quelques étapes, vous pouvez écrire du code VBA pour interroger les données d'une table et l'enregistrer dans une autre table. Instructions
    1

    Démarrer Microsoft Office Access 2007 et sélectionnez « Nouvelle base de données ", puis cliquez sur " Créer". Cliquez sur " Database Tools ", puis sélectionnez " Visual Basic. "
    2

    Cliquez sur le champ " Insert" et sélectionner "Module ".

    Copiez et collez le code suivant dans votre module : Photos

    createNewTable Private Sub ()

    rst As Recordset

    db As Database

    sqlstr Dim As String

    sqlstr = "CREATE TABLE CustomerInfo ( TEXTE Prénom (25) , TEXT NOM (25) ) ; "

    DoCmd.RunSQL ( sqlstr )

    sqlstr = "INSERT INTO CustomerInfo ( [Prénom ] [Nom ] ) "

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

    DoCmd.SetWarnings Faux

    DoCmd.RunSQL ( sqlstr ) < br >

    sqlstr = "INSERT INTO CustomerInfo ( [Prénom ] [ Nom] ) "

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

    Docmd . SetWarnings Faux

    DoCmd.RunSQL ( sqlstr )

    sqlstr = " SELECT CustomerInfo.FirstName , "

    sqlstr = sqlstr & " CustomerInfo.LastName EN CharlesInfo "

    sqlstr = sqlstr & "FROM CustomerInfo "

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

    DoCmd.SetWarnings false < br >

    DoCmd.RunSQL ( sqlstr )

    End Sub
    3 Appuyez sur

    "F5 " pour exécuter votre routine . Le code va créer une nouvelle table et ajouter deux nouveaux records de données. Une nouvelle table sera créée lorsque " Prénom " est égal à " Charles ".

    Previous :

    next :
      articles connexes
    ·Comment utiliser OpenFileDialog dans Visual Basic Expre…
    ·Comment accéder aux tables de mots en utilisant Excel …
    ·Comment créer un fichier dans VBScript 
    ·Comment lier des données à une zone de texte en VB 
    ·Comment faire pour trouver la racine carrée d'un nombr…
    ·Comment créer une étiquette d'affichage Valeur de bar…
    ·Comment régler le curseur syntaxe par défaut dans Vis…
    ·Comment calculer les paiements mensuels en Visual Basic…
    ·Comment calculer la différence entre les fuseaux horai…
    ·Comment puis-je convertir BCD en décimal Visual Basic 
      articles en vedette
    ·Code Java pour les débutants 
    ·Comment faire pour convertir des fichiers vidéo RealPl…
    ·Comment utiliser le Colon en Java 
    ·Comment trouver un caractère dans une chaîne dans Vis…
    ·CVS Tools pour Windows 
    ·Comment utiliser les formulaires modaux en VB6 
    ·Comment copier une commande SQL 
    ·Comment faire pour modifier autocueillette et PYC Fichi…
    ·Comment puis-je créer la table Pivot Avec VBA 
    ·Comment faire pour convertir le format de date 
    Copyright © Connaissances Informatiques http://fr.wingwit.com