Weten hoe om te gaan met null-waarden bij het lezen van een record set bespaart u tijd ontwikkelen van uw database applicatie . Microsoft Office Access is een relationele database management systemen opgenomen in de Microsoft Office suite . Visual Basic for Applications , of VBA , wordt gebruikt in Access om routinetaken te automatiseren . Een query wordt gebruikt om gegevens uit een database tabel te halen . Een null-waarde staat voor een variabele zonder waarde . U zult een " Ongeldig gebruik van Null " foutmelding krijgen wanneer u probeert een null toe te wijzen aan een variabele . Instructies
1 Start Microsoft Office Access en selecteer " Lege database , " klik "Create . " Klik op " Database Extra 'en vervolgens op ' Visual Basic . " Klik op het menu "Invoegen" en selecteer
Type 2 het volgende om een nieuwe subroutine creëren " Module . " : Private Sub invalidUseOfNULL
( ) Pers Nieuws " Voer "
Type 3 de volgende om uw variabelen te verklaren : . Dim strSQL
als Koord Dim rst
als Recordset
Dim dbs Als Database Dim readNull
als Koord
Set dbs = CurrentDb
Type 4 de volgende opties om een nieuwe tabel te maken : SQLString
= " CREATE TABLE nullValTbl ( stad TEKST , staat TEXT ) " DoCmd.SetWarnings
False
DoCmd.RunSQL ( SQLString )
5 Typ het volgende in te voegen drie platen en een null- waarde : strSQL = " INSERT INTO nullValTbl VALUES ( nULL , ' TX ' ) "
DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO nullValTbl VALUES ( ' DALLAS ' , ' TX ' ) " DoCmd.RunSQL ( strSQL ) strSQL
= " INSERT INTO nullValTbl VALUES ( ' LOS ANGELES ' , ' CA ' ) ' < br DoCmd.RunSQL ( strSQL ) >
Type 6 het volgende aan de nieuwe tabel met Recordset bevragen : .
Set rst = dbs.OpenRecordset ( " SELECT nullValTbl * FROM nullValTbl " ) rst.MoveFirst
Type
7 de volgende voor het doorlussen van de " field stad " en de resultaten door de venster Direct . De lus omvat een "If" statement om te controleren of de Recordset waarde " Null " om te voorkomen dat de " Ongeldig gebruik van Null " foutmelding .
Heb Terwijl Niet rst.EOF
Als IsNull ( rst.Fields ( " city " ) . Value ) dan
readNull = " "
Else
readNull = rst.Fields ( " city " ) . Value < br End > Als Debug.Print readNull
rst.MoveNext
Loop
Type
8 de volgende variabelen te bevrijden van geheugen : . rst.Close dbs.Close Druk op " F5 "
uw subroutine draaien
|
