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 < p > 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 " < br >
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.
