Come contare il numero di colonne in un database di Access 2007 Utilizzo di SQL

Come progettista di database o l'amministratore si può eseguire in la necessità di determinare la quantità di colonne in un database di Access per avere un'idea di quanto grande possa essere. In Access è possibile utilizzare Visual Basic, Applications Edition per ottenere questo compito compiuto. In VBA è possibile creare istruzioni SQL che è quindi possibile eseguire tramite l'uso 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

Clicca su "Strumenti Database " e cliccare su " Visual Basic " per aprire l'editor di Microsoft Visual Basic . Creare una nuova procedura di sub aggiungendo il seguente codice : Private Sub

countColumnsInDB ( ) economici 2

Creare le seguenti variabili , aggiungendo il seguente codice : Dim

strSQL As String Dim

tblArray ( 4) As String

Dim x As Integer Dim

totalClmns As Integer

Dim rst Come
Recordset

Dim dbs As Database

Set dbs = CurrentDb
3

Definire le tabelle del database da includere nel conteggio colonna .

tblArray ( 0 ) = "Clienti "

tblArray ( 1) = "Dipendenti"

tblArray ( 2 ) = " Fatture "

tblArray ( 3) = "Ordini "

4

Creare un " ciclo FOR ... " ed eseguire una query SQL per ciascuna delle tabelle nella matrice definito nel passaggio tre. Prendi il numero di colonne per ogni tabella e anche mantenere un conteggio totale per tutte le colonne .

Per x = 0 To 3

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

Set rst = dbs.OpenRecordset ( strSQL ) per

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

totalClmns = totalClmns + rst.Fields.Count

rst.Close

Prossimo x
5

visualizzazione il numero totale di colonne presenti nelle tabelle

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

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

• Come disattivare il puntatore del mouse con VBA in Word 
• Come scrivere un file XLS in VB