Datamaskin
  | Hjem | Hardware | Nettverk | Programmering | Software | Feilsøking | Systems | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringsspråk
  • Delphi Programming
  • Java Programming
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl Programming
  • Python Programming
  • Ruby Programming
  • Visual Basics Programming
  •  
    Datamaskin >> Programmering >> Visual Basics Programming >> Content
    Hvordan bruke variabler i Access Query
    Å vite hvordan man bruker variabler i spørringer ved hjelp av Microsoft Office Access kan gjøre databaseprogrammet mer dynamisk . Den enkleste måten å bruke variabler i spørringer er gjennom Visual Basic for Applications , også kjent som VBA. VBA er et programmeringsspråk utviklet av Microsoft og brukes til å automatisere manuelle prosesser i Microsoft Office. En spørring brukes til å hente informasjon fra en database tabell . Variablene er definert til å holde informasjon i datamaskinens minne mens et program kjører . Instruksjoner
    en

    Åpne Northwind Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken.
    2

    Klikk på " Database Verktøy " og velg " Visual Basic " for å åpne Microsoft Visual Basic Window. Klikk på " Insert "-feltet og velg " Module ".
    3

    Kopier og lim inn følgende kode inn i den nye modulen til å bruke " Leverandør A" som en variabel i en utvalgt spørring og utsikt fornavn og etternavn på " Leverandør A" :

    Private Sub userQueryVariables ()

    Dim strSQL As String

    Dim rst Som Recordset

    Dim DBS Som Database

    Dim leverandøren Som String

    leverandøren = " leverandør A"

    Set DBS = CurrentDb

    strSQL = " SELECT Suppliers.Company , leverandører . [ etternavn ] , Leverandører . [ fornavn ] "

    strSQL = strSQL &" FROM leverandører "

    strSQL = strSQL &" WHERE ( ( ( Suppliers.Company ) = ' "& ( leverandøren ) & " ') ); "

    Set rst = dbs.OpenRecordset ( strSQL )

    rst.MoveLast

    rst.MoveFirst

    Debug . Print ( leverandør og "Informasjon :")

    Mens Ikke rst.EOF

    Debug.Print ( " Fornavn: " . & rst.Fields ( 2 ) Value)

    Debug.Print ( "Etternavn : " . & rst.Fields ( 1) Verdi )

    rst.MoveNext

    Loop

    End Sub

    4

    Trykk " F5 " for å kjøre subrutine .

    früher :

     Weiter:
      Relatert Artike
    ·Hvordan lage en vitenskapelig kalkulator i Visual Basic…
    ·Hvordan overføre data fra en tabell til en annen gjenn…
    ·Hvordan sjekke en String for Alphabet Bare i VB 
    ·Hvordan bruke CreateProcess i VB6 
    ·Hvordan skrive til en DOS Window Fra VBS Script 
    ·Hvordan lese CPU Temperatur Med en VB6 Program 
    ·Slik bruker du en VbNewLine i Vb.Net 
    ·Hvordan Split OpenArgs i VBA 
    ·Hvordan bruke et Autonummer i Visual Basic 
    ·Word opplæring med VB 
      Anbefalte artikler
    ·Hva er et UML Client 
    ·Hvordan skrive et skjema med jQuery 
    ·Hvordan erstatte en ArrayList 
    ·Hva er forskjellen mellom JRE og Java SE 
    ·En introduksjon til Metadata 
    ·Slik konverterer et desimaltall til en String i VB.NET 
    ·Slik konverterer en bufret Input Stream til en String 
    ·Hvordan Test Hvis Iterable i Python 
    ·Hvordan bruke Strict i Perl 
    ·Hva er IndexError i Python 
    Copyright ©  Datamaskin  http://www.datamaskin.biz/