| 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 extraire les numéros dans une requête d'accès
    Microsoft Office Access est un système de gestion de base de données relationnelle couramment utilisé pour les bases de données locales plus petites . L'accès est inclus dans la suite Microsoft Office et fournit tous les outils nécessaires pour gérer une base de données relationnelle . Une requête est utilisée pour récupérer des informations à partir des tables de base de données . D'extraire les numéros d'une requête d'accès est réalisé de la même manière que vous voulez extraire d'autres types de données. Une façon d' extraire des données est d'utiliser Visual Basic pour Applications. En quelques étapes , vous pouvez écrire du code VBA, extraire des numéros à partir d'une requête, et les afficher dans la fenêtre de sortie . Choses que vous devez
    Microsoft Office Access
    Northwind base de données
    Afficher plus Instructions
    1

    Ouvrez la base de données Access Northwind Microsoft Office . La base de données Northwind est inclus dans la suite Microsoft Office.
    2

    Cliquez sur " Database Tools ", puis sélectionnez " Visual Basic " pour ouvrir la fenêtre de Microsoft Visual Basic . Cliquez sur le menu "Insertion " et sélectionnez " Module ".
    3

    Copiez et collez le code suivant dans votre nouveau module pour interroger la table "Produits" et extraire les numéros dans le " Réorganiser niveau " champ supérieur à 15 :

    extractNumbers Private Sub ()

    de strSQL Dim As String

    rst As Recordset

    Dim dbs As Database < br >

    Set dbs = CurrentDb

    strSQL = " SELECT produits . [ Nom du produit ] , les produits . [ SEUIL DE COMMANDE ] "

    strSQL = strSQL & " FROM Products "
    < p> strSQL = strSQL & " WHERE ( ( ( Products. [ SEUIL DE COMMANDE ] ) > 15) ) ; "

    Set rst = dbs.OpenRecordset ( strSQL )

    rst.MoveLast

    rst.MoveFirst

    Debug.Print " SEUIL DE COMMANDE > 15: "

    Do While Not rst.EOF

    Debug.Print " Nom du produit: "& rst.Fields (0 ) Valeur

    Debug.Print ". "

    Debug.Print " Numéro de commande de niveau: " . & rst.Fields (1) Valeur
    < p > rst.MoveNext

    boucle

    End Sub

    Previous :

    next :
      articles connexes
    ·Comment masquer une colonne De FlexGrid dans Visual Bas…
    ·Comment ouvrir une application Windows en utilisant Vis…
    ·Comment créer une commande qui efface le texte en Visu…
    ·Comment calculer l'intérêt simple dans Visual Basic 
    ·Comment faire pour créer des navigateurs Web dans Visu…
    ·Comment imprimer des données dans VB.NET 
    ·Comment ajouter un bloc de MSG 
    ·Comment faire pour convertir VBA pour Python 
    ·Comment passer à différentes formes dans VB6.0 
    ·Comment faire un PictureBox modifiable utilisateur en V…
      articles en vedette
    ·Comment générer UML à partir du code Java 
    ·Comment construire logique de programmation 
    ·Comment arrêter un VBA Boucle Break 
    ·Comment appeler une méthode qui retourne une chaîne e…
    ·Comment faire un Clicker automatique dans Visual Basic …
    ·Différences entre HTML 5 et HTML 4 
    ·Comment lier des données en mode Grille 
    ·Comment faire une lettrine première lettre en HTML 
    ·Comment utiliser JavaScript pour créer un premier fact…
    ·Comment analyser un fichier CSV à l'aide VB 
    Copyright © Connaissances Informatiques http://fr.wingwit.com