|  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 kan få en Query Listruta

    Veta hur man ställer in resultatet av en fråga till en listruta kontroll och använda sina värderingar i en annan fråga kan göra dina databasapplikationer mer dynamisk . Microsoft Office Access kan du skapa ett grafiskt användargränssnitt ( GUI ) , lägger till en kontroll listrutan och använda den för att visa frågedata . Access är en relationsdatabas management system som vanligen används för mindre databaser . En fråga används för att hämta data från en databas tabell . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera rutinuppgifter . Instruktioner
    1

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

    Klicka på " Skapa " -fliken och välj " Form Design " för att skapa en ny form . Klicka på " Lista Box " på " Kontroller " fönstret , klicka på formuläret , håll ner musknappen och dra musen för att skapa en ny kontroll listrutan . Klicka på " Button " på " Kontroller " fönstret för att lägga till en ny knapp i formuläret på samma sätt som du lagt till i listrutan .
    3

    Högerklicka " Command0 " och välj "Egenskaper . " Klicka på "Event " -fliken och välj " [Event Procedure ] " bredvid " Vid klickning . " Klicka på ellips ( ... ) för att öppna " Microsoft Visual Basic " fönster
    4

    Kopiera och klistra in följande kod under " Private Sub Command0_Click ( ) " : .

    Dim strSQL As String

    strSQL = " SELECT beställningar . [ Employee ID ] , "

    strSQL = strSQL & "Order . [ Kund -ID] beställningar . [ Levereras Datum ] , "

    strSQL = strSQL & " beställningar . [ Fartyg ] , beställningar . [ Ship Adress ] "

    strSQL = strSQL & " FROM Orders "

    strSQL = strSQL & " WHERE ( ( ( Orders. [ Ship Adress ] ) = '123 8th Street ' ) ) ; "

    Me.List0.RowSource = strSQL

    Denna kod gör sökningar i " Orders " tabell och ställ in " Radkälla " egendom listrutan kontroll .
    5

    Växla tillbaka till Microsoft Access-fönstret och högerklicka " List0 , " välj sedan " Egenskaper . " Klicka på "Event " -fliken och välj " [Event Procedure ] " bredvid " Efter Update . " Klicka på ellips ( ... ) för att öppna " Microsoft Visual Basic " fönster
    6

    Kopiera och klistra in följande kod under " Private Sub List0_Click ( ) " : .

    Dim dbs som databas

    Dim rst Som Recordset

    Dim sqlstr As String

    Dim I As Integer

    Set dbs = CurrentDb

    jag = 0 till mig ! List0.ListCount
    p Om mig ! List0.Selected ( I ) Sedan

    sqlstr = " SELECT beställningar . [ Levereras Datum ] FROM Orders "

    sqlstr = sqlstr & " WHERE beställningar [ Employee ID ] = . " & ( me! List0.ItemData ( I ) ) & " ; "

    Set rst = dbs.OpenRecordset ( sqlstr ) katalog

    rst.MoveLast

    rst.MoveFirst

    Debug.Print " Levereras Datum för alternativ valt : " & rst.Fields ( 0 ) Value

    rst.Close
    .

    End If

    Nästa jag

    dbs.Close

    Denna kod kommer att visa " Levereras datum " för objekt som markeras i listrutan . Resultaten kommer att visas i " Omedelbar " fönstret .
    7

    Stäng " Microsoft Visual Basic " fönstret och högerklicka på " Form1 " och välj sedan " Form View . " Klicka på " Command0 " för att fylla listrutan med data. Välj ett värde från listrutan för att köra koden för listrutan kontroll .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur bevara Variabler i VBA
    ·Hur du ändrar markören till en anpassad markör för …
    ·Komma åt och ta bort data med en Macro
    ·Hur man ändrar Case Font i Macro
    ·Hur att dölja VBS källa från användare
    ·Hur köra ett kommando på en Remote System i Visual Ba…
    ·Hur man skapar en fil från en textruta i VB6
    ·Hur man gör ett Visual Basic Ansökan om Lösenordssky…
    ·Avinstallera ett program med PowerShell
    ·Hur man använder Windows API för att ändra skrivbord…
    Utvalda artiklarna
    ·Hur man tar bort en delsträng från strängen i Java
    ·Hur man kör Python Från Bash
    ·Konvertera en Float till närmaste heltal i Visual C
    ·Så här ändrar Project Typ i Eclipse
    ·Hur man gör en JS -fil
    ·Vad är en PHP Spider
    ·Hur man kan stoppa en loop i VBA
    ·Hur man styr ett Unix Shell med Python
    ·Business Objects komponenter
    ·Konvertera Charset UTF - 8 till ISO -8859-1
    Copyright © Dator Kunskap http://www.dator.xyz