Change code to work with OLEDB

[Guest]

Can someone please tell me how I edit this code so it works with an OleDB...

Thanks



Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As
EventArgs)
' Fires upon attempting to authenticate the use
If Request.IsAuthenticated Then
'Determine this user's roles
Dim reader As OleDbDataReader
reader =
SqlHelper.ExecuteReader(ConfigurationSettings.AppSettings("strConn"),
CommandType.StoredProcedure, "rolesForUser", New OleDbParameter("@Username",
User.Identity.Name))

' Create an array of role names
Dim roleList As New ArrayList
Do While reader.Read()
roleList.Add(reader("Name"))
Loop
reader.Close()

'Convert the roleList ArrayList to a String array
Dim roleListArray As String() = roleList.ToArray(GetType(String))

'Add the roles to the User Principal
HttpContext.Current.User = _
New
System.Security.Principal.GenericPrincipal(User.Identity, roleListArray)
End If
End Sub

 

[Patrick.O.Ige]

Where are you getting the error?
Patrick

 

[Guest]

There is no error as such!

You just can't use SQLHelper object with OleDB connection So I was wondering
how else it could be done!

Here is what I'm working on!

Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As
EventArgs)
' Fires upon attempting to authenticate the use
If Request.IsAuthenticated Then

Dim objConn
Dim cmd As OleDbCommand
Dim strSQL As String

strSQL = "SELECT group FROM persons = @Username"

objConn = New
OleDbConnection(ConfigurationSettings.AppSettings("strConn"))
cmd = New OleDbCommand(strSQL, objConn)

'Determine this user's roles
Dim reader As OleDbDataReader
cmd.Parameters.Add("@Username", User.Identity.Name)
reader = cmd.ExecuteReader


' Create an array of role names
Dim roleList As New ArrayList
Do While reader.Read()
roleList.Add(reader("Name"))
Loop
reader.Close()

'Convert the roleList ArrayList to a String array
Dim roleListArray As String() = roleList.ToArray(GetType(String))

'Add the roles to the User Principal
HttpContext.Current.User = _
New
System.Security.Principal.GenericPrincipal(User.Identity, roleListArray)
End If
End Sub