Dator > hur man kan få resultat VBA fråga

  • hur man kan få resultat VBA fråga


  • Att veta hur man läser resultaten från en Microsoft Access-frågan kan hjälpa dig att göra din Access-program mer dynamisk . Access är en del av Microsoft Office-paketet och det används för att skapa relationsdatabaser. Visual Basic for Applications ( VBA ) kan användas i Access för att skapa Windows-program och hämta databas data . En fråga är byggd med Structured Query Language ( SQL ) uttalanden för att begära information från en databas

    Du behöver : . .
    Microsoft Office Access 2007


    1

    Starta Microsoft Office Access 2007 och välj " tom databas , " klicka på " Skapa . " Klicka på " Databasverktyg "och välj" Visual Basic . " Klicka på " Infoga " och välj " Module " .



    Typ " Private Sub readQueryResults " och tryck på " Enter "för att skapa en ny subrutin
    2
    Skriv följande för att deklarera variabler som du använder för att läsa frågeresultaten : . .



    Dim RecordSt Som Recordset

    Dim dBase som databas

    Dim stringSQL As String

    Dim rCnt As Integer
    3 .
    Skriv följande för att skapa " CityTbl " tabell :



    stringSQL=" CREATE TABLE CityTbl ( City TEXT (25 ) , statligt TEXT ( 25 ));"

    DoCmd . RunSQL ( stringSQL )
    4
    Skriv följande för att lägga till två nya poster i din " CityTbl " tabell: .



    stringSQL=" INSERT INTO CityTbl ( [ City ], [ stat ] ) "

    stringSQL=stringSQL " VALUES ( ' Fort Worth " , " Texas ');"

    DoCmd. SetWarnings Falska

    DoCmd. RunSQL ( stringSQL )



    stringSQL=" INSERT INTO CityTbl ( [ City ], [ stat ] ) "

    stringSQL=stringSQL " VALUES ( "Dallas" , " Texas ');"

    DoCmd. SetWarnings Falska

    DoCmd . RunSQL ( stringSQL )
    5
    Skriv följande för att definiera din fråga och öppna din Recordset .



    stringSQL=" SELECT CityTbl . * FRÅN CityTbl . "

    Set RecordSt=dBase. OpenRecordset ( stringSQL )
    6
    Skriv följande för att skapa en " För loop " och visa din fråga resultat genom en meddelanderuta:



    RecordSt. MoveFirst

    För rCnt=0 till RecordSt. RecordCount

    MsgBox ( RecordSt. Fields ( " City " ) . Value " , " RecordSt. Fields ( " staten " ) . Value)

    RecordSt. MoveNext

    Nästa rCnt



    Tryck " F5 " för att utföra subrutin .


Previous:nothing Next:Lägga till en dll i Visual C





Relaterade artiklar


  • Ta bort en php -fil
  • hur man lär sig & Test html -koder
  • hur man översätter C -kod till Java
  • hur man fixar upp och ner java bilder
  • Varför är binär som används i datorer ?
  • hur man gör en dropdown i Visual Basic
  • hur man använder winsock.dll i Visual Basic
  • hur man redigerar metadata för ett foto
  • hur du vill visa Word-dokument i . NET webbsidor
  • hur man gör en väska från soppåsar , post - it-lappar och registerkort