| 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 accéder à VBA requêtes SQL
    Visual Basic pour Applications ( VBA) est un langage de programmation informatique conçu par Microsoft et utilisé pour automatiser des tâches de routine dans Access. Access est un système de gestion de base de données relationnelle inclus dans la suite Microsoft Office . Un langage de requêtes ( SQL) Structured Query est utilisé pour récupérer des données d'une table de base de données. Les résultats de sortie d'une requête SQL sont accessibles par un objet Recordset . En quelques étapes, vous pouvez écrire du code VBA pour créer une requête SQL et visualiser les enregistrements extraits . 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 champ "Insérer" et sélectionner "Module ".
    3

    Copiez et collez le code suivant dans votre nouveau module pour afficher le prénom et le numéro de téléphone de l'entreprise dans la table "Client" : Photos

    Private Sub CustomerQuery ()

    strSQL Dim As String

    custRst As Recordset

    Dim dbs As Database

    rstCntr Dim As Integer

    custStr Dim As String

    Set dbs = CurrentDb

    strSQL = " SELECT Customers . [ Prénom ] , "

    strSQL = strSQL & «Les clients [ Business Phone ] . "

    strSQL = strSQL & " FROM Clients ; "

    Set custRst = dbs.OpenRecordset ( strSQL )

    custRst.MoveLast

    custRst.MoveFirst

    rstCntr = 0 To custRst.RecordCount - 1 x

    custStr = custStr & custRst.Fields (0 ) Valeur & _

    "est. un client et son numéro de téléphone professionnel est "& custRst.Fields (1). Value & vbCr

    custRst.MoveNext

    Suivant rstCntr

    MsgBox custStr

    custRst.Close

    dbs.Close

    End Sub
    4

    Exécutez votre routine en appuyant sur la touche "F5 ".
    < br > Photos

    Previous :

    next :
      articles connexes
    ·Comment faire pour créer un nouveau fichier de base de…
    ·Comment écrire un script VBS pour ouvrir un fichier 
    ·Comment faire un clic souris événement à l'aide de V…
    ·Comment créer une zone de liste de lecteur dans Visual…
    ·Comment convertir le HTML en XHTML en VB.Net 
    ·Comment faire VB6 Open in EXE 
    ·Comment utiliser la barre de défilement Avec ListBox d…
    ·Comment convertir le texte en une date en VB 
    ·Comment utiliser PowerShell pour envoyer un fichier via…
    ·Comment afficher l'heure dans VB.Net 
      articles en vedette
    ·Comment faire une carte Google Map Overlay 
    ·Comment accéder à une imprimante USB en cours de prog…
    ·Comment graphiquement une onde sinusoïdale en C + + 
    ·Comment appeler l' API Google Traduction sur mon Androi…
    ·Les avantages et inconvénients de la méthode surcharg…
    ·Comment changer un fond d'écran avec VB.NET 
    ·Rendre des fichiers Python compilés 
    ·Fonction PHP de référence dans une classe 
    ·Comment exporter dans MySQL dans SSIS 
    ·Différence entre la grammaire régulière et grammaire…
    Copyright © Connaissances Informatiques http://fr.wingwit.com