DBNull Value es un producto único objeto que se utiliza para indicar que un tipo de base de datos tiene un valor de base de datos de Null.
Ejemplo
Sub Main () Dim P As Object Dim P As Object Dim I As Integer Dim I As Integer Debug.Print( "1. P is not set to anything." ) Debug.Print ("1. P no está en ninguna parte.") Debug.Print( "P Is Nothing: " & (P Is Nothing )) Debug.Print ("P es nada:" & (P Is Nothing)) Debug.Print( "P Is DBNull.Value: " & (P Is DBNull.Value)) Debug.Print ("P ¿Es DBNull.Value:" & (P ¿Es DBNull.Value)) Debug.Print( "----------" ) Debug.Print ("----------") P = New Object () P = new Object () Debug.Print( "2. P is set to a new object." ) Debug.Print ("2. P se establece en un nuevo objeto.") Debug.Print( "P Is Nothing: " & (P Is Nothing )) Debug.Print ("P es nada:" & (P Is Nothing)) Debug.Print( "P Is DBNull.Value: " & (P Is DBNull.Value)) Debug.Print ("P ¿Es DBNull.Value:" & (P ¿Es DBNull.Value)) Debug.Print( "----------" ) Debug.Print ("----------") P = DBNull.Value P = DBNull.Value Debug.Print( "3. P is pointing to the special singleton class DBNull." ) Debug.Print ("3. P apunta a la clase singleton DBNULL especiales.") Debug.Print( "P Is Nothing: " & (P Is Nothing )) Debug.Print ("P es nada:" & (P Is Nothing)) Debug.Print( "P Is DBNull.Value: " & (P Is DBNull.Value)) Debug.Print ("P ¿Es DBNull.Value:" & (P ¿Es DBNull.Value)) Debug.Print( "----------" ) Debug.Print ("----------") I = Nothing I = Nada Debug.Print( "4. I is not set to anything." ) Debug.Print ("4. No se establece en algo.") Debug.Print( "I Is Nothing: " & (IsNothing(I))) Debug.Print ("Yo no es nada:" & (IsNothing (I))) Debug.Print( "I Is DBNull.Value: " & (IsDBNull(I))) Debug.Print ("I Ain't DBNull.Value:" & (IsDBNull (I))) End Sub End Sub
1. 1. P is not set to anything. P no está en ninguna parte. P Is Nothing: True P ¿Es Nada: Verdadero P Is DBNull.Value: False P ¿Es DBNull.Value: Falso ---------- ---------- 2. 2. P is set to a new object. P se establece en un nuevo objeto. P Is Nothing: False P ¿Es Nada: Falso P Is DBNull.Value: False P ¿Es DBNull.Value: Falso ---------- ---------- 3. 3. P is pointing to the special singleton class DBNull. P apunta a la clase singleton DBNULL especiales. P Is Nothing: False P ¿Es Nada: Falso P Is DBNull.Value: True P ¿Es DBNull.Value: Verdadero ---------- ---------- 4. 4. I is not set to anything. No se establece en algo. I Is Nothing: False Yo no es nada: Falso I Is DBNull.Value: False I ¿DBNull.Value: Falso
Para finalizar existe 2 formas de usar isnothing ejemplo
'http://lafabricadesoftware.blogspot.com/
If IsNothing(myObject) then
End If
If myObject Is Nothing thenEnd If
End If
Tomado de referencia de http://www.devblog.com/2007/11/nothing-and-null-in-vbnet.html
No hay comentarios:
Publicar un comentario