|
En tant que concepteur de bases de données ou l'administrateur vous pouvez courir dans la nécessité de déterminer la quantité de colonnes dans une base de données Access pour avoir une idée de la taille , il peut être . Dans Access , vous pouvez utiliser Visual Basic pour Applications pour obtenir cette tâche accomplie . Dans VBA, vous pouvez construire des instructions SQL que vous pouvez ensuite exécuter grâce à l'utilisation d'un objet de jeu d'enregistrements. L'objet de jeu d'enregistrements représente l'ensemble des enregistrements des résultats de la requête que vous pouvez ensuite utiliser pour déterminer le montant des colonnes. Instructions
1 Cliquez sur " Database Tools " et cliquez sur " Visual Basic " pour ouvrir Microsoft Visual Basic Editor . Créer un nouveau sous-procédure en ajoutant le code suivant :
Private Sub countColumnsInDB ()
2 Créer les variables suivantes pour en ajoutant le code suivant :
Dim strSQL As String
Dim tblArray (4) As String
Dim x As Integer
totalClmns As Integer
rst As Recordset
Dim dbs As Database
Set dbs = CurrentDb
3 Définir les tables de votre base de données à inclure dans le nombre de colonnes .
tblArray ( 0) = " clients "
tblArray (1) = "Employés"
tblArray ( 2) = " factures"
tblArray (3) = " commandes" < br > Hôtels 4 créer une « boucle For ... " et exécuter une requête SQL pour chacun des tableaux dans le tableau défini à l'étape trois . Obtenez le nombre de colonnes pour chaque table et aussi garder un nombre total pour toutes les colonnes .
Pour x = 0 à 3
strSQL = "SELECT " & ( tblArray (x)) & ". * FROM "& ( tblArray (x) ) &" ; "
Set rst = dbs.OpenRecordset ( strSQL )
Debug.Print tblArray ( x ) &" table contient "& rst . Fields.Count et "colonnes"
totalClmns = totalClmns + rst.Fields.Count
rst.Close
suivante x
5 affichage le nombre total de colonnes trouvées dans vos tables
Debug.Print "Nombre total de colonnes de base de données : " . & totalClmns
6 Fin de la procédure en tapant " End Sub ". Appuyez sur " Ctrl" et " G " pour afficher la fenêtre Exécution. Appuyez sur "F5" pour exécuter la procédure et voir les résultats à travers la fenêtre Exécution.
|
