Saper trattare con valori nulli durante la lettura di un Recordset consente di risparmiare tempo in via di sviluppo l'applicazione di database. Microsoft Office Access è un relazionale sistemi di gestione di database inclusi nella suite Microsoft Office. Visual Basic, Applications, o VBA, viene utilizzato in Access per automatizzare le attività di routine. Una query viene utilizzato per recuperare i dati da una tabella del database. Un valore nullo rappresenta una variabile senza valore. Si otterrà un "utilizzo non valido di null" messaggio di errore quando si tenta di assegnare un valore null a una variabile.

istruzione

1 Avviare Microsoft Office Access e selezionare "Database vuoto", quindi fare clic su "Crea". Fai clic su "Strumenti di database," quindi su "Visual Basic". Fare clic sul menu "Inserisci" e selezionare "Modulo".

2 Digitare la seguente per creare una nuova subroutine:

Private Sub invalidUseOfNULL ()

Premere Invio."

3 Digitare la seguente per dichiarare le variabili:

Dim strSQL As String

Dim rst come Recordset

DBS fiochi come database

Dim readNull As String

Set dbs = CurrentDb

4 Digitare la seguente per creare una nuova tabella:

SqlString = "CREATE TABLE nullValTbl (città testo, testo di stato)"

DoCmd.SetWarnings False

DoCmd.RunSQL (SqlString)

5 Digitare la seguente per inserire tre record e un valore nullo:

strSQL = "INSERT INTO VALORI nullValTbl (NULL, 'TX')"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORI nullValTbl ( 'Dallas', 'TX')"

DoCmd.RunSQL (strSQL)

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

DoCmd.RunSQL (strSQL)

6 Digitare quanto segue per interrogare la nuova tabella utilizzando Recordset:

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

rst.MoveFirst

7 Digitare quanto segue al ciclo attraverso il campo "città" e visualizzare i risultati attraverso la finestra immediata. Il ciclo comprende un "if" per verificare se il valore Recordset è "Null" per evitare di ottenere il "non valido utilizzo di null" messaggio di errore.

Do While Non rst.EOF

Se IsNull (rst.Fields ( "città"). Value) Poi

readNull = ""

Altro

readNull = rst.Fields("city").Value

Finisci se

Debug.Print readNull

rst.MoveNext

Ciclo continuo

8 Digitare la seguente per rilasciare le variabili dalla memoria:

rst.Close

dbs.Close

Premere il tasto "F5" per eseguire la subroutine.