Initial

DataAccess/NullHandler.vb

@@ -0,0 +1,23 @@
+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