Tecnología

Inicio

Cómo acceder a la consulta: Uso no válido de null

Cómo acceder a la consulta: Uso no válido de null


Saber cómo tratar con valores nulos cuando se lee un conjunto de registros que puede ahorrar tiempo a desarrollar la aplicación de base de datos. Microsoft Office Access es un sistema de base de datos relacionales de gestión incluidos en el paquete de Microsoft Office. Visual Basic para Aplicaciones, o VBA, se utiliza en Access para automatizar tareas rutinarias. Una consulta se utiliza para recuperar datos de una tabla de base de datos. Un valor nulo representa una variable sin valor. Obtendrá un "uso no válido de null" mensaje de error cuando intenta asignar un valor nulo a una variable.

Instrucciones

1 Iniciar Microsoft Office Access y seleccione "Base de datos en blanco", a continuación, haga clic en "Crear". Haga clic en "Herramientas de base de datos", haga clic en "Visual Basic". Haga clic en el menú "Insertar" y seleccione "Módulo".

2 Escribe lo siguiente para crear un nuevo subprograma:

Private Sub invalidUseOfNULL ()

Presione ENTRAR."

3 Escribe lo siguiente para declarar sus variables:

Dim como secuencia strSQL

Dim primera medida de registros

DBS dévil como Base de Datos

Dim como secuencia readNull

Set dbs = CurrentDb

4 Escribe lo siguiente para crear una nueva tabla:

sqlString = "CREATE TABLE nullValTbl (TEXTO ciudad, estado TEXTO)"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (sqlString)

5 Escribe lo siguiente para insertar tres discos y un valor nulo:

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

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORES nullValTbl ( 'DALLAS', 'TX')"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORES nullValTbl ( 'Los Ángeles', 'CA')"

DoCmd.RunSQL (strSQL)

6 Escribe lo siguiente para consultar la nueva tabla de registros usando:

Establecer primera dbs.OpenRecordset = ( "SELECT nullValTbl. * FROM nullValTbl")

rst.MoveFirst

7 Escriba lo siguiente para recorrer el campo "ciudad" y mostrar los resultados a través de la ventana Inmediato. El bucle incluye un "if" para comprobar si el valor de registros es "nulo" para evitar el "uso no válido de null" mensaje de error.

Aunque no hacer rst.EOF

Si IsNull (rst.Fields ( "ciudad"). Value) A continuación,

readNull = ""

Más

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

Terminara si

Debug.Print readNull

rst.MoveNext

Lazo

8 Escribe lo siguiente para liberar las variables de la memoria:

rst.Close

dbs.Close

Pulse la tecla "F5" para ejecutar la subrutina.