• 
  

  hur man kommer åt och köra en urvalsfråga i VBA

  
  

Microsoft Office Access tillåter programmerare att använda Visual Basic for Applications ( VBA ) för att skapa applikationer i Access . VBA är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Microsoft Office -program. Access är en relationsdatabas som vanligen används för mindre databaser . En urvalsfråga används för att hämta data från en databastabell . Ett Recordset används för att läsa innehållet som returneras av urvalsfrågan . I några få steg kan du skriva VBA- kod för att skapa en tabell och visa dess innehåll genom en urvalsfråga .
1
Öppna Microsoft Office Access , klicka på " tom databas "och välj sedan . "Skapa ". Klicka på " Databasverktyg "och välj sedan "Visual Basic "för att öppna Microsoft Visual Basic -fönstret . Klicka på " Infoga " och välj " Module ".
2
Kopiera och klistra in följande kod på din nya modulen .



Private Sub runSelectQuery ( )



Dim db som databas

Dim rcrdSet Som Recordset

Dim strSQL As String

Dim Xcntr As Integer



Set db=CurrentDb

strSQL=" CREATE TABLE selectQueryData ( NumField NUMMER , Tenant TEXT , Apt TEXT ), "

DoCmd . RunSQL ( strSQL )



strSQL=" INSERT INTO selectQueryData ( NumField , arrendator Apt ) "

strSQL=strSQL " VALUES ( 1, John ", " A ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO selectQueryData ( NumField , arrendator Apt ) "

strSQL=strSQL " VALUES (2 , " Susie ", " B ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" INSERT INTO selectQueryData ( NumField , arrendator Apt ) "

strSQL=strSQL " VALUES (3 , " Luis ", " C ');"

DoCmd . SetWarnings Falska

DoCmd. RunSQL ( strSQL )



strSQL=" Select selectQueryData . * från selectQueryData "

strSQL=strSQL " WHERE selectQueryData. Tenant=' Luis ' ; "





Set rcrdSet=db. OpenRecordset ( strSQL )

rcrdSet. MoveLast

rcrdSet. MoveFirst

För Xcntr=0 till rcrdSet. RecordCount-1



MsgBox " Hyresgäst: " rcrdSet. Fields ( " Hyresgäst " ) Value " , Bor i apt : " .
_
rcrdSet . Fält ( " Apt " ) . Value



rcrdSet. MoveNext

Nästa Xcntr



rcrdSet. Close

db. Close



End Sub
3 .
Press "F5 " för att köra din subrutin . Programmet kommer att skapa en tabell , infoga data i tabellen och använda en urvalsfråga för att visa data för en viss rad .

Previous：nothing Next：hur man byter ett objekt i Visual Studio 2003

Relaterade artiklar