LOGIN E SENHA DO BANCO DE DADOS
só ta pegando o primeiro registro?
exemplo eu tenho tres cadastros:
teste senha 123
Ricardo senha 123
Reis senha 123
se eu digitar no txtnome Ricardo ou Reis ou qualquer cadastro novo que eu colocar diz que a senha é invalida, mais se eu digitar o primeiro registro que foi gravado ai sim entra.
oq esta faltando no meu codigo????
Conecta True
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas[Ô]
Set RS = Conexao.Execute(sSQL)
If txtUserName.Text = RS([Ô]nome[Ô]) And txtPassword.Text = RS([Ô]senha[Ô]) Then
Unload Me
If RS([Ô]funcao[Ô]) = [Ô]Gerente[Ô] Then
frm_cadastro.Show
Else
frm_Carlos.Show
End If
Else
MsgBox [Ô]Usuario ou Senha invalido, tente novamente![Ô], , [Ô]Login[Ô]
txtUserName.SetFocus
txtPassword = [Ô][Ô]
txtUserName = [Ô][Ô]
Exit Sub
SendKeys [Ô]{Home}+{End}[Ô]
End If
Conecta False
exemplo eu tenho tres cadastros:
teste senha 123
Ricardo senha 123
Reis senha 123
se eu digitar no txtnome Ricardo ou Reis ou qualquer cadastro novo que eu colocar diz que a senha é invalida, mais se eu digitar o primeiro registro que foi gravado ai sim entra.
oq esta faltando no meu codigo????
Conecta True
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas[Ô]
Set RS = Conexao.Execute(sSQL)
If txtUserName.Text = RS([Ô]nome[Ô]) And txtPassword.Text = RS([Ô]senha[Ô]) Then
Unload Me
If RS([Ô]funcao[Ô]) = [Ô]Gerente[Ô] Then
frm_cadastro.Show
Else
frm_Carlos.Show
End If
Else
MsgBox [Ô]Usuario ou Senha invalido, tente novamente![Ô], , [Ô]Login[Ô]
txtUserName.SetFocus
txtPassword = [Ô][Ô]
txtUserName = [Ô][Ô]
Exit Sub
SendKeys [Ô]{Home}+{End}[Ô]
End If
Conecta False
Estrutura do banco:
codigo, nome, função e senha
1 teste vendedor 123
2 Ricardo Gerente 123
3 Reis Gerente 123
no campo função: se na hora de logar escolher o funcionario do tipo função gerente abre o formulario de cadastro, se escolher o funcionario do tipo vendedor abre o form Venda.
codigo, nome, função e senha
1 teste vendedor 123
2 Ricardo Gerente 123
3 Reis Gerente 123
no campo função: se na hora de logar escolher o funcionario do tipo função gerente abre o formulario de cadastro, se escolher o funcionario do tipo vendedor abre o form Venda.
Conecta True
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô] Senha=[ô][Ô] & txtPassword & [Ô][ô][Ô]
Set RS = Conexao.Execute(sSQL)
If NOT RS.Eof Then
Unload Me
If RS([Ô]funcao[Ô]) = [Ô]Gerente[Ô] Then
frm_cadastro.Show
Else
frm_Carlos.Show
End If
Else
MsgBox [Ô]Usuario ou Senha invalido, tente novamente![Ô], , [Ô]Login[Ô]
txtUserName.SetFocus
txtPassword = [Ô][Ô]
txtUserName = [Ô][Ô]
Exit Sub
SendKeys [Ô]{Home}+{End}[Ô]
End If
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô] Senha=[ô][Ô] & txtPassword & [Ô][ô][Ô]
Set RS = Conexao.Execute(sSQL)
If NOT RS.Eof Then
Unload Me
If RS([Ô]funcao[Ô]) = [Ô]Gerente[Ô] Then
frm_cadastro.Show
Else
frm_Carlos.Show
End If
Else
MsgBox [Ô]Usuario ou Senha invalido, tente novamente![Ô], , [Ô]Login[Ô]
txtUserName.SetFocus
txtPassword = [Ô][Ô]
txtUserName = [Ô][Ô]
Exit Sub
SendKeys [Ô]{Home}+{End}[Ô]
End If
corrigindo...
Conecta True
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô] AND Senha=[ô][Ô] & txtPassword & [Ô][ô][Ô]
Set RS = Conexao.Execute(sSQL)
If NOT RS.Eof Then
Unload Me
If RS([Ô]funcao[Ô]) = [Ô]Gerente[Ô] Then
frm_cadastro.Show
Else
frm_Carlos.Show
End If
Else
MsgBox [Ô]Usuario ou Senha invalido, tente novamente![Ô], , [Ô]Login[Ô]
txtUserName.SetFocus
txtPassword = [Ô][Ô]
txtUserName = [Ô][Ô]
Exit Sub
SendKeys [Ô]{Home}+{End}[Ô]
End If
Conecta True
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô] AND Senha=[ô][Ô] & txtPassword & [Ô][ô][Ô]
Set RS = Conexao.Execute(sSQL)
If NOT RS.Eof Then
Unload Me
If RS([Ô]funcao[Ô]) = [Ô]Gerente[Ô] Then
frm_cadastro.Show
Else
frm_Carlos.Show
End If
Else
MsgBox [Ô]Usuario ou Senha invalido, tente novamente![Ô], , [Ô]Login[Ô]
txtUserName.SetFocus
txtPassword = [Ô][Ô]
txtUserName = [Ô][Ô]
Exit Sub
SendKeys [Ô]{Home}+{End}[Ô]
End If
valeu mais uma vez meu brother..... deu certinho!
Tópico encerrado , respostas não são mais permitidas