Att veta hur man använder Visual Basic for Applications ( VBA ) när du arbetar med Microsoft Access kan spara tid när du behöver visa innehållet i en databas tabell . Du kan hämta innehållet i en databas tabell genom att använda ett Recordset-objekt . Recordsets består av poster (rader ) och fält (kolumner ) . De ger dig möjlighet att visa eller ändra data i en tabell . En " För loop " kan användas för att loopa igenom alla fält och post i en databastabell . Saker du behöver
Tillträde Northwind databas
Visa fler instruktioner
1
lansera Northwind 2007-databas och klicka på " Databasverktyg . " Klicka på " Visual Basic " för att öppna Microsoft Visual Basic fönster . Klicka på " Infoga " -menyn och klicka
2
Skriv följande för att skapa ett nytt förfarande för att exekvera " Modul . " :
Private Sub stepThroughFields ( ) katalog
On Error GoTo Err_stepThroughFields : Addera 3
Skriv följande för att skapa variabler som används för att läsa tabellen Order :
Dim dbs som databas
Dim rst som Recordset
Dim rcrdCnt As Integer
Dim fldCnt As Integer
4
Skriv följande för att definiera databas som ska användas :
Set dbs = CurrentDb
5
Skriv följande för att öppna en ny RecordSet använder tabellen Order :
Set rst = dbs.OpenRecordset ( "Order " )
6
Skriv följande för att loopa igenom alla fält i tabellen och visar namnet :
för fldCnt = 0 att rst.Fields.Count - 1
Debug.Print rst.Fields ( fldCnt ) . Namn
Nästa fldCnt
7
Skriv följande för att loopa igenom alla fält i varje rad i tabellen och visa dess innehåll :
rst.MoveFirst
För rcrdCnt = 0 att rst.RecordCount - 1
För fldCnt = 0 att rst.Fields.Count - . 1
Debug.Print rst.Fields ( fldCnt ) Value
Nästa fldCnt
rst.MoveNext
Nästa rcrdCnt
8
Skriv följande för att frigöra variabler från minnet :
rst.Close
dbs.Close
9
Skriv följande för att avsluta din procedur och fånga eventuella fel :
Exit_stepThroughFields :
Exit Sub
Err_stepThroughFields :
MsgBox Err.Description
Resume ' Exit_stepThroughFields :
End Sub
Tryck " F5 " för att köra din förfarande och display fält information.
