> Good morning all,
>
> I am trying to access an access database to authenticate users upon
> logging into my application.
>
> Something is throwing an excecption.  My error handling code should
> display this message in a msgbox.  However, the messagebox is always
> empty.
>
> Here is my error handling code.
>
> Catch ex As Exception
>             MsgBox(ex.Message, MsgBoxStyle.OKOnly)
>         Finally
>             oleConn.Close()
>         End Try
>
>         Return bolTemp
>     End Function
>
> Am I missing something?  Do I have to include any system libraries for
> error handling?  Very confusing.....
>
> Thanks in advance!
>
> -Ivan
>
> *** Sent via Developersdex http://www.developersdex.com ***

> Seth,
>
> It did not display any further information.
>
> Here is the code:  It is a function within a User class that I am using
> to authenticate my user that is logging in.  I simply put in a user name
> and a password and hit submit and it references this class:
>
> Public Function ValidUser(ByVal UserName As String, ByVal Password As
> String) As Boolean
>         Dim bolTemp As Boolean = False
>
>         Try
>             strSQL = "SELECT Roles FROM Employees WHERE (UserName = " &
> UserName & ") AND (Password = " & Password & ")"
>             oleConn = New OleDbConnection(strConString)
>             oleCmd = New OleDbCommand
>
>             oleConn.Open()
>
>             With oleCmd
>                 .CommandText = strSQL
>                 .CommandType = CommandType.Text
>                 .Connection = oleConn
>                 oleReader = .ExecuteReader(CommandBehavior.SingleRow)
>             End With
>
>             While oleReader.Read
>                 bolTemp = True
>                 UserRole = oleReader(0)
>             End While
>
>             oleReader.Close()
>         Catch ex As Exception
>             MsgBox(ex.Message, MsgBoxStyle.OKOnly)
>         Finally
>             oleConn.Close()
>         End Try
>
>         Return bolTemp
>     End Function
>
>
> -Ivan
>
> *** Sent via Developersdex http://www.developersdex.com ***

> UserRole is a property:
>
> Public Property UserRole() As String
>         Get
>             If strUserRole <> "" Then
>                 Return strUserRole
>             Else
>                 MsgBox("You are not Logged in.  System will Exit.
> Restart and Login")
>                 Application.Exit()
>             End If
>         End Get
>         Set(ByVal Value As String)
>             strUserRole = Value
>         End Set
>     End Property
>
> After this line is run, it goes to the error handling code so this must
> be the culpret but I have no clue why:
>
> oleReader = .ExecuteReader(CommandBehavior.SingleRow)
>
> -Ivan
>
> *** Sent via Developersdex http://www.developersdex.com ***

> Hi Seth,
>
> That Mcafee issue did solve the disappearing message box screen and now
> I am getting some actual errors.
>
> Adjusting the olereader outside of the With block and removing the
> parameter did not help.
>
> Here is the general dimensioning of variables for the class.  It is
> coded prior to any properties or subs
>
> Private strConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=C:\Documents and Settings\iweiss\My Documents\elite.mdb;User
> Id=admin;Password=;"
>     Private oleCmd As OleDbCommand
>     Private oleConn As OleDbConnection
>     Private oleReader As OleDbDataReader
>     Private strUserRole As String = ""
>     Private strSQL As String = ""
>
> The errors in the message box are as follows:
>
> "No Value given for one or more required parameters."
>
> Thanks for your help thus far.
>
> PS--->  I cant find that patch to resolve the virusscan issue other than
> manually disabling buffer overrun so if anyone has it or knows
> specifically where to get it that would help!
>
> -Ivan
>
> *** Sent via Developersdex http://www.developersdex.com ***

> Seth,
>
> I am not sure I understand what you are suggesting.  I tried hard coding
> the values as well as double checking my SQL statement.  It is as I want
> it.
>
> Wouldnt I want to avoid using a dataset due to memory reasons?  I am
> only looking to return one record (the roles of the Authenticated user)
> as well as confirming they are a real user.
>
> I am unfamiliar with how to access information within a dataset so I
> guess I would not know in what direction to go from the sample you sent
> me....
>
> -Ivan
>
> *** Sent via Developersdex http://www.developersdex.com ***