[Resolvido]Login com banco de dados

alguém poderia me informar com eu posso fazer validação de login e senha usando o banco de dados vba access?

forma de fazer sem banco é simples:

Código:

if txtNome = "abc" and txtSenha ="123" then
FrmCadastro.show 1 ' isso funcionaria no vb, mas no vba não existe .Show, como chama o outro form?
else
msgbox"acesso inválido"
end if




Como faz com banco de dados?

adriano_byte

Tudo bem.

Crie uma tabela "tabUsuarios" e com base nessa tabela um formulário para Cadastro de Usuários(as pessoas que irão utilizar o sistema).

Os campos da tabela seriam: idUsu//nomeUsu//cargoUsu//loginUsu//senhaUsu

No formulário, após o campo senhaUsu, coloque um TextBox não acoplado com o nome de "txtRedigite"

Coloque no campo "Antes de Atualizar" do formulário:

If Me.senhaUsu = Me.txtRedigite Then
Me.txtRedigite = Null
Me.txtRedigite.Visible = False
Else
MsgBox "Senha e confirmação de senha não conferem! " & vbCrLf & "Digite novamente senha e confirmação." , vbInformation , "Senha não confere"
Me.senhaUsu = Null
Me.txtRedigite = Null
Me.senhaUsu.SetFocus
Cancel = True
End If
End Sub

Agora crie um formulário para Login

Coloque 2 caixas de texto não acoplado, dê os seguintes nomes:
txtData//txtSenha

Coloque 1 caixa de combinação, de o seguinte nome:
cboLogin ----> Configure com os campos idUsu//loginUsu//senhaUsu (Manter os campos idUsu e senhaUsu invisíveis na caixa de combinação.

Coloque 2 botões de comando, de os seguintes nomes:
cmdOk//cmdSair

Coloque no formulário de Login, no evento "Ao Abrir" do formulário o seguinte código:

Me.cmdOk.Enabled = False
Me.cboLogin.Enabled = False
me.txtSenha.Enabled = False

No campo txtData, no evento "Após Atualizar"

If Me.txtData <> Date Then
MsgBox "A data não confere!"
Me.txtData = Null
Me.txtData.SetFocus
Else
Me.cboLogin.Enabled = True
Me.txtSenha.Enabled = True
Me.cboLogin.SetFocus
End If
End Sub

Agora vamos realizar a validação:

No campo txtSenha, no evento "Após Atualizar"

If Not IsNull(Me.cboLogin) And Not IsNull(Me.txtSenha) Then

Me.txtSenha = Me.cboLogin.column(2) 'O 2 representa a senha contida na caixa de combinação
MsgBox "Login e Senha confere!"

Else

MsgBox "Informe Login e Senha antes de continuar!"
Me.cboLogin = Null
Me.txtSenha = Null
Me.cboLogin.SetFocus

End If
End Sub

No botão cmdSair, coloque o código que vai abrir o outro formulário, tipo um Menu.

Espero ter ajudado.

RDuarte

Depois de todos esses codigos com certeza vc tem um exemplo feito no access. Tem como postar ele?

Tentarei fazer como vc disse.

Bom dia, tudo bem.

Agora estou no trabalho, porém assim que eu puder envio para você. Ok.

RDuarte

Beleza cara!

se puder pode mandar.

Adriano, tudo bem.

Segue o pequeno BD Caixa de Login, informo que é só um demonstrativo, que você possa aprimorar da melhor forma possível, ok.

Senhas:
Login: paulo Senha paulo9
Login: paula Senha maria9

RDuarte

Esse exemplo veio caprichado, vou tentar entende-lo.

Só com doCmd deu pra validar os campos??? Não sabia, tenho que analisar aqui.

Obrigado pela força!

Tem como ser com um campo txt login e o outro senha?

Eu tentei aqui fazer a mesma coisa que vc fez no combo com o textbox.column. Mas não tem o paramentro column() para txt.


pensei em criar uma sub com a sintax sql retornando o nome e a senha, mas vai dá erro mesmo.

Eu teria que fazer o seguinte.

If txtnome = select nome from usuario where nome='" & txtnome &"' and txtsenha...;

msgbox "conferi"

else
msgbox "Erro na autenticação"
end if

O codigo iria fazer um loop atraz dos dados inseridos e ver se conferi no banco.

Isso é só querendo passar uma logica de como eu queria que fosse.

Me ajuda mais uma vez, please!

Resolver pedindo ajuda é bom!

Mas resolver sozinho e faaaantasticoooo!

conseguir conectar no banco da maneira que realmente deveria ser.

EU agradeço ao vc Duarte, por ter me ajudado.

adriano_byte

Tudo bem?

Desculpe o contato atrasado, estou enviando pequeno BD Caixa de Login_Atualizado, isso é com uma caixa de texto no lugar da caixa de combinação.

Acrescentei ao código:

Private Sub txtSenha_AfterUpdate()
Dim strSenha As String

'Utilizando caixa de texto no lugar de caixa de combinação

strSenha = DLookup("[senhaUsu]", "tabUsuarios", "[loginUsu] Like '" & Me.txtLogin & "'")

If Me.txtSenha = strSenha Then
MsgBox "Login e Senha confere!"
Me.cmdOK.Enabled = True
Me.cmdOK.SetFocus

Else

MsgBox "Informe Login e Senha antes de continuar!"
Me.txtLogin = Null
Me.txtSenha = Null
Me.txtLogin.SetFocus

End If

End Sub

Graças a Deus que você conseguiu, porém ai está ainda que demorado. OK.

Abraços.
RDuarte

Obrigado pela atenção amigo, irei ver isso.