hvordan man kan få adgang til og køre en udvælgelsesforespørgslen i VBA

Indlæg af Ingebeth Mosgaard     opdateret: 2011-10-06

Microsoft Office Access giver programmører til at bruge Visual Basic for Applications ( VBA ) til at lave programmer i Access . VBA er en edb-programmering sprog, der bruges til at automatisere rutineopgaver i Microsoft Office- programmer . Access er en relationel database system der almindeligvis anvendes til mindre databaser . En udvælgelsesforespørgslen bruges til at hente data fra en database tabel . En Recordset bruges til at læse indholdet , der returneres af udvælgelsesforespørgslen . I et par trin , du kan skrive VBA -kode til at oprette en tabel og se indhold gennem en udvælgelsesforespørgslen .
1
Åbn Microsoft Office Access , klik på " Tom database "og derefter vælge . " Opret ". Klik på " Database Funktioner "og derefter vælge " Visual Basic "for at åbne Microsoft Visual Basic vindue . Klik på " Indsæt "-feltet og vælg " Modul ".
2
Kopier og indsæt følgende kode ind på din nye modul : .


Private Sub runSelectQuery ( )

Dim db som database
Dim rcrdSet Som Recordset
Dim strSQL As String
Dim Xcntr As Integer

Set db=CurrentDb
strSQL=" CREATE TABLE selectQueryData ( NumField NUMBER , Lejer TEKST , Apt TEXT ) "
DoCmd . RunSQL ( strSQL )

strSQL=" INSERT INTO selectQueryData ( NumField , forpagter Apt ) "
strSQL=strSQL " VALUES ( 1 , 'John ',' En ');"

DoCmd. SetWarnings False
DoCmd. RunSQL ( strSQL )


strSQL=" INSERT INTO selectQueryData ( NumField , forpagter Apt ) "
strSQL=strSQL " VALUES (2 , ' Susie «,» B ');"

DoCmd. SetWarnings Falsk
DoCmd. RunSQL ( strSQL )

strSQL=" INSERT INTO selectQueryData ( NumField , Lejer , Apt ) "
strSQL=strSQL " VALUES (3 , ' Luis ' , ' C ');"

DoCmd . SetWarnings Falsk
DoCmd. RunSQL ( strSQL )

strSQL=" Vælg selectQueryData . * fra selectQueryData "
strSQL=strSQL " WHERE selectQueryData. Tenant=' Luis ' ; "


Set rcrdSet=db. OpenRecordset ( strSQL )

rcrdSet. MoveLast
rcrdSet. MoveFirst
For Xcntr=0 Til rcrdSet. RecordCount-1


MsgBox " Lejer : " rcrdSet. Fields ( " Lejer " ) Value " , bor i apt : " . _
rcrdSet . Felter ( " Apt " ) . Value

rcrdSet. MoveNext
Næste Xcntr


rcrdSet. Close
db. Close

End Sub
3 .
Tryk " F5 "for at køre din subrutine . Programmet vil oprette en tabel , indsætte data i tabellen og bruge en udvælgelsesforespørgslen til at vise data for en bestemt række .


Previous:hvordan man kan ændre og indsætte i Visual Basic Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change