Validação De Login E Senha

[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

[Guest Natarelli]

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.Show

else

MsgBox ("Usuário Inválido!")

exit sub

endif

[AlexMunhoz]

data1.RECORDSOURCE = "SELECT * FROM SUA_TABELA WHERE USUARIO = '" & logusr & "' AND SENHA = '" & senusr & "'"

if not data1.recordset.eof then

Unload Me

Form1.Show

else

MsgBox ("Usuário Inválido!")

exit sub

endif

Aproveitando

Eu gostaria de saber como ficaria essa rotina em ADO

Abração...

[betasl17]

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 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

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.

[Graymalkin]

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 Sub

Tire-a dali e teste.

Abraços,

Graymalkin

[ventrue_rj]

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

[betasl17]

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

[William Rodrigues]

Que bom que gostou...

Apareça sempre que quiser!!!

Beijos,

William Rodrigues

[PiGmEu]

Que bom que gostou...

Apareça sempre que quiser!!!

Beijos,

William Rodrigues

Will Will

deixa uma pessoa ver você mandando BEIJOS bem grifados pra você ver... tu morre!

eheheehhe

[]´s!

PS.. Parabens por passar na Facul Will!!

[Mysticall]

Tente retirar seu comando "loop" e usar um "exit sub" para resolver a questão de movimentação do registro.

[William Rodrigues]

Will Will

deixa uma pessoa ver você mandando BEIJOS bem grifados pra você ver... tu morre!

eheheehhe

hhehehehehe

PS.. Parabens por passar na Facul Will!!

Valeu....

Brigadão pela força brother

Abraços,

William Rodrigues