Som en databas designer eller administratör kan du stöta på behovet av att fastställa beloppet av kolumner i en Access-databas för att få en uppfattning om hur stort det kan vara . I Access kan du använda Visual Basic for Applications för att få denna uppgift utfört . I VBA kan du bygga SQL-satser som du sedan kan köra med hjälp av ett rekord uppsättning objekt . Skivan inställda objektet representerar hela uppsättning poster från frågeresultat som du sedan kan använda för att bestämma mängden av kolumner . Instruktioner
1
Klicka på " Databas Verktyg " och klicka på " Visual Basic " för att öppna Microsoft Visual Basic Editor . Skapa ett nytt sub förfarande genom att lägga till följande kod :
Private Sub countColumnsInDB ( )
2
Skapa följande variabler till genom att lägga till följande kod :
Dim strSQL As String
Dim tblArray ( 4 ) As String
Dim x As Integer
Dim totalClmns As Integer
Dim rst Som Recordset
Dim dbs som databas
Set dbs = CurrentDb
3
Definiera tabellerna i din databas för att inkludera i kolumnen räknas .
tblArray ( 0 ) = " Kunder "
tblArray ( 1 ) = "Anställda"
tblArray ( 2 ) = " Fakturor "
tblArray ( 3 ) = " beställningar "
4
Skapa ett " för ... Loop " och exekvera en SQL-fråga för varje bord i arrayen definieras i steg tre . Få kolumnen räknas för varje bord och även hålla en totalsumma för alla kolumner .
För x = 0 till 3 bilder
strSQL = " SELECT " & ( tblArray ( x ) ) & " . * FROM " & ( tblArray ( x ) ) & " ; "
Set rst = dbs.OpenRecordset ( strSQL ) katalog
Debug.Print tblArray ( x ) & " tabellen innehåller " & rst . Fields.Count & "kolumner "
totalClmns = totalClmns + rst.Fields.Count
rst.Close
Next x
5
Display det totala antalet kolumner som finns i tabellerna
Debug.Print " totalt antal kolumner i databasen : " . & totalClmns
6
Avsluta proceduren genom att skriva " End Sub . " Tryck på " Ctrl " och " G " för att visa Immediate fönstret . Tryck " F5 " för att köra proceduren och visa resultatet genom Direktfönstret .
