[Resolvido] Como obter os valores dos campos de um determinado registr

[PRQ 0]

No código abaixo o usuário entra com seu login e senha e é validadado.Gostaria neste ponto ,capturar todos os dados deste registro, além do login e senha. O banco de dados possui mais 2 campos : permitido (Sim/Não) e nível ( valores 1 ou 2 , sendo que 1 é o administrador e 2 o usuário comum).

Como fazer para recuperar os dados contidos nestes 2 campos?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim cn As New OleDb.OleDbConnection
		Dim cm As New OleDb.OleDbCommand
		Dim dr As OleDb.OleDbDataReader
			Dim usuario As String = txtUsername.Text

			Dim senha As String = txtPassword.Text


		Try
				cn.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")


			cn.Open()
				cm.Connection = cn
				With cm.Parameters
					.Add(New OleDb.OleDbParameter("@usuario", usuario))
					.Add(New OleDb.OleDbParameter("@senha", senha))
				End With
				cm.CommandText = "Select * from admin where ((usuario=@usuario)and (senha=@senha))"
				dr = cm.ExecuteReader()
				If dr.HasRows Then
					System.Web.Security.FormsAuthentication.RedirectFromLoginPage(usuario, False)
				Else
					lblMsg.Text = "Usuário ou Senha Incorreta!"
				End If
			Catch ex As Exception
				lblMsg.Text = ex.Message
			End Try

			Session("nome") = usuario
	End Sub

[quintelab 91]

Na condição do seu if quando o usuário é autenticado, basta usar:

If dr.HasRows Then
	 Session("ALGUM_NOME") = dr.Item("SUA_COLUNA")
	 System.Web.Security.FormsAuthentication.RedirectFromLoginPage(usuario, False)
Else
	 lblMsg.Text = "Usuário ou Senha Incorreta!"
End If

Abraços...

[PRQ 0]

Na condição do seu if quando o usuário é autenticado, basta usar:

If dr.HasRows Then
	 Session("ALGUM_NOME") = dr.Item("SUA_COLUNA")
	 System.Web.Security.FormsAuthentication.RedirectFromLoginPage(usuario, False)
Else
	 lblMsg.Text = "Usuário ou Senha Incorreta!"
End If

Abraços...

 

Bruno, eu tentei a dica mas não funciona. Exibe a mensagem de erro "No data exists for the row/column." Sem as linhas que contém o código novo, o sistema funciona bem, ou seja o usuario entra com seu login e senha e é validado liberando as páginas do projeto. Quando se coloca o código (em vermelho) há o erro como se não houvesse retornado nenhum registro.

 

If dr.HasRows Then

 

Session("permite") = dr.Item("permissao")

Session("nivel") = dr.Item("nivel System.Web.Security.FormsAuthentication.RedirectFromLoginPage(usuario, False)

 

Else

lblMsg.Text = "Usuário ou Senha Incorreta!"

End If

[quintelab 91]

O Erro ocorre somenteno na linha da Session("nivel") ou na permissão também da erro??

 

Abraços...

[PRQ 0]

O Erro ocorre somenteno na linha da Session("nivel") ou na permissão também da erro??

 

Abraços...

na permissão também dá erro.

Entendi por que você está perguntando isto. A linha da Session("nivel") que lhe passei está faltando aspas e parêntesis . Foi na hora do copiar e colar que saiu assim.

[quintelab 91]

Tente o seguinte então:

If dr.Read Then
	 Session("ALGUM_NOME") = dr.Item("SUA_COLUNA")
	 System.Web.Security.FormsAuthentication.RedirectFromLoginPage(usuario, False)
Else
	 lblMsg.Text = "Usuário ou Senha Incorreta!"
End If

Espero que funcione!!

Abraços...

[PRQ 0]

Tente o seguinte então:

If dr.Read Then
	 Session("ALGUM_NOME") = dr.Item("SUA_COLUNA")
	 System.Web.Security.FormsAuthentication.RedirectFromLoginPage(usuario, False)
Else
	 lblMsg.Text = "Usuário ou Senha Incorreta!"
End If

Espero que funcione!!

Abraços...

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif ACERTOU NA MOSCA. OBRIGADO PELA COLABORAÇÃO.RESOLVIDO