VB COM SISTEMA DE LOGIN COM BD

USUARIO.EXCLUIDOS 10/12/2006 20:18:04
#189148
gente , faz um tempao que eu to tentando fazer isso e nao consigo...
eu to querendo fazer um form em que o usuario tenha que colocar seu nome de usuario e senha e se estiver correto, que ele entre no sistema.
o negocio e que eu fiz uma tabela, com 3 usuarios diferentes, e o programa so ta reconhecendo o primeiro usuario entende?Se o usuario 3 digitar tudo certinho, mesmo assim ele nao reconhece.
Por favor, gostaria muito de saber como arrumar isso.o codigo que eu fiz foi este

Public bdusuarios As Database
Public pesquisa As Recordset
Public tabelausuarios As Recordset

Private Sub Command1_Click()
Set bdusuarios = OpenDatabase(App.Path & "\bdusuarios.mdb")
Set tabelausuarios = bdusuarios.OpenRecordset("tabelausuarios", dbOpenSnapshot)
Usuario = Text1.Text
Senha = Text2.Text
    If Usuario = tabelausuarios("Usuario") And Senha = tabelausuarios("Senha") Then
        MsgBox "Seja bem vindo"
    Else
        MsgBox "Acesso negado!"
    
    End If
End Sub


Private Sub Form_Load()
Set bdusuarios = OpenDatabase(App.Path & "\bdusuarios.mdb")
Set tabelausuarios = bdusuarios.OpenRecordset("tabelausuarios", dbOpenSnapshot)
End Sub


Vlw
ESLEYSANCHES 10/12/2006 20:54:03
#189154 Resposta escolhida
Use a seguinte sintaxe SQL:

SELECT * FROM sua_tabela WHERE NOME='seu_usuario' AND SENHA='sua_senha'

if seu_recordset.EOF = true then
    msgbox("Usuário ou senha inválidos")
    exit sub
else
    msgbox("Parabens, está logado !!")
    exit sub
end if


Espero que te ajude !!
Abraços !!
ESLEYSANCHES 10/12/2006 20:59:57
#189155
Veja se o exemplo em anexo te dá uma ajuda !!

Espero que te ajude
Abraços !!
USUARIO.EXCLUIDOS 10/12/2006 21:02:31
#189156
ok vo ver se da certo!!!
ESLEYSANCHES 10/12/2006 21:34:22
#189164
OK, depois só não esqueça de encerrar o tópico !!

Abraços!!
Tópico encerrado , respostas não são mais permitidas
Voltar