IsDBNull 2

[SpiderBear6]

Does anyone else find checking for nulls in a datareader annoying? Is there a better way of doing it than this...

If objReader.IsDBNull("OS") Then
  txtOS.Text = ""
Else
  txtOS.Text = objReader.Item("OS")
End If
[\code]

>:-<

 

[sunaj]

A couple of soluitions:
1) Make the cast explicit (I prefer setting option strict to true, in which case all casts must be explicit): txtOS.Text = objReader.Item("OS&quot.ToString
2) Set all fields in your database to 'not null'
3) Use isnull in your SQL statement
3) txtOS.Text = IIf(IsDBNull(objReader.Item("OS&quot
"", objReader.Item("OS&quot)

Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[bboffin]

You can use a simple function (stolen from Access VBA) in a global module:

Public Function Nz(oValue As Object, oDefaultValue As Object) As Object
    If IsDBNull(oValue) then
        Return oDefaultValue
    Else
        Return oValue
    End If
End Function

Then for a string value you use:

    MyString = Nz(dbValue,"")

or a numeric value you could use

    MyInteger = Nz(dbValue,0)

or even

    MyInteger = Nz(dbValue,-1)

You can even make the second argument optional with a default value of ""

Hope this helps

 

[SpiderBear6]

Thanks guys.