vide hvordan man bruger Visual Basic for Applications ( VBA ), når du arbejder med Microsoft Access kan du spare tid, når du har brug for at vise indholdet i en database tabel. Du kan hente indholdet af en database tabel ved hjælp af en RecordSet objekt. Recordsets består af poster ( rækker) og felter (kolonner). De giver dig fleksibilitet til at vise eller manipulere data i en tabel. A " For Loop " kan bruges til at sløjfe gennem alle områder og post i en database tabel. Ting du skal
Access databasen Northwind
Vis Flere Instruktioner
1
lancere Northwind 2007-databasen , og klik på " Database Tools". Klik på " Visual Basic " for at åbne Microsoft Visual Basic vindue . Klik på "Indsæt " menuen og klik
2
Skriv følgende for at oprette en ny procedure for at udføre " Modul ". :
Private Sub stepThroughFields ()
Ved fejl GoTo Err_stepThroughFields :
3
Skriv følgende for at oprette variabler, der bruges til at læse tabellen Ordrer : Hej
Dim dbs som database
Dim rst Som Recordset
Dim rcrdCnt As Integer
Dim fldCnt As Integer
4
Skriv følgende for at definere den database til at bruge : Hej
Set dbs = CurrentDb
5
Skriv følgende for at åbne en ny RecordSet hjælp tabellen Ordrer : Hej
Set rst = dbs.OpenRecordset ( " ordrer " )
6
Skriv følgende at sløjfe gennem hver felt i tabellen , og vise navnet : Hej
fldCnt = 0 Til rst.Fields.Count - 1
Debug.Print rst.Fields ( fldCnt ) . Navn
Næste fldCnt
7
Skriv følgende at sløjfe gennem alle felterne i hver række i tabellen og vise dens indhold : Hej
rst.MoveFirst < br >
rcrdCnt = 0 Til rst.RecordCount - 1
fldCnt = 0 Til rst.Fields.Count - . 1
Debug.Print rst.Fields ( fldCnt ) Value
Næste fldCnt
rst.MoveNext
Næste rcrdCnt
8
Skriv følgende for at frigøre variabler fra hukommelsen : Hej
rst.Close
dbs.Close
9
Skriv følgende for at afslutte din procedure og fange eventuelle fejl :
Exit_stepThroughFields :
Exit Sub Salg
Err_stepThroughFields :
MsgBox Err.Description
Genoptag ' Exit_stepThroughFields :
End Sub
Tryk på " F5 " for at køre din procedure og display felt information.