CONTROLE DE USUARIOS
Olá Pessoal, Boa noite!
Alguem teria ou pode me indicar como criar uma rotina para controle de acesso de usuarios ?
Utilizo access, sei que independe do Banco, mas se alguem tiver algo já com access, vai me ajudar muito.
Desde já agradeço
Sds
Alguem teria ou pode me indicar como criar uma rotina para controle de acesso de usuarios ?
Utilizo access, sei que independe do Banco, mas se alguem tiver algo já com access, vai me ajudar muito.
Desde já agradeço
Sds
Cara não sei se é isso que você procura, mas eu usei este codigo em uma tela de login, no evento click de um button:
Dim connString As String
connString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Felipe Oliveira\Desktop\Usuario.mdb;Mode=ReadWrite;Persist Security Info=False[Ô]
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = connString
myConnection.Open()
Dim reader As OleDbDataReader
Dim oCmd As OleDbCommand = myConnection.CreateCommand()
oCmd.CommandText = [Ô]SELECT * FROM Usuario where Usuario = [ô][Ô] & Text_usuario.Text & [Ô][ô][Ô]
reader = oCmd.ExecuteReader
While reader.Read
StrSenha = reader([Ô]Senha[Ô])
End While
myConnection.Close()
[ô] Verifica se o login e senha conferem
If Me.Text_senha.Text = StrSenha And Text_senha.Text <> [Ô][Ô] Then
Form2.show
Else
If Text_senha.Text <> StrSenha Then
MsgBox([Ô]Usuario/Senha não confere[Ô])
End If
End If
Boa sorte!!
Dim connString As String
connString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Felipe Oliveira\Desktop\Usuario.mdb;Mode=ReadWrite;Persist Security Info=False[Ô]
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = connString
myConnection.Open()
Dim reader As OleDbDataReader
Dim oCmd As OleDbCommand = myConnection.CreateCommand()
oCmd.CommandText = [Ô]SELECT * FROM Usuario where Usuario = [ô][Ô] & Text_usuario.Text & [Ô][ô][Ô]
reader = oCmd.ExecuteReader
While reader.Read
StrSenha = reader([Ô]Senha[Ô])
End While
myConnection.Close()
[ô] Verifica se o login e senha conferem
If Me.Text_senha.Text = StrSenha And Text_senha.Text <> [Ô][Ô] Then
Form2.show
Else
If Text_senha.Text <> StrSenha Then
MsgBox([Ô]Usuario/Senha não confere[Ô])
End If
End If
Boa sorte!!
Amigo, obrigado pela dica.
Mas assim, eu to precisando de um pequeno projeto com formularios onde me mostre a rotina de cadastro de usuarios com as devidas permissoes.
Sds
Mas assim, eu to precisando de um pequeno projeto com formularios onde me mostre a rotina de cadastro de usuarios com as devidas permissoes.
Sds
Digite a palavra chave [Ô]usuario[Ô] no campo de busca e clique em pesquisar.
Tecla,
Fiz a pesquisa, mas os exemplos que encontrei nao estao completos ou da erro .
Encontrei um exemplo seu, mas apenas do login, ou seja, sem as rotinas de controle de permissoes
Voce teria algum exemplo, ou poderia me indicar como eu poderia montar uma estrutura para controle de permissoes usuarios.
Obrigado,
Fiz a pesquisa, mas os exemplos que encontrei nao estao completos ou da erro .
Encontrei um exemplo seu, mas apenas do login, ou seja, sem as rotinas de controle de permissoes
Voce teria algum exemplo, ou poderia me indicar como eu poderia montar uma estrutura para controle de permissoes usuarios.
Obrigado,
Tópico encerrado , respostas não são mais permitidas