Come posso verificare correttamente DBNull in VB?

Question

Perché il seguente codice:

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

risultati nella seguente errore:

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

Quando AndAlso si suppone cortocircuito secondo questo articolo:

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

Answer 1

Lei ha ragione. AndAlso è in cortocircuito.

Tuttavia, l'errore viene da chiamandoCurRow("GuyBook") (verificare questo in un debugger per assicurarsi che io non sono un bugiardo o fare alcune ipotesi folli o semplicemente * misremembering ;-). Prima di chiedere un valore, è necessario chiedere al DataRow if it has a value. Cioè, utilizzare:

CurRow.IsNull("BuyBook") 

Felice codifica.

---

* Un dovrebbe solo essere in grado di confrontare con DBNull.Value o utilizzare IsDBNull. Tuttavia, sono abbastanza certo che ho eseguito una riga prima che queste eccezioni invece di restituire un oggetto DBNull. Inizia scoprendo - nella finestra immediata del debugger - esattamente quale espressione lancia l'eccezione.

Answer 2

Invece di non IsDBNull (CurRow ("BuyBook")), utilizzare NOT (CurRow ("BuyBook")) è System.Dbnull.Value). Prova questo:

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

avete provato a confronto in questo modo:

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

Answer 4

In vb.net faccio di solito qualcosa di simile:

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

vecchio trucco da un'epoca VB6. Se CurRow("BuyBook") è nullo, vb.net lo considererà come stringa vuota quando lo concatena con un'altra stringa.

Answer 5

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

Spero che sia d'aiuto.