Å vite hvordan du bruker Visual Basic for Applications ( VBA ) når du arbeider med Microsoft Access kan spare deg for tid når du trenger for å vise innholdet i en database tabell . Du kan hente innholdet i en database tabell ved hjelp av en RecordSet objekt. Recordsets består av poster (rader ) og felt (kolonner ) . De gir deg fleksibilitet til å vise eller manipulere data i en tabell . En "For Loop " kan brukes til å sløyfe gjennom alle felt og post i en database tabell . Du trenger
Tilgang Northwind database
Vis flere instruksjoner
en
starte Northwind 2007 database og klikk " Database Tools. " Klikk på " Visual Basic " for å åpne Microsoft Visual Basic -vinduet . Klikk på " Insert "-menyen og klikk
2
Skriv inn følgende for å opprette en ny prosedyre for å utføre " Module ". :
Private Sub stepThroughFields ()
on Error GoTo Err_stepThroughFields :
3
Skriv inn følgende for å lage variabler som brukes til å lese tabellen Ordrer : en
Dim dBS Som Database
Dim rst As Recordset
Dim rcrdCnt As Integer
Dim fldCnt As Integer
4
Skriv inn følgende for å definere databasen for å bruke : en
Set dBS = CurrentDb
5
Skriv inn følgende for å åpne en ny RecordSet hjelp av tabellen Ordrer : en
Set rst = dbs.OpenRecordset ( " Orders" )
6
Skriv inn følgende å sløyfe gjennom alle felt i tabellen og vise navnet : en
for fldCnt = 0 For å rst.Fields.Count - en
Debug.Print rst.Fields ( fldCnt ) . Navn
Neste fldCnt
7
Skriv inn følgende å sløyfe gjennom alle feltene i hver rad i tabellen og vise innholdet : en
rst.MoveFirst
For rcrdCnt = 0 For å rst.RecordCount - en
For fldCnt = 0 For å rst.Fields.Count - . 1
Debug.Print rst.Fields ( fldCnt ) Verdi
Neste fldCnt
rst.MoveNext
Neste rcrdCnt
8
Skriv inn følgende for å frigjøre variabler fra minnet : en
rst.Close
dbs.Close
9
Skriv inn følgende for å avslutte prosedyren og fange opp eventuelle feil :
Exit_stepThroughFields :
Exit Sub
Err_stepThroughFields :
MsgBox err.Description
Resume ' Exit_stepThroughFields :
End Sub
Trykk " F5 " for å kjøre prosedyren og displayfelt informasjon.
