GetType of custom Property set to nothing

[Nicolas]

I want to return the proper Null to the SQL Database if my property is
nothing
Also I thought about creating a function so I don't have to put so many if
statement for each property for each classes etc.
However if I call ReturnValue(myC lass.CompanyNam e) and CompanyName is
Nothing then it crash where it shoud return SqlTypes.SqlStr ing.Null
Private _CompanyName As String
<ComponentModel .Browsable(True ), ComponentModel. Description("Co mpanyName"),
ComponentModel. ReadOnly(False) > _
Public Property CompanyName() As String Implements iCompany.Compan yName
Get
Return _CompanyName
End Get

Set(ByVal Value As String)
Me._CompanyName = Value
End Set
End Property

Function ReturnValue(ByV al thisObject As Object) As Object
Try
If IsNothing(thisO bject) Then

""""" CRASH HERE """ Because thisObject is nothing so I cannot get the type
Select Case thisObject.GetT ype.ToString
Case GetType(System. String).ToStrin g
Return SqlTypes.SqlStr ing.Null
Case GetType(System. Boolean).ToStri ng
Return SqlTypes.SqlBoo lean.Null
Case Else
Return SqlTypes.SqlStr ing.Null
End Select
Else
Return thisObject
End If

Catch ex As Exception
Return SqlTypes.SqlStr ing.Null
End Try
End Function

Thanks for the help

Nicolas

[Mythran]

Function ReturnValue(ByV al thisObject As Object) As Object
Try
If IsNothing(thisO bject) Then

""""" CRASH HERE """ Because thisObject is nothing so I cannot get the
type
Select Case thisObject.GetT ype.ToString
Case GetType(System. String).ToStrin g
Return SqlTypes.SqlStr ing.Null
Case GetType(System. Boolean).ToStri ng
Return SqlTypes.SqlBoo lean.Null
Case Else
Return SqlTypes.SqlStr ing.Null
End Select
Else
Return thisObject
End If

Catch ex As Exception
Return SqlTypes.SqlStr ing.Null
End Try
End Function

Nick,

If you want to return null if the object is nothing, try:

Function ReturnValue(ByV al Value As Object) As Object
If Value Is Nothing
Return DBNull.Value
Else
Return Value
End If
End Function
HTH,
Mythran