24 lines
883 B
VB.net
24 lines
883 B
VB.net
Public Class NullHandler
|
|
Public Shared Function CToSqlInt(ByVal value As Integer) As SqlTypes.SqlInt32
|
|
If value = Config.NullReplacer Then
|
|
Return SqlTypes.SqlInt32.Null
|
|
Else
|
|
Return SqlTypes.SqlInt32.Parse(value.ToString())
|
|
End If
|
|
End Function
|
|
Public Shared Function CToSqlString(ByVal value As String) As SqlTypes.SqlString
|
|
If value = Config.NullReplacer.ToString() Then
|
|
Return SqlTypes.SqlString.Null
|
|
Else
|
|
Return New SqlTypes.SqlString(value)
|
|
End If
|
|
End Function
|
|
Public Shared Function CToSqlDateTime(ByVal value As DateTime) As SqlTypes.SqlDateTime
|
|
If value = DateTime.MinValue Then
|
|
Return SqlTypes.SqlDateTime.Null
|
|
Else
|
|
Return New SqlTypes.SqlDateTime(value)
|
|
End If
|
|
End Function
|
|
End Class
|