Som en database designer eller administrator du kan kjøre inn behovet for å bestemme mengden av kolonner i en Access database for å få en idé om hvor stort det kan være. I Access kan du bruke Visual Basic for Applications for å få denne oppgaven dyktig . I VBA kan du bygge SQL-setninger som du deretter kan utføre gjennom bruk av en rekord satt objekt. Den rekorden objektet representerer hele settet med poster fra spørringsresultatene som du deretter kan bruke til å bestemme mengden av kolonner . Instruksjoner
en

Klikk " Database Tools " og klikk " Visual Basic " for å åpne Microsoft Visual Basic-redigering . Opprett en ny sub prosedyre ved å legge følgende kode:

Private Sub countColumnsInDB ( )
2

Lag følgende variabler til ved å legge til følgende kode :

Dim strSQL As String

Dim tblArray ( 4 ) As String

Dim x As Integer

Dim totalClmns As Integer

Dim rst Som Recordset
< p> Dim dBS Som database

Set dBS = CurrentDb
3

Definer tabellene i databasen for å inkludere i kolonnen teller.

tblArray ( 0 ) = " kunder"

tblArray ( 1 ) = " Employees"

tblArray ( 2 ) = " Faktura "

tblArray ( 3 ) = " Orders"

4

Lag et "For ... Loop " og utføre en SQL-spørring for hver av tabellene i matrisen definert i trinn tre. Få kolonnen teller for hver tabell, og også holde et totalt teller for alle kolonner .

For x = 0 til 3

strSQL = "SELECT " & ( tblArray ( x ) ) & " . * FROM "& ( tblArray ( x ) ) &" ; "

Sett rst = dbs.OpenRecordset ( strSQL )

Debug.Print tblArray ( x ) &" tabellen inneholder "& rst . Fields.Count & " søyler "

totalClmns = totalClmns + rst.Fields.Count

rst.Close

Neste x
5

Vis det totale antallet kolonner funnet i tabellene

Debug.Print " Totalt antall kolonner i databasen : " . & totalClmns
6

End prosedyren ved å skrive " End Sub . " Trykk " Ctrl" og "G " for å vise det gjeldende vinduet . Trykk "F5 " for å kjøre prosedyren og se på resultatene gjennom Immediate-vinduet .