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 Όπως εγγραφών
Dim dbs Όπως Database
Set dbs = CurrentDb
εικόνων 3
Καθορισμός των πινάκων της βάσης δεδομένων σας για να συμπεριλάβει στην καταμέτρηση της στήλης .
tblArray ( 0 ) = " Πελάτες "
tblArray ( 1 ) = " εργαζόμενοι "
tblArray ( 2 ) = " τιμολόγια "
tblArray ( 3 ) = " Παραγγελίες "
Φτηνές 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 " για να εκτελέσετε τη διαδικασία και να δείτε τα αποτελέσματα μέσα από το παράθυρο άμεσης παρακολούθησης .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα