1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . Επιλέξτε το μενού "Εισαγωγή" και κάντε κλικ στο "ενότητα ". 2
Αντιγράψτε και επικολλήστε το ακόλουθο κείμενο το νέο module σας να βρόχο μέσα από τα χωράφια του πίνακα « Υπάλληλος » και να εμφανίσει τους τύπους δεδομένων :
Private Sub getDataTypes ( )
Dim Varnum Όπως Παραλλαγή
Dim rst Όπως εγγραφών
Dim dbs Όπως Database
Dim fldCnt As Integer
Set dbs = CurrentDb
strSQL = "SELECT * FROM εργαζόμενοι εργαζόμενοι ? . "
Set RST = dbs.OpenRecordset ( strSQL )
Για fldCnt = 0 Για να rst.Fields.Count - . 1
Varnum = rst.Fields ( fldCnt ) Τύπος
Επιλογή υπόθεση Varnum
υπόθεση είναι = dbBigInt
Debug.Print " Τύπος δεδομένων Ακέραιος είναι μεγάλη "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα