Gewusst wie: zählen der Anzahl der Spalten in einer Access 2007-Datenbank mithilfe von SQL
Als Datenbank-Designer oder Administrator, wenn Sie die Notwendigkeit zum Bestimmen der Spalten in einer Access-Datenbank bekommen Sie eine Ahnung auf wie groß ausführen können, kann es sein. Visual Basic für Applikationen können Sie in Access um diese Aufgabe erfüllt zu bekommen. In VBA können Sie SQL-Anweisungen erstellen, das dann durch den Einsatz von ein Datensatz-Objekt ausgeführt werden kann. Das Record Set-Objekt repräsentiert die gesamte Gruppe von Datensätzen aus den Abfrageergebnissen die Sie dann verwenden können, um die Spalten bestimmen.
Anweisungen
1 Klicken Sie auf "Datenbanktools", und klicken Sie auf "Visual Basic" Microsoft Visual Basic-Editor zu öffnen. Erstellen Sie eine neue Sub-Prozedur, indem Sie den folgenden Code hinzufügen:
Private Sub countColumnsInDB()
2 Erstellen Sie die folgenden Variablen zu, indem Sie den folgenden Code hinzufügen:
Dim StrSQL As String
Dim tblArray(4) As String
Dim X As Integer
Dim TotalClmns As Integer
Dim Rst als Recordset
Dim Dbs als Datenbank
Eingestellt von Dbs = CurrentDb
3 Definieren Sie die Tabellen in Ihrer Datenbank in die Spaltenanzahl enthalten.
tblArray(0) = "Kunden"
tblArray(1) = "Mitarbeiter"
tblArray(2) = "Rechnungen"
tblArray(3) = "Orders"
4 Erstellen einer "für... Loop"und ausführen eine SQL-Abfrage für jede Tabelle in der in Schritt 3 definierten Array. Für jede Tabelle bekommen Sie die Anzahl der Spalten zu und auch halten Sie eine Gesamtzahl für alle Spalten.
Für X = 0 bis 3
StrSQL = "SELECT" & (tblArray(x)) & ". * FROM" & (tblArray(x)) & ";"
Festlegen von Rst = Dbs. OpenRecordset(strSQL)
Debug.Print tblArray(x) & "Tabelle enthält" / Rst. Fields.Count & "Spalten"
TotalClmns = TotalClmns + Rst. Fields.Count
RST. Schließen
Nächsten x
5 Anzeigen der Anzahl der Spalten in den Tabellen gefunden.
Debug.Print "Gesamtanzahl der Spalten in der Datenbank:" & TotalClmns
6 Ende des Verfahrens durch Eingabe von "EndSub". Drücken Sie "Strg" und "G" im Direktfenster angezeigt. Drücken Sie "F5", um die Prozedur ausführen und die Ergebnisse durch das Direktfenster anzeigen.