ERRO COM TELA LOGIN SELECT NAO ACHA USUARIOS
ola amigos estou fz uma tela de logim para meu sistema
o codigo e este
private Sub cmdOK_Click()
If txtuser = [Ô][Ô] Or txtpwd = [Ô][Ô] Then
MsgBox [Ô]Preencha os campos acima.[Ô], vbExclamation, [Ô]Campos vazio[Ô]
Exit Sub
End If
rslogin.Open [Ô]select*from tbluser where user = [ô] [Ô] & txtuser.Text & [Ô][ô] and senha =[ô] [Ô] & txtpwd.Text & [Ô] [ô] [Ô], cnn, 3, 3
If rslogin.EOF Then
MsgBox [Ô] Usuarios e senha invalidos![Ô]
txtuser.Text = [Ô][Ô]
txtpwd.Text = [Ô][Ô]
txtuser.SetFocus
rslogin.Close
Else
Unload Me
cnn.Close
End Sub
qualquer consulta feita ele informa Usuario invalidos
na minha tbluser temos
coduser, nomeuser, user, e senha
eu filtro na sql user e senha, sera que a palavra user e um termo reservado do windows ou do vb
fora isso eu nao consigo achar o problema.
o codigo e este
private Sub cmdOK_Click()
If txtuser = [Ô][Ô] Or txtpwd = [Ô][Ô] Then
MsgBox [Ô]Preencha os campos acima.[Ô], vbExclamation, [Ô]Campos vazio[Ô]
Exit Sub
End If
rslogin.Open [Ô]select*from tbluser where user = [ô] [Ô] & txtuser.Text & [Ô][ô] and senha =[ô] [Ô] & txtpwd.Text & [Ô] [ô] [Ô], cnn, 3, 3
If rslogin.EOF Then
MsgBox [Ô] Usuarios e senha invalidos![Ô]
txtuser.Text = [Ô][Ô]
txtpwd.Text = [Ô][Ô]
txtuser.SetFocus
rslogin.Close
Else
Unload Me
cnn.Close
End Sub
qualquer consulta feita ele informa Usuario invalidos
na minha tbluser temos
coduser, nomeuser, user, e senha
eu filtro na sql user e senha, sera que a palavra user e um termo reservado do windows ou do vb
fora isso eu nao consigo achar o problema.
Antes de mais nada, já fez a CONSULTA no BANCO DE DADOS? Retornou algum registro?
Outra coisa, alterei a linha abaixo.
Tente novamente:
Outra coisa, alterei a linha abaixo.
Tente novamente:
rslogin.Open [Ô]select * from tbluser where user = [ô][Ô] & txtuser.Text & [Ô][ô] and senha = [ô][Ô] & txtpwd.Text & [Ô][ô] [Ô], cnn, 3, 3
Citação:TECLA escreveu:
Antes de mais nada, já fez a CONSULTA no BANCO DE DADOS? Retornou algum registro?
Outra coisa, alterei a linha abaixo.
Tente novamente:rslogin.Open [Ô]select * from tbluser where user = [ô][Ô] & txtuser.Text & [Ô][ô] and senha = [ô][Ô] & txtpwd.Text & [Ô][ô] [Ô], cnn, 3, 3
tecla acabei de falar isso pra ele no msn
ola Tecla vc sempre me tirando dos apuros muito obrigado ficou joia[txt-size=2] [/txt-size]
Citação:PATOLOCO escreveu:
ola Tecla vc sempre me tirando dos apuros muito obrigado ficou joia[txt-size=2] [/txt-size]
Tranquilo!
Até mais!
Não esquece de encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas