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
Gain unlimited access to on-demand training courses with an Experts Exchange subscription.Get Access
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.