Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

pipasmeimoa

Login com BD

Recommended Posts

pipasmeimoa

Boas

Nao sei como conseguir fazer um login de um programa ligado a uma BD, ou seja só os utilizadores registados poderia fazer login.

Urgente

Cumps

pipas


FILIPE_CORREIA

Share this post


Link to post
Share on other sites
vulcano

Não estou a perceber bem a tua ideia... Estás a fazer uma aplicação em VB e queres conectar uma base de dados, criando um registo para cada utilizador na BD?

Share this post


Link to post
Share on other sites
pipasmeimoa

Sim. tenho um programa e queria implementar um sistema de login. Mas com registos numa base de dados (Access)


FILIPE_CORREIA

Share this post


Link to post
Share on other sites
set#1

Colocas este codigo no teu botao OK ou Entrar do formulario de Login.

Lembre-se que tens que ter um campo Usuario e outro de Palavra-Chave (Password) e ja teres uma tabela onde o botao ha-de ir verificar a existencia ou nao dos dados do usuario.

Private Sub btEntrar_Click()
Dim db As Database
Dim rs As DAO.Recordset
Dim confirm As Boolean
Static intlogonattempts As Integer

Set db = CurrentDb()
Set rs = db.OpenRecordset("tbLogin")
confirm = False

If IsNull(Me.txtUsuario) Or Me.txtUsuario = "" Then
    MsgBox "Introduza o seu usuario", vbOKOnly, "Erro de Dados"
    Me.txtUsuario.SetFocus
    Exit Sub
End If

If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
    MsgBox "Introduza a password", vbOKOnly, "Erro de Dados"
    Me.txtPassword.SetFocus
    Exit Sub
End If

While Not rs.EOF
    If rs!NomeEmpregado = Me.txtUsuario And rs!Password = Me.txtPassword Then
    confirm = True
    intlogonattempts = 0
    End If
    rs.MoveNext
Wend

If confirm = True Then
    DoCmd.OpenForm "frmMenu" (Aqui abres o formulario que segue ao login)
Else
    MsgBox "Verifique se os dados de Usuario e/ou Senha estao correctos", vbOKOnly, "Dados Incorrectos"
    intlogonattempts = intlogonattempts + 1
    
    If intlogonattempts > 2 Then
        MsgBox "Excedeu o numero de tentativas. Contacte o Administrador.", vbCritical, "Accesso Restrito!"
        Application.Quit
    End If
End If

End Sub

(((Peace&Love)))

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.