Πώς να μετρήσει τον αριθμό των στηλών σε μια βάση δεδομένων της Access 2007 Χρήση SQL

Ως σχεδιαστής της βάσης δεδομένων ή ο διαχειριστής μπορεί να τρέχει σε την ανάγκη να καθορίσει το ποσό των στηλών σε μια βάση δεδομένων της Access για να πάρετε μια ιδέα για το πόσο μεγάλη μπορεί να είναι . Στην Access , μπορείτε να χρησιμοποιήσετε τη Visual Basic for Applications για να πάρει αυτό το έργο ολοκληρωθεί . Στην VBA μπορείτε να χτίσετε τις δηλώσεις SQL που θα μπορείτε να εκτελέσετε μέσα από τη χρήση ενός συνόλου εγγραφών αντικειμένου . Το σύνολο αντικειμένων -ρεκόρ εκπροσωπεί το σύνολο των εγγραφών από τα αποτελέσματα ερωτήματος που μπορείτε να χρησιμοποιήσετε για να καθορίσει το ποσό των στηλών . Οδηγίες
Η

1 Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic" για να ανοίξετε το Microsoft Visual Basic. Δημιουργήστε μια νέα διαδικασία sub με την προσθήκη του παρακάτω κώδικα :

Private Sub countColumnsInDB ( ) 2

Δημιουργήστε τις ακόλουθες μεταβλητές με την προσθήκη του παρακάτω κώδικα :

Dim strSQL Όπως String Dim

tblArray ( 4 ) Όπως String

Dim x As Integer

Dim totalClmns As Integer

Dim rst Όπως εγγραφών
< p> Dim dbs Όπως Database

Set dbs = CurrentDb
εικόνων 3

Καθορισμός των πινάκων της βάσης δεδομένων σας για να συμπεριλάβει στην καταμέτρηση της στήλης .

tblArray ( 0 ) = " Πελάτες "

tblArray ( 1 ) = " εργαζόμενοι "

tblArray ( 2 ) = " τιμολόγια "

tblArray ( 3 ) = " Παραγγελίες " < br > Φτηνές 4

Δημιουργία « για ... Loop " και εκτελέστε ένα ερώτημα SQL για κάθε ένα από τους πίνακες στον πίνακα που ορίζεται στο βήμα τρία . Πάρτε μετρήσει η στήλη για κάθε πίνακα και επίσης να τηρούν ένα συνολικό αριθμό για όλες τις στήλες .

Για x = 0 έως 3

strSQL = " SELECT" & ( tblArray ( x ) ) & " . * ΑΠΟ " & ( tblArray ( x ) ) & " ? "

Set RST = dbs.OpenRecordset ( strSQL )

Debug.Print tblArray ( x ) & " πίνακας περιέχει " & ΤΥ . Fields.Count & «κολώνες»

totalClmns = totalClmns + rst.Fields.Count

rst.Close

Επόμενο x
5

Display . ο συνολικός αριθμός των στηλών που βρέθηκαν στους πίνακές σας

Debug.Print "Συνολικός αριθμός των στηλών στη βάση δεδομένων : " & totalClmns
Η

6 Ολοκληρώστε τη διαδικασία, πληκτρολογώντας " End Sub ". Πιέστε το πλήκτρο " CTRL " και " G" για να εμφανιστεί το παράθυρο άμεσης παρακολούθησης . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία και να δείτε τα αποτελέσματα μέσα από το παράθυρο άμεσης παρακολούθησης .
Η
εικόνων