fix dbnull error

2015-10-12 11:55:59 +02:00 · 2015-10-12 11:55:59 +02:00 · d65eeafdd0
commit d65eeafdd0
parent ce5528a42a
1 changed files with 4 additions and 0 deletions
--- a/app/BrainpoolXmlParser/DB.vb
+++ b/app/BrainpoolXmlParser/DB.vb
@ -66,6 +66,10 @@ Public Class DB
        Dim sql = String.Format("SELECT VALUE FROM {0} WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", table, controlId, recordId)
        Dim value = Me.Scalar(sql)

+        If (IsDBNull(valueToCompare) Xor IsDBNull(value)) Then
+            Return False
+        End If
+
        Return value = valueToCompare
    End Function