|  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 man använder variabler i ett Access VBA Query

    Frågor är ett kraftfullt verktyg i Microsoft Access för att hämta information från en databas tabell och ha kunskap om hur man använder variabler i frågor kan göra din Access applikation mer dynamiskt . I VBA kan du bygga SQL-satser som innehåller variabler såsom String-variabler för att hämta data . När du bygger din SQL-sats kan du använda objektet Recordset för att hämta frågeresultat . Användarrecensioner variabler istället för att spendera tid att bygga många SQL-satser med hårdkodade kriterier . Saker du behöver
    Northwind databas
    Visa fler instruktioner
    1

    Börja med att skapa en ny sub förfarande med följande kod :

    Private Sub useVariablesInQuery ( )
    2

    Skriv in följande kod för att skapa de variabler som du kommer att använda i din fråga :

    Dim strSQL As String

    Dim companyName As String

    Dim lastName As String

    Dim rst Som Recordset

    Dim dbs som databas

    Set dbs = CurrentDb
    3

    skriv följande för att definiera värdena på dina variabler som används i din fråga :

    Företagsnamn = " Northwind Traders "

    lastName = " Freehafer "
    4

    skriv efter att skapa en fråga med hjälp av variabler i föregående steg :

    strSQL = " . . SELECT Employees.Company , anställda [ Efternamn ] , anställda [ förnamn ] , "

    strSQL = strSQL & " Medarbetare . [ E - postadress] "

    strSQL = strSQL & " FROM Anställda "

    strSQL = strSQL & " WHERE ( ( ( Employees.Company ) = ' " & ( companyName ) & " ' ) "

    strSQL = strSQL & " oCH ( ( Employees. [ Efternamn ] ) = ' " & ( lastName ) & " ' ) ) ; "
    5 < p > Skriv följande för att öppna ett Recordset och visa resultatet av din sökning:

    Set rst = dbs.OpenRecordset ( strSQL ) katalog

    Debug.Print rst.Fields ( 0 ) Värde < . br>

    Debug.Print rst.Fields ( 1 ) . Standard

    Debug.Print rst.Fields ( 2 ) . Standard

    Debug.Print rst.Fields ( 3 ) . Standard
    6

    Skriv följande för att avsluta din sub förfarande :

    rst.Close

    dbs.Close

    End sub ​​

    7

    Tryck " F5 " för att köra koden .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man installerar Visual Studio 6.0
    ·Hur du använder FFmpeg Med Visual Basic 6
    ·Hur att skapa tabeller vid körning i Visual Basic med …
    ·Hur Exit Visual Basic
    ·SQL Adapter Handledning för BizTalk
    ·Hur man skriver ett Tangent Kod för en kalkylator i VB…
    ·Hur man läser VBA Tutorials & Använd Visual Basic for…
    ·Handledning om hur du aktiverar Drag & Drop Visual Basi…
    ·Hur man gör en webbläsare med Visual Basic 2005 Expre…
    ·Hur för att tolka en CSV-fil med VB
    Utvalda artiklarna
    ·Steg till Förhandling Protocol
    ·Hur konvertera heltal till strängar i Java
    ·Hur man skriver en webbplats hierarki
    ·Hur man tolka PHP i HTML
    ·Hur ta reda på din javac Version
    ·Inaktivera avdelningarna på Fancybox
    ·Vad är en PCM- format
    ·Hur du startar Adobe Från Visual Basic 6
    ·Hur man använder mysqladmin Flush - värdar kodad i PH…
    ·Lägga till en skrivare med en Batch Script
    Copyright © Dator Kunskap http://www.dator.xyz