|
Connaissant la façon de traiter avec des valeurs nulles lors de la lecture un jeu d'enregistrements peut vous faire gagner du temps à développer votre application de base de données . Microsoft Office Access est un système de gestion de bases de données relationnelles inclus dans la suite Microsoft Office . Visual Basic pour Applications, ou VBA, est utilisé dans Access pour automatiser des tâches de routine. Une requête est utilisée pour extraire des données d' une table de base de données. Une valeur nulle représente une variable sans valeur . Vous obtiendrez une " utilisation incorrecte de Null" message d'erreur lorsque vous essayez d'attribuer une valeur nulle à une variable. Instructions
1 Démarrer Microsoft Office Access et sélectionnez « Nouvelle base de données ", puis cliquez sur " Créer". Cliquez sur " Database Tools ", puis cliquez sur " Visual Basic ". Cliquez sur le menu "Insertion " et sélectionnez
2 Tapez la suivante pour créer un nouveau sous-programme "Module ". :
Privé invalidUseOfNULL Sub ( )
de la presse " Entrez "
3 Tapez le suivant pour déclarer vos variables : .
strSQL Dim As String
rst As Recordset
Dim dbs As Database
readNull Dim As String
Set dbs = CurrentDb
4 Tapez la commande suivante pour créer une nouvelle table :
SQLString = " CREATE TABLE nullValTbl (ville TEXTE, de l'Etat) "
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( SQLString )
5 Tapez la commande suivante pour insérer trois records et une valeur nulle :
strSQL = " INSERT INTO VALUES nullValTbl ( nULL, ' TX ')"
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT EN VALEURS nullValTbl ( « DALLAS », « TX ») «
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO VALUES nullValTbl (' LOS ANGELES ', ' CA' ) "
DoCmd.RunSQL ( strSQL )
6 Tapez la commande suivante pour interroger la nouvelle table à l'aide d'enregistrements: .
Set rst = dbs.OpenRecordset ("SELECT * nullValTbl d' nullValTbl " )
rst.MoveFirst
7 Tapez la commande suivante pour parcourir le champ" ville " et afficher les résultats dans la fenêtre Exécution . La boucle comprend un "if" pour vérifier si la valeur d'enregistrements est "Null" pour éviter d'avoir le « Blancs utilisation de Null" message d'erreur.
Do While Not rst.EOF
IsNull ( rst.Fields ( "city" ) . Value) Puis
readNull = ""
Else
readNull = rst.Fields ( "city" ) . Value
End If
Debug.Print readNull
rst.MoveNext
boucle
8 Tapez la commande suivante pour libérer les variables de mémoire : .
rst.Close
dbs.Close
Appuyez sur " F5 " pour exécuter votre routine
|
