login de usuario


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: login de usuario

Rogério
não registrado

ENUNCIADA !

Postada em 25/01/2010 21:36 hs

ola amigos...
eu baixei um programa com codigo fonte aberto e usei no meu projeto...
mas logo vi um erro...
eu tenho varios usuarios em um tabela do access 2003
quando vou logar tenho que digitar o usuario e a senha correta.. ate ai tudo bem.
Só que o problema é que eu posso escolher qualquer usuario que todas as senhas dao certo.
EX... eu tenho user 1 = Rogerio senha = 1234 user 2 = user senha = 12
se eu digitar Rogerio e a senha do user 2 ele vai entar do mesmo jeito...
Obs. tenho só uma tabela no meu banho de dados...
Como faço pra sincronizar a senha com o usuario?
Obrigado grato desde já...

PH1959

SÃO JOSÉ DOS CAMPOS
SP - BRASIL

Postada em 26/01/2010 12:03 hs

como é a estrutura da tabela? vc tem uma tabela usuario com campo nome e senha?

se tiver...

é só usar o sql ... (eu usei um botão de comando)

private sub command1_click()

a= textnomeusuario.text

b= textsenha.text

ssql="select senha from usuario where nome = " & a

' com este sql vc vai pegar a senha ...

c = tabela("senha")

if b=c then

'continua seu programa

else

msgbox "usuario ou senha incorreta"

exit sub

endif

end sub

Rogerio
não registrado

Postada em 26/01/2010 12:16 hs

Obrigado pela dica...

Vou testar ela... Abraço

Treze

SÃO VICENTE
SP - BRASIL

Postada em 26/01/2010 16:16 hs

Colega porque vc não posta o código do botão que efetua o login

Rogerio
não registrado

Postada em 26/01/2010 18:58 hs

Esse é o codigo do botao de acesso...
Data1.Recordset.FindMin "Nome = '" & Text1 & "'"
If Data1.Recordset.NoMatch Then
    MsgBox "Usuário não cadastrado !", 16, "Acesso Negado"
    Text1 = ""
    Text1.SetFocus
    Exit Sub
Else
    Data1.Recordset.FindMin "Senha = '" & Text2 & "'"
    If Data1.Recordset.NoMatch Then
        MsgBox "Senha Inválida !", 16, "Acesso Negado"
        Text1 = ""
        Text2 = ""
        Text1.SetFocus
        Exit Sub
    End If
End If

Unload Me

Form2.Show

Treze
não registrado

Postada em 27/01/2010 13:19 hs

bom esta forma está errada mesmo

qual é o certo vc fazer a busca pelo nome

Data1.Recordset.FindFirs_t "Nome = '" & Text1 & "'"
If Data1.Recordset.NoMatch Then
    MsgBox "Usuário não cadastrado !", 16, "Acesso Negado"
    Text1 = ""
    Text1.SetFocus
    Exit Sub
Else
    'se encontrar fazer a seguinte comparação

If Data1.Recordset.Field("Senha") = txtSenha.Text then

'caso a senha estecorreta chame o form aqui

Else

'coloque a mensagem que a senha é incorreta

End If

Obs: tire o underline ( _ ) da palavra FindFir_t pois o site altera para FindMin se for colocado da forma correta.

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR