betasl17 Postado Dezembro 8, 2004 Denunciar Share Postado Dezembro 8, 2004 boa tarde gente!estou com um probleminhaestou criando um form p/ autenticar o usuário com a senha previamente cadastrado....meu código está assim:Private Sub Command1_Click()Dim logusr As StringDim senusr As Stringlogusr = Text1.Text senusr = Text2.TextData1.Refresh Do While Not (Data1.Recordset.EOF) If Data1.Recordset("login") = logusr Then If Data1.Recordset("senha") = senusr Then Form3.Label19.Caption = logusr 'um form recebe esse valor' Form2.Label11.Caption = logusr 'um form recebe esse valor' Form1.Show Unload Me Else MsgBox ("Senha incorreta!") Text2.SetFocus End If Else Data1.Recordset.MoveNext End If Exit Sub LoopEnd Subele tá dando erro!ele só entra qd eu digito o 1º usuário da tabela.ou se não existir usuário, ele fica em loop direto...brigadinhuuuu!beijos Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Natarelli Postado Dezembro 8, 2004 Denunciar Share Postado Dezembro 8, 2004 Acredito q você esteja usando um componente DATA. Certo?Nesse caso porque você não usa uma instrução sql?data1.RECORDSOURCE = "SELECT * FROM SUA_TABELA WHERE USUARIO = '" & logusr & "' AND SENHA = '" & senusr & "'"if not data1.recordset.eof then Unload Me Form1.Showelse MsgBox ("Usuário Inválido!") exit subendif Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 AlexMunhoz Postado Dezembro 9, 2004 Denunciar Share Postado Dezembro 9, 2004 data1.RECORDSOURCE = "SELECT * FROM SUA_TABELA WHERE USUARIO = '" & logusr & "' AND SENHA = '" & senusr & "'"if not data1.recordset.eof then Unload Me Form1.Showelse MsgBox ("Usuário Inválido!") exit subendif Aproveitando Eu gostaria de saber como ficaria essa rotina em ADOAbração... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 betasl17 Postado Dezembro 9, 2004 Autor Denunciar Share Postado Dezembro 9, 2004 Bom, tentei fazer com esse código, mas ele permite a entrada de qualquer valor inserido nos campos.Até se deixar os campos em branco ele entra.você tem alguma sugestão para tratar o meu código??a parte de validação de senha e de usuário, está funcionando com o seguinte código:----------------------------------------------------------------------------------------------Private Sub Command1_Click()Dim logusr As StringDim senusr As Stringlogusr = Text1.Textsenusr = Text2.TextData1.Refresh Do While Not (Data1.Recordset.EOF) If Data1.Recordset("login") = logusr Then If Data1.Recordset("senha") = senusr Then Form3.Label19.Caption = logusr Form2.Label11.Caption = logusr Form1.Show Unload Me Else MsgBox ("Senha incorreta!") Text2.SetFocus End If Else MsgBox ("Login Inválido!") End If Exit Sub Data1.Recordset.Movenext Loop----------------------------------------------------------------------------------------------o problema é q que o movenext não está indo p/ o próximo registro na função do while.pois ele só está aceitando o 1º registro da tabela.sugestões?????Obrigada. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Dezembro 11, 2004 Denunciar Share Postado Dezembro 11, 2004 o problema é q que o movenext não está indo p/ o próximo registro na função do while.pois ele só está aceitando o 1º registro da tabela.sugestões????? Simplesmente porque você está mandando ele sair da rotina antes do MoveNext, com a linha: Exit SubTire-a dali e teste.Abraços,Graymalkin Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ventrue_rj Postado Dezembro 13, 2004 Denunciar Share Postado Dezembro 13, 2004 bom, acho q o seu exit sub está errado...tenta o seguinte: Private Sub Command1_Click() Dim logusr As String Dim senusr As String logusr = Text1.Text senusr = Text2.Text Data1.Refresh Do While Not (Data1.Recordset.EOF) If Data1.Recordset("login") = logusr Then If Data1.Recordset("senha") = senusr Then Form3.Label19.Caption = logusr Form2.Label11.Caption = logusr Form1.Show Unload Me Exit Sub Else MsgBox ("Senha Incorreta!") Text2.SetFocus End If Else Data1.Recordset.MoveNext End If Loop MsgBox ("Usuário Inválido!") End Sub valeuz Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 betasl17 Postado Dezembro 14, 2004 Autor Denunciar Share Postado Dezembro 14, 2004 oi gente eu gostaria de agradecer pelas ajudas que me deram, consegui solucionar o meu problema!!!Adorei esse site e adorei ter conhecido vocês!!!Bjs Beta Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 William Rodrigues Postado Dezembro 14, 2004 Denunciar Share Postado Dezembro 14, 2004 Que bom que gostou...Apareça sempre que quiser!!!Beijos,William Rodrigues Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 PiGmEu Postado Dezembro 14, 2004 Denunciar Share Postado Dezembro 14, 2004 Que bom que gostou...Apareça sempre que quiser!!!Beijos,William Rodrigues Will Willdeixa uma pessoa ver você mandando BEIJOS bem grifados pra você ver... tu morre! eheheehhe[]´s! PS.. Parabens por passar na Facul Will!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Mysticall Postado Dezembro 15, 2004 Denunciar Share Postado Dezembro 15, 2004 Tente retirar seu comando "loop" e usar um "exit sub" para resolver a questão de movimentação do registro. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 William Rodrigues Postado Dezembro 15, 2004 Denunciar Share Postado Dezembro 15, 2004 Will Willdeixa uma pessoa ver você mandando BEIJOS bem grifados pra você ver... tu morre! eheheehhehhehehehehe PS.. Parabens por passar na Facul Will!! Valeu....Brigadão pela força brother Abraços,William Rodrigues Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
betasl17
boa tarde gente!
estou com um probleminha
estou criando um form p/ autenticar o usuário com a senha previamente cadastrado....
meu código está assim:
Private Sub Command1_Click()
Dim logusr As String
Dim senusr As String
logusr = Text1.Text
senusr = Text2.Text
Data1.Refresh
Do While Not (Data1.Recordset.EOF)
If Data1.Recordset("login") = logusr Then
If Data1.Recordset("senha") = senusr Then
Form3.Label19.Caption = logusr 'um form recebe esse valor'
Form2.Label11.Caption = logusr 'um form recebe esse valor'
Form1.Show
Unload Me
Else
MsgBox ("Senha incorreta!")
Text2.SetFocus
End If
Else
Data1.Recordset.MoveNext
End If
Exit Sub
Loop
End Sub
ele tá dando erro!
ele só entra qd eu digito o 1º usuário da tabela.
ou se não existir usuário, ele fica em loop direto...
brigadinhuuuu!
beijos
Link para o comentário
Compartilhar em outros sites
10 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.