Visual Studio 2005 VB.Net Variable Values Showing in Hex

I developing a windows project in visual studio 2005.  I noticed some code is not getting the right results.  In the following code sample,  If Not IsNothing(ID) Then, is always true.  I checked the Value of ID and it was &H0.

How can I fix this?  Thanks in advance
Public Sub Login(ByVal UserName As String, ByVal Password As String, ByVal RememberMe As Boolean)
        Dim ID As Integer
        ID = clsDatabase.GetReaderSingleValue("SELECT ID FROM tblUsers WHERE Username = '" & UserName & "' AND Password = '" & Password & "'", CommandType.Text)
        If Not IsNothing(ID) Then
            GetUserByID(ID)
            Authenticated = True
        End If
    End Sub

Open in new window

moraleskpAsked:
Who is Participating?
 
moraleskpConnect With a Mentor Author Commented:
thanks for the reply jack.
The clsDatabase procedure was returning nothing with converted to 0 in ID.  I changed the datatype of ID to nullable (of integer)  and the if worked.  The hex values was because the hexadecimal display button was depressed.  until a few minuets ago, I did not know about this.
0
 
JackOfPHCommented:
Try this approach:




Public Sub Login(ByVal UserName As String, ByVal Password As String, ByVal RememberMe As Boolean)
        Dim ID As Integer
        ID = clsDatabase.GetReaderSingleValue("SELECT ID FROM tblUsers WHERE Username = '" & UserName & "' AND Password = '" & Password & "'", CommandType.Text)
        If Not ID is noting Then
            GetUserByID(ID)
            Authenticated = True
        End If
    End Sub

Open in new window

0
 
JackOfPHCommented:
opps, typing error, It should be ...

If Not ID is nothing Then

so the code should be like this



Public Sub Login(ByVal UserName As String, ByVal Password As String, ByVal RememberMe As Boolean)
        Dim ID As Integer
        ID = clsDatabase.GetReaderSingleValue("SELECT ID FROM tblUsers WHERE Username = '" & UserName & "' AND Password = '" & Password & "'", CommandType.Text)
        If Not ID is nothing Then
            GetUserByID(ID)
            Authenticated = True
        End If
    End Sub

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.