|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur skapa en fråga i Access VBA

    Veta hur man snabbt skapar en fråga i Microsoft Access och sedan använda den med Visual Basic for Applications ( VBA ) kan du spara tid . Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . En fråga används för att hämta data från en databas tabell . VBA är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Access och andra Microsoft Office-program . I några få steg kan du skapa en subrutin med VBA att söka data från tabellen Anställda i Northwind -databasen . Saker du behöver
    Microsoft Office Access
    Visa fler instruktioner
    1

    Öppna Northwind Access-databas . Northwind-databasen ingår i Microsoft Office-paketet .
    2

    Klicka på " Skapa " och välj " Query design . " Välj " Tabeller ", välj "Anställda" och klicka sedan på " Lägg till ". Välj " Stäng ".
    3

    Dubbelklicka på " Company ", " Efternamn " och " förnamn " för att lägga till fält . Välj " SQL View " i " Resultat " rutan . Tryck på " Ctrl " och " C " för att kopiera urvalsfrågan .
    4

    Klicka "Database Tools " och välj sedan " Visual Basic . " Skriv följande för att skapa en ny subrutin : " . Ange "

    Private Sub createVBAQuery ( ) katalog

    Tryck
    5

    Skriv följande för att deklarera dina variabler :

    Dim strSQL As String

    Dim rst Som Recordset

    Dim dbs som databas

    Set dbs = CurrentDb
    6

    Press " Ctrl " och " V " för att klistra urvalsfrågan inuti subrutinen . Lägg " strSQL = " i början av din fråga och lägga end citat i slutet av din fråga på följande sätt : . .

    StrSQL = " SELECT Employees.Company , Anställda [ Efternamn ] , Anställda [ förnamn ] FROM Anställda ; . "
    7

    Skriv följande för att öppna din urvalsfråga och visa resultaten

    Set rst = dbs.OpenRecordset ( strSQL ) katalog

    RST . MoveLast

    rst.MoveFirst

    Gör visserligen inte rst.EOF

    Debug.Print rst.Fields ( 0 ) Standard & . "

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur Kopiera mappar med VBA
    ·Hur justera teckenstorlek i en meny för upplysningen
    ·Hur får man en lista över skrivare i VB6
    ·Olika sätt att formatera datum i VBA
    ·Hur man skapar en ikon på skrivbordet under installati…
    ·Hur skicka variabler från Visual Basic till Access Que…
    ·Hur man fråga en HTML Body i LINQ
    ·Hur man gör ett Visual Basic Game
    ·Hur man tar bort gränsen Command Button med VB6
    ·Hur man skapar en Port Test i Visual Basic
    Utvalda artiklarna
    ·Hur man gör scrollbar färger fungerar för iFrame
    ·Hur man ansluter Lambda i Python
    ·Lägga till en GUI till Java-kod
    ·Konvertera datum till en sträng i VB6
    ·Hur man tar bort exponenten från en flottör i C + +
    ·Hur man driver en process på en Remote PC Med Wmi
    ·Hur Utelämna Vanliga ord Med en PHP MySQL Query
    ·Hur man driver ett Python -skript på en Mac
    ·Hur man bygger Verktyg för PHP 5 för Windows
    ·Hur vill kolla variabeltyper i Python
    Copyright © Dator Kunskap http://www.dator.xyz