VALIDACAO DE SENHA

USUARIO.EXCLUIDOS 10/01/2005 15:01:40
#59791
Opa, to rudimentarmente fazendo esse sisteminha de validaçao de login, mais ta dando errado. Ele ta comparando direitinho mas so funciona pro 1 registro, ele n ta fazendo a consulta (sql), quem puder ajudar ta valendo...

Private Sub TextBox2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim sql As String
On Error Resume Next
sql = "Select * from Login Where Login = " & TextBox1.Text
Adodc1.Refresh
If (Trim(TextBox1.Text)) = Trim(Text1) And (Trim(TextBox2.Text)) = Trim(Text2) Then
FormTotal.Show
Unload Me
End If
If (Trim(TextBox1.Text)) <> Trim(Text1) Or (Trim(TextBox2.Text)) <> Trim(Text2) Then
Label1.Caption = "Login ou Senha Invalos"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
End If
End If
End Sub
USUARIO.EXCLUIDOS 10/01/2005 15:05:34
#59792
acabei de ve que eu esqueci dos .text dos ifs...mas ja arrumei e continua dando o erro
LCSD 10/01/2005 15:11:02
#59794
Faça assim:


If Trim(textbox1.text) = trim(TABELA!CAMPO1) and trim(textbox2.text) = trim(TABELA.CAMPO2) then


Com certeza, funcionará, pois da forma que VC está fazendo, VC está comparando o TEXT com o próprio TEXT, e fazendo isso NUNCA DARà CERTO!!
USUARIO.EXCLUIDOS 10/01/2005 15:15:47
#59797
Tipo LCSD, ehq eu n tenho mtos recursos de programaçao entaum eu fiz assim
coloquei 2 text ligados ao adodc e este a tabela login (invisiveis)
e 2 livres, daí saiu a a comparaçao entre os texts.
tanto que ta dando certo a comparaçao quando o usuario t ano registro 1
se for em outro registro que nao esteja no ponto ele nao faz a consulta como eu fiz na variavel sql.
mas vo fze oq vc falo só pra desencargo de conciencia... ehehe
USUARIO.EXCLUIDOS 10/01/2005 15:22:45
#59801
LSCD, fiz qo vc falo e agora ele ta entrando com qqr senha.... ou seja, nao ta validando...
nem eu intendi pq ta dando isso...nao tem mta logik... : /

[S51]
USUARIO.EXCLUIDOS 10/01/2005 15:25:10
#59803 Resposta escolhida
não seria assim


sql = "Select * from Login Where" _
 & "[Login] = '" & TextBox1.Text & "'"

Espero ter ajudado
USUARIO.EXCLUIDOS 10/01/2005 15:27:24
#59805
Outro detalhe no seu codigo não aparece, quando a SQL é executada... tipo assim

sql = "Select * from Login Where" _ 
& "[Login] = '" & TextBox1.Text & "'"
adodc1.recordsource = sql
adodc1.refresh
USUARIO.EXCLUIDOS 10/01/2005 15:29:05
#59807
Germanir, tentei oq vc me disse e nao deu nda...fico a mesma coisa...
USUARIO.EXCLUIDOS 10/01/2005 15:30:36
#59808
Este deve ser o problema, por isso que só funciona para o primeiro!!!!!!!!!!!!
Entendeu? Pois ao dar o refresh, o ponteiro vai para o registro 1 (Primeiro), vc coloca a sql e tal, mas se esquece de setar o recordsource com ela..... ai mesmo dando o refresh, sempre vai ficar no registro 1
não se esquece de
adodc1.recordsource = sql
antes do refresh
USUARIO.EXCLUIDOS 10/01/2005 15:33:34
#59809
Aeeee Germandir..... isso mesmo cara!!
Como nao tinha pensado nisso! [S55]
Agora deu perfeito....[S67]
Tópico encerrado , respostas não são mais permitidas
Voltar