| Hjem | Hardware | Netværk | Programmering | software | Fejlfinding | systemer | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringssprog
  • Delphi programmering
  • Java programmering
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl programmering
  • Python Programming
  • Ruby Programming
  • Visual Basics Programmering
  •  
    Computer Viden >> Programmering >> Visual Basics Programmering >> Content
    Sådan hente numre i en Query til Access
    Microsoft Office Access er en relationel database management system der almindeligvis anvendes til mindre og lokale databaser. Adgang er inkluderet i Microsoft Office-pakken og indeholder alle de nødvendige redskaber til at håndtere en relationel database. En forespørgsel bruges til at hente information fra databasetabeller. Hente numre fra en Access forespørgsel er opnået på samme måde du ville udtrække andre datatyper. En måde at udtrække data ved hjælp af Visual Basic for Applications. I et par trin , du kan skrive VBA-kode , hente numre fra en forespørgsel , og vise dem i output -vinduet. Ting du skal
    Microsoft Office Access
    Northwind -database
    Vis Flere Instruktioner
    1

    Åbn Northwind Microsoft Office Access -database. Databasen Northwind er inkluderet i Microsoft Office-pakken.
    2

    Klik på " Database Tools " og derefter vælge "Visual Basic " for at åbne Microsoft Visual Basic vindue. Klik på " Indsæt" menuen og vælg " Modul ".
    3

    Kopier og indsæt følgende kode i dit nye modul til at forespørge på " Produkter "-tabellen og udtrække numrene i " Genbestil Level "feltet på mere end 15:

    Private Sub extractNumbers ()

    Dim strSQL As String

    Dim rst Som Recordset

    Dim dbs som database < br >

    Set dbs = CurrentDb

    strSQL = "Vælg produkter . [ Produktnavn] , produkter . [Ordn Level] "

    strSQL = strSQL & " FROM Produkter "
    < p> strSQL = strSQL & " WHERE ((( Products. [Ordn Level] ) > 15 )), "

    Set rst = dbs.OpenRecordset ( strSQL )

    rst.MoveLast < br >

    rst.MoveFirst

    Debug.Print "Omordn niveau> 15: "

    Do While Not rst.EOF

    Debug.Print " Produkt navn : "& rst.Fields (0) Value

    Debug.Print ". "

    Debug.Print " Omordn Level Nummer: . " & rst.Fields (1) Value
    < p > rst.MoveNext

    Loop

    End Sub

    Forrige :

    næste :
      Relaterede artikler
    ·Dele af en Visual Basic Application Window 
    ·Hvad Er Visual Basic terminologier 
    ·Microsoft Word /Visual Basic Tutorial 
    ·Hvordan at omdøbe en fil i Visual Basic 2005 
    ·Sådan Konverter en binær værdi i Visual Basic 6 
    ·Tutorial om VB.NET til DirectX 
    ·Sådan vises den første punkt i ComboBox Rulleliste i …
    ·Hvordan jeg kalder en formular på Visual Basic 2005 
    ·Sådan søger Records i VB6 
    ·Sådan Konverter Bits til Bytes i VB.Net 
      Anbefalede Artikler
    ·Hvordan man skriver kode for en Tangent i VB.NET 
    ·Sådan ændres skrifttyper i Java 
    ·Sådan aktiveres Java til CMD 
    ·Sådan bruges Decimaler i Visual Basic 
    ·Hvordan man laver en Høj Lav spil i Python 
    ·Hvad har jeg brug for at starte programmering til iPhon…
    ·Sådan oprettes variable i Perl 
    ·Tilføjelse Javascript dynamisk med DOM Scripting 
    ·Hvordan til liste PHP Variabler 
    ·Sådan Put en variabel i stinavnet i Matlab 
    Copyright © Computer Viden http://www.computerdk.com