Ako Access dotaz : Neplatné použitie Null

Vedieť , ako sa vysporiadať s hodnotami null pri čítaní Recordset vám môže ušetriť čas rozvíjať svoje databázové aplikácie . Microsoft Office Access je relačný systém pre správu databázy obsiahnuté v balíku Microsoft Office . Visual Basic for Applications alebo VBA , sa používa v programe Access k automatizáciu rutinných úloh . Otázka sa používa na načítanie dát z databázovej tabuľky . Hodnota null predstavuje premennú s žiadnu hodnotu . Získate " Neplatné použitie NULL " chybové hlásenie pri pokuse priradiť hodnotu null k premennej . Pokyny dovolená 1

Spustite program Microsoft Office Access a zvoľte " Prázdna databáza , " kliknite na tlačidlo " Vytvoriť " . Kliknite na tlačidlo " Databázové nástroje " , potom kliknite na " Visual Basic " . " . Modul " Kliknite na " Vložiť " menu a vyberte
2

Zadajte nasledujúci vytvoriť nový podprogram :

Private Sub invalidUseOfNULL ( )

Stlačte " . Zadajte "
3

Zadajte nasledujúce deklarovať svoje premenné :

Dim strSQL As String

Dim rst Ako Recordset

Dim dbs Ako databáza

Dim readNull As String

Set DBS = CurrentDb
4

Zadajte nasledujúci vytvoriť novú tabuľku :

SQLString = " CREATE TABLE nullValTbl (mesto TEXT , TEXT štát)"

DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString )
5

zadajte nasledujúce vložiť tri záznamy a hodnota null :

strSQL = " INSERT INTO nullValTbl VALUES ( nULL , " TX " ) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT DO nullValTbl VALUES ( " DALLAS " , " TX " ) "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO nullValTbl VALUES ( ' LOS ANGELES ' , ' CA ' ) "

DoCmd.RunSQL ( strSQL )
6

Zadajte nasledujúci dotaz novú tabuľku pomocou Recordset :

Set rst = dbs.OpenRecordset ( " SELECT * nullValTbl . Z nullValTbl " )

rst.MoveFirst
7

zadajte nasledujúce slučku cez pole " mesto " a zobrazenie výsledkov pomocou okna Immediate . Slučka zahŕňa " Ak " vyhlásenie skontrolovať , či hodnota Recordset je " Null " , aby sa zabránilo dostať " Neplatné použitie Null " chybové hlásenie .

Robiť , keď nie je rst.EOF

IsNull ( rst.Fields ( " mesto" ) . ) , potom

readNull = " "

Else

readNull = rst.Fields ( " mesto" ) . Hodnota

End If

Debug.Print readNull

rst.MoveNext

Loop
8

zadajte nasledujúce uvoľniť premenných z pamäť :

rst.Close

dbs.Close

Stlačte " F5 " spustiť podprogram
.

• Predchádzajúca strana: Použitie Acrobat v VB 
• Ďalšia strana: Ako nahrať viac obrázkov v ASP Net