Come una progettazione database o l'amministratore che si può incorrere nella necessità di determinare la quantità di colonne in un database di Access per avere un'idea su quanto grande può essere. In Access è possibile utilizzare Visual Basic per applicazioni per ottenere questa operazione compiuta. In VBA è possibile costruire istruzioni SQL che è quindi possibile eseguire mediante l'utilizzo di un oggetto set di record. L'oggetto set di record rappresenta l'intero set di record dai risultati della query che è quindi possibile utilizzare per determinare la quantità di colonne.

Istruzioni

1

Fare clic su "strumenti di Database" e fare clic su "Visual Basic" per aprire Microsoft Visual Basic editor. Creare una nuova routine sub aggiungendo il seguente codice:

Private Sub countColumnsInDB()

2

Creare le seguenti variabili di aggiungendo il seguente codice:

Dim strSQL As String

Dim tblArray(4) As String

Dim x As Integer

Dim totalClmns As Integer

Dim rst As Recordset

() Dim dbs As Database

Set dbs = CurrentDb

3

Definire le tabelle nel database da includere nel conteggio colonna.

tblArray(0) = "Customers"

tblArray(1) = "Employees"

tblArray(2) = "Fatture"

tblArray(3) = "Ordini"

4

Creare un "per... Loop"ed eseguire una query SQL per ciascuna delle tabelle in matrice definita nel passaggio 3. Ottenere il numero di colonne per ogni tabella e anche mantenere un conteggio totale per tutte le colonne.

Per x = 0-3

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

Set rst = dbs. OpenRecordset(strSQL)

Debug. Print tblArray(x) & "tabella contiene" & rst. Fields. Count & "colonne"

totalClmns = totalClmns + rst. Fields. Count

RST. Chiudere

Avanti x

5

Visualizzare il numero totale di colonne trovato nelle tabelle.

Debug. Print "numero totale di colonne nel database:" & totalClmns

6

Terminare la procedura digitando "End Sub". Premere "CTRL" e "G" per visualizzare la finestra immediata. Premere "F5" per eseguire la procedura e visualizzare i risultati attraverso la finestra immediata.