Estou fazendo um sistema de login... porem só consegui gerar erro quando a senha estava errada!!
utilizei o seguinte código:
rsdados.Open "SELECT * FROM logins WHERE login='" & txtlogin.text & "'", cn
if rsdados("Senha") = txtsenha.text then
msgbox "login efetuado"
~~~codigos~~~
else
msgbox "Login ou senha incorretos!"
end if
Porem queria q ele verificasse se o login existe, já que no banco de dados ele esta como chave primaria...
exemplo... queria q ele verificasse se existe a conta ou se a conta ou senha estão incorretos!
---edit---
Fiz esse codigo mas mesmo com login certo ele da a mensagem de login errado...
Private Sub cmdEntrar_Click() If txtLogin.Text = Empty And txtSenha.Text = Empty Then MsgBox "Prencha os campos corretamente!", vbCritical, "Erro" txtLogin.SetFocus ElseIf txtLogin.Text = Empty Then MsgBox "Prencha os campos corretamente!", vbCritical, "Erro" txtLogin.SetFocus ElseIf txtSenha.Text = Empty Then MsgBox "Prencha os campos corretamente!", vbCritical, "Erro" txtSenha.SetFocus Else 'inicio If txtLogin.Text <> Empty And txtSenha.Text <> Empty Then abrebanco Set rsdados = New Recordset rsdados.Open "SELECT * FROM logins", cn Do While rsdados.EOF = False If rsdados("Login") = txtLogin.Text And rsdados("Senha") = txtSenha.Text Then If rsdados("Privilegios") = 2 Then frmAdm.Caption = frmAdm.Caption & " - " & rsdados("Nome") frmAdm.Show Unload Me ElseIf rsdados("Privilegios") = 1 Then frmnormal.Caption = frmnormal.Caption & " - " & rsdados("Nome") frmnormal.Show Unload Me ElseIf rsdados("Privilegios") = 0 Then frmbaixo.Caption = frmbaixo.Caption & " - " & rsdados("Nome") frmbaixo.Show Unload Me End If ElseIf rsdados("Login") <> txtLogin.Text Or rsdados("Senha") <> txtSenha.Text Then rsdados.MoveNext If rsdados.EOF <> False Then MsgBox "Login errado" txtLogin.Text = Empty txtSenha.Text = Empty txtLogin.SetFocus End If End If Loop End If End If End Sub [/codebox]
Pergunta
Matheus-vb6
Estou fazendo um sistema de login... porem só consegui gerar erro quando a senha estava errada!!
utilizei o seguinte código:
Porem queria q ele verificasse se o login existe, já que no banco de dados ele esta como chave primaria...
exemplo... queria q ele verificasse se existe a conta ou se a conta ou senha estão incorretos!
---edit---
Fiz esse codigo mas mesmo com login certo ele da a mensagem de login errado...
Editado por Matheus-vb6Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.