Πώς να αποκτήσετε πρόσβαση Ερώτημα : άκυρη χρήση των Null

Γνωρίζοντας πώς να ασχοληθεί με μηδενικές τιμές κατά την ανάγνωση ενός Recordset μπορεί να σας εξοικονομήσει χρόνο στην ανάπτυξη της εφαρμογής βάσης δεδομένων σας . Microsoft Office Access είναι μια σχεσιακή συστήματα διαχείρισης βάσεων δεδομένων που περιλαμβάνονται στη σουίτα Microsoft Office . Visual Basic for Applications ή VBA , χρησιμοποιείται στην Access για να αυτοματοποιήσουν εργασίες ρουτίνας . Ένα ερώτημα χρησιμοποιείται για την ανάκτηση δεδομένων από έναν πίνακα βάσης δεδομένων . Η τιμή null αντιπροσωπεύει μια μεταβλητή με μηδενική αξία . Θα πάρετε μια " άκυρη χρήση των Null " μήνυμα λάθους όταν προσπαθείτε να ορίσετε μια τιμή null σε μια μεταβλητή . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Office Access και επιλέξτε "Blank Database , " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων , " και στη συνέχεια κάντε κλικ στο κουμπί " Visual Basic ". " . Ενότητα " Κάντε κλικ στο μενού "Εισαγωγή" και επιλέξτε 2

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα υπορουτίνα :

Private Sub invalidUseOfNULL ( )

Τύπου " . Enter "
εικόνων 3

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

Dim strSQL Όπως String

Dim rst Όπως εγγραφών

Dim dbs Όπως Database

Dim readNull Όπως String

Set dbs = CurrentDb
Η 4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε έναν νέο πίνακα :

sQLString = " CREATE TABLE nullValTbl ( πόλη ΚΕΙΜΕΝΟ , κατάσταση TEXT) "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( sQLString )
5

Πληκτρολογήστε το παρακάτω, για να εισαγάγετε τρεις εγγραφές και μηδενική αξία :

strSQL = " INSERT INTO nullValTbl ΑΞΙΕΣ (NULL , " TX " ) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT ΣΕ nullValTbl ΑΞΙΕΣ ( « Ντάλας» , « Τέξας » ) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO nullValTbl ΑΞΙΕΣ ( ' LOS ANGELES ', ' CA' ) " < br >

DoCmd.RunSQL ( strSQL )
Η 6

Πληκτρολογήστε το παρακάτω, για να θέσει υπό αμφισβήτηση το νέο πίνακα χρησιμοποιώντας εγγραφών :

Set RST = dbs.OpenRecordset ( "SELECT * nullValTbl . ΑΠΟ nullValTbl " )

rst.MoveFirst
Η 7

Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω του " " πεδίο της πόλης και την εμφάνιση των αποτελεσμάτων μέσω της άμεσης παράθυρο . Ο βρόχος περιλαμβάνει ένα " Αν " δήλωση για να ελέγξετε εάν η τιμή εγγραφών είναι " Null " για να αποφευχθεί να πάρει το « άκυρη χρήση των Null " μήνυμα λάθους .

Do While Not rst.EOF

Αν IsNull ( rst.Fields ( " πόλη " ) . Value) Στη συνέχεια

readNull = " "

Else

readNull = rst.Fields ( " πόλη " ) . Value < br >

End If

Debug.Print readNull

rst.MoveNext

Loop
8

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

rst.Close

dbs.Close

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε υπορουτίνα σας
Η
εικόνων .