Als een database- ontwerper of beheerder je kan lopen in de noodzaak om de hoeveelheid kolommen bepalen in een Access-database naar een idee van hoe groot het ook mag zijn te krijgen. In Access kunt u Visual Basic for Applications om deze taak volbracht te krijgen. In VBA kunt u bouwen SQL-instructies die u vervolgens kunt uitvoeren door het gebruik van een record set -object . Het record set -object vertegenwoordigt de gehele set van records uit de query resultaten die u vervolgens kunt gebruiken om het bedrag van de kolommen te bepalen . Instructies
1 Klik op " Database Tools" en klik op " Visual Basic " voor Microsoft Visual Basic Editor te openen . Maak een nieuwe sub- procedure door toevoeging van de volgende code : Private Sub countColumnsInDB
( ) kopen van 2 Maak de volgende variabelen om door toevoeging van de volgende code :
Dim strSQL As String
Dim tblArray ( 4 ) als Koord
Dim x As Integer Dim totalClmns
als Geheel Dim rst
als Recordset
Dim dbs Als Database Set dbs = CurrentDb
3
Definieer de tabellen in de database op te nemen in de telling kolom . tblArray
( 0 ) = "Klanten " tblArray
( 1 ) = " Werknemers " tblArray
( 2 ) = " Facturen " tblArray
( 3 ) = "Orders " < br > Goedkope 4 Maak een " For ... Loop" en uitvoeren van een SQL-query voor elk van de tabellen in de array gedefinieerd in stap drie . Verkrijg de kolom tellen voor elke tabel en ook een totale telling te houden voor alle kolommen .
Voor x = 0 tot 3 strSQL
= " SELECT " & ( tblArray ( x ) ) & " . * FROM " & ( tblArray ( x ) ) & " ; "
Set rst = dbs.OpenRecordset ( strSQL ) Debug.Print tblArray
( x ) & " tabel bevat " & rst . Fields.Count & " kolommen " = totalClmns + rst.Fields.Count rst.Close
Volgende x
Beeldscherm
totalClmns 5 het totale aantal kolommen in de tabellen Debug.Print " Totaal aantal kolommen in de database: "
. & totalClmns
End 6 van de procedure door het intikken van "End Sub . " Druk op " Ctrl " en " G " om het venster Direct weer te geven . Druk op " F5 " om de procedure te voeren en de resultaten door het venster Direct .
|
