Dator
 |  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 hämta nummer i ett Query för Access

    Microsoft Office Access är en relationsdatabas management system som vanligen används för mindre och lokala databaser . Åtkomst ingår i Microsoft Office-paketet och innehåller alla verktyg som behövs för att hantera en relationsdatabas . En fråga används för att hämta information från databastabeller. Extrahera nummer från en Access-frågan uppnås på samma sätt som du skulle extrahera andra datatyper . Ett sätt att extrahera data med hjälp av Visual Basic for Applications . I några få steg , kan du skriva VBA-kod , hämta nummer från en fråga , och visa dem i produktionen fönstret . Saker du behöver
    Microsoft Office Access
    Northwind databas
    Visa fler instruktioner
    1

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

    Klicka på " Databas Verktyg " och välj sedan " Visual Basic " för att öppna Microsoft Visual Basic Window . Klicka på " Infoga " -menyn och välj " Modul . " Addera 3

    Kopiera och klistra in följande kod på din nya modulen för att söka i " Produkter " bord och extrahera siffrorna i " Ändra ordning nivå " fältet är större än 15 :

    Private Sub extractNumbers ( ) katalog

    Dim strSQL As String

    Dim rst Som Recordset

    Dim dbs som databas

    Set dbs = CurrentDb

    strSQL = "Välj produkter . [ Produktnamn ] , produkter . [ Ändra ordning Level ] "

    strSQL = strSQL & " från produkter "

    strSQL = strSQL & " WHERE ( ( ( Products. [ Ändra ordning Level ] ) > 15 ) ) ; "

    Set rst = dbs.OpenRecordset ( strSQL ) katalog

    rst.MoveLast

    rst.MoveFirst

    Debug.Print " Ändra ordning Nivå > 15 : "

    Do While Not rst.EOF

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

    Debug.Print . " "

    Debug.Print " Reorder Nivå Number : " . & rst.Fields ( 1 ) Value

    rst.MoveNext

    Loop

    End Sub

    Tidigare:

    nästa:
    relaterade artiklar
    ·Lägga till en textruta värde till en lista i Visual B…
    ·Hur Input summor i en databas
    ·Beskrivning av Visual Basic
    ·Hur man tar bort alla händelsehanterare i VB.Net
    ·Introduktion till Visual Basic 6.0
    ·Hur man slår samman två PDF-filer i Acrobat 9 av VBA
    ·Hur man kan få en Gör Räknare Table Query
    ·Konvertera tal till text i Visual Basic
    ·Lägga till en kryssruta för att en DataGrid
    ·Debugging Tools for Visual Basic
    Utvalda artiklarna
    ·Min fråga är snabb i MySQL och långsam i PHP
    ·Hur man gör en Exit-knappen i C + +
    ·Hur man kompilerar Java i Oracle
    ·Hur man skriver en Vim Script
    ·Hur man gör en Pentagonal Pyramid i Java
    ·Hur du vet MySQL körs på servern
    ·Hur vet jag vilken WPF DataGrid kryssrutan för att anv…
    ·Hur man skapar Klassdiagram
    ·Static void funktioner i C
    ·Konfigurera Heap Size i Eclipse
    Copyright © Dator Kunskap http://www.dator.xyz