USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Dúvidas VB6 e Banco de Dados Access
André
não registrado
ENUNCIADA !
Postada em 15/05/2008 10:58 hs   
Olá pessoal,

Alguém pode me ajudar a resolver esse seguinte problema.É o seguinte:
Estou tentando fazer uma tela de login para meu programa.De primeira vista parece estar tudo certo.Tenha uma tabela onde eu cadastro os usuários com nome de login e a senha.Só que os nomes não estao vinculados as senhas
Explo

Tenho o user andre senha 123456
tenho o use maria senha 654321

se eu digito o user andre com a senha da maria  e vice- versaconsigo entrar no
programa.O erro esta na minha logica mesmo,porque nela eu peço para procura um nome de user valido no banco e uma senha tambem se for encontrado se loga normalmente.O que eu quero é vincular o nome de user só com a senha dele.

segue ai o codigo que fiz ate agora.Se algume puderr dar uma dica...Abraço

Private Sub CmdEntrar_Click()

If TextNomeUser.Text = Empty Then
   MsgBox " PREENCHA OS CAMPOS PARA LOGAR NO SISTEMA!", vbExclamation, "LOGON DE SISTEMA"
   TextNomeUser.SetFocus
   Exit Sub
End If
If TextSenha.Text = Empty Then
   MsgBox " PREENCHA OS CAMPOS PARA LOGAR NO SISTEMA!", vbExclamation, "LOGON DE SISTEMA"
   TextSenha.SetFocus
   Exit Sub
End If
tbuser.Index = "IndLogin"
tbuser.Seek "=", TextNomeUser.Text
If tbuser.NoMatch = False Then
   TextSenha.SetFocus
Else
   MsgBox " USUÁRIO NÃO ENCONTRADO!", vbExclamation, "LOGON DE SESTEMA"
   TextNomeUser.Text = ""
   TextSenha.Text = ""
   TextNomeUser.SetFocus
   Exit Sub
End If
tbuser.Index = "IndSenha"
tbuser.Seek "=", TextSenha.Text
If tbuser.NoMatch = False Then
   CmdEntrar.SetFocus
Else
   MsgBox " SENHA INVÁLIDA!", vbExclamation, "LOGON DE SISTEMA"
   TextSenha.Text = ""
   TextNomeUser.Text = ""
   TextNomeUser.SetFocus
   Exit Sub
End If
Unload Me
FormCadastro.Show

End Sub
   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 15/05/2008 11:44 hs         
cara este assunto é extenso vá em www.macoratti.net e procure por implementando segurança a nivel de usuário.
depois se surgir dificuldade na implementação post que continuamos aqui pra ajudar.
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 15/05/2008 11:47 hs            
colega seu código está confuso e não vai funcionar, pois você faz uma busca pelo n ome e depois faz uma outra busca pela senha então vai acontecr isto mesmo você vai sempre entrar com a senha de um usuario com login de outro.
 
o que você deve fazer é localizar o registro pelo nome e compara a senha deste registro com a que  está digitada no campo txtsenha ai sim validar
 
você pode fazer utilizando o like
 
poste aqui a forma como você está conectando o banco de dados
 
vai ficar mais fácil
 
   
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 15/05/2008 11:51 hs            
andre, no sql eu faço assim
select * from tabela where codigo=txtCodigo.text and usuario=txtUsuario.text
assim so traz o usuario com a senha que ele digitou por causa do AND, tem que ser um E o outro ok..
 
agora nao conheço essa sintaxe que vc esta usando, mas ficaria algo como.
 
tbuser.Index = "IndUser"
tbuser.Seek "=", TextUser.Text  & " and " & TextSenha.Text
If tbuser.NoMatch = False Then
  nao achou
else
  achou
end if
   
André
não registrado
Postada em 15/05/2008 11:54 hs   
Postar o código?

O programa esta se conectado ao banco por um objeto Data apontando pra tabela com os dados de usuários!
     
IceEyes
BRASIL
MS - BRASIL
ENUNCIADA !
Postada em 15/05/2008 15:29 hs            
se está usando o objeto data pode usar

with data1.recordset
               findMin "campo_nome=' " & txtnomeuser & " ' "
               if not .nomatch then  'se achar o nome que vc digitou no seu db
                       if textsenha=!campo_senha then
                                   msgbox "Registro Localizado e senha confere!"
                       else
                                   msgbox "Usuario e senha não conferem!"
                       end if
               end if
end with


tenta com isso ... se está usando um objeto data é facil rápido e sem erros
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página