¿Cómo verifico correctamente DBNull en VB?

Question

¿Por qué el siguiente código:

A = not IsDBNull(CurRow("BuyBook")) AndAlso CType(CurRow("BuyBook"), string) = "Yes" 

resultados en el siguiente error:

Conversion from type 'DBNull' to type 'String' is not valid. 

Cuando AndAlso se supone que es de corto circuito de acuerdo con este artículo:

http://support.microsoft.com/kb/817250

Answer 1

Estás en lo correcto. AndAlso está en cortocircuito.

Sin embargo, el error viene por llamandoCurRow("GuyBook") (verificar esto en un depurador para asegurarse de que no soy un mentiroso o hacer algunas suposiciones locos o simplemente misremembering * ;-). Antes de solicitar un valor, debe consultar el DataRow if it has a value. Es decir, use:

CurRow.IsNull("BuyBook") 

Happy coding.

---

* Una debe ser sólo capaz de comparar con DBNull.Value o utilizar IsDBNull. Sin embargo, estoy bastante seguro de que encontré una fila antes de que lanzara estas excepciones en lugar de devolver un objeto DBNull. Comience descubriendo - en la Ventana Inmediata del Depurador - exactamente expresión que arroja la excepción.

Answer 2

En lugar de no IsDBNull (CurRow ("BuyBook")), el uso de NOT (CurRow ("BuyBook")) es System.Dbnull.Value. Prueba esto:

A = (NOT (CurRow("BuyBook")) is System.Dbnull.Value) AndAlso CType(CurRow("BuyBook"), string) = "Yes" 

O

A = not string.IsNullOrEmpty(CurRow("BuyBook")) AndAlso CType(CurRow("BuyBook"), string) = "Yes" 

Answer 3

has necesitado comparación de la siguiente manera:

If CurRow("BuyBook") Is DBNull.Value Then 
    '... 
End If 

Answer 4

En vb.net por lo general hago algo como esto:

A = (CurRow("BuyBook") & "" = "Yes") 

viejo truco de la época de VB6. Si CurRow("BuyBook") es nulo, vb.net lo considerará como una cadena vacía al concatenarlo con otra cadena.

Answer 5

If dt.Rows(0)("BuyBook") = DBNull.Value Then 
End If 

Espero que ayude.