Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come accedere Query argomento NULL VBA

Microsoft Office Access è un sistema di gestione di database relazionale utilizzato spesso per piccoli database locali . Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine in Access e altre applicazioni di Microsoft Office . Una query viene creata per recuperare informazioni da una tabella di database . A NULL non è zero o vuoto ma un valore sconosciuto che prende un byte di spazio nel campo della tabella . È possibile scrivere codice VBA per creare una tabella , aggiungere record ad esso compreso un valore NULL e interrogare la tabella utilizzando un argomento NULL . Istruzioni
1

Avviare Microsoft Office Access 2007 e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare " Modulo ".
2

Premere " Ctrl + A " e premere " Delete" per cancellare tutto il codice esistente.
3

Copia e incolla il codice qui sotto nel modulo . Il codice verrà visualizzato una finestra di messaggio con il numero del prodotto in cui la descrizione è NULL .

Option Compare Database

Private Sub queryNULLfield ( ) per

Dim strSQL Come
String

Dim dbs As Database Dim rst

come Recordset

Set dbs = CurrentDb

strSQL = " CREATE TABLE pRODOTTI (codice prodotto , descrizione del testo ),"

DoCmd.RunSQL ( strSQL ) per

strSQL = " INSERT INTO PRODUCT ( prodotto , Descrizione) "

strSQL = strSQL & " VALUES ( 1 , ' auto '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) per

strSQL = " INSERT INTO PRODUCT ( prodotto , Descrizione) "

strSQL = strSQL & , " VALUES ( 2 , NULL); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) per

strSQL = " INSERT INTO PRODUCT ( prodotto , Descrizione) "

strSQL = strSQL & " VALUES ( 3 , 'computer' ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) per

sqlstr = "SELECT Prodotto.Nome , PRODUCT.DESCRIPTION "

sqlstr = sqlstr & " dal prodotto "

sqlstr = sqlstr & "WHERE ( ( ( PRODUCT.DESCRIPTION ) Is Null ) ) ; "

Set rst = dbs.OpenRecordset ( sqlstr ) per

rst.MoveLast

rst.MoveFirst

MsgBox" La descrizione per il prodotto " & , . rst.Fields ( 0 ) Value & " è NULL . "

rst.Close

dbs.Close

End Sub


 

Programmazione © www.354353.com