Usuario E Password

[andregiestas]

eu criei um banco de dados que poderá ser modificado (adicionar ou remover contas quando estivar logado no programa), mas no form inicial, eu quero que o programa cheque se o campo usuário e o campo senha batem com os que estão no banco da dados (pelo Microsoft Office Access, claro)....

Quem souber como faço isso, peço que por favor, me ajude!

Obrigado!

[Denis Bittencourt Muniz]

Se eu entendi bem, o nome de usuário e senha estão registrados em alguma tabela do BD, certo? Se for isso, faça o seguinte (é claro que eu vou postar um exemplo ilustrativo, você deve adapita-lo):

'Usando o componente Data (componente presente na barra de componentes do VB.

Private Sub Command1_Click()

If Trim(txtNome.Text) <> "" And Trim(txtPass.Text) <> "" Then

Data1.Recorset.MoveFirst

Do While Not Data1.Recorset.EOF  'Creio que tenha mais de um usuário...

If txtNome.Text = Data1.Recordset.Fields("Nome") And txtPass.Text = Data1.Recordset.Fields("Senha") Then
'Continue o procedimento, pois você terá que fazer a exibição do próximo formulário que, lógicamente, não sei qual é ou o que é.  Não esqueça de usar um 'Exit Do' para parar o laço, ok?
Else
On Error Goto Acabou
Data1.Recordset.MoveNext
End If

Acabou:
If Err Then
MsgBox "Nada foi encontrado!"
Exit Sub
End If

Loop

End Sub

Isso é só para validação! Você cuida de inserção, exclusão, etc.. Falows!

P.S: Qualquer coisa post!

[andregiestas]

Obrigado pela resposta.... vou terminá-la e vou testá-la..... qualquer coisa eu volto a pergunta!

vlw ae!

[andregiestas]

eu fiz isso, olha:

Private Sub Entrar_Click()

If Trim(Usuário.Text) <> "" And Trim(Senha.Text) <> "" Then

Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF  'Creio que tenha mais de um usuário...

If Usuário.Text = Data1.Recordset.Fields("Usuário") And Senha.Text = Data1.Recordset.Fields("Senha") Then

'Continue o procedimento, pois você terá que fazer a exibição do próximo formulário que, lógicamente, não sei qual é ou o que é.  Não esqueça de usar um 'Exit Do' para parar o laço, ok?

Autenticacao.Hide

Comissoes.Show

Else

On Error GoTo Acabou

Data1.Recordset.MoveNext

End If

Acabou:

If Err Then

MsgBox "Usuário e/ou senha incorretos ou inexistentes"

Exit Sub

End If

Loop

End If

End Sub

Está até abrindo o outro formulário, mas tá travando..... será q eu pus alguma coisa no lugar errado?

TEXT1 se chama Usuário

TEXT2 se chama Senha

[andregiestas]

Eu tava vendo aki.... não tá precisando de senha nem login... ta entrando mesmo digitando senha errada... aaahr!

Private Sub Entrar_Click()

If Trim(Usuário.Text) <> "" And Trim(Senha.Text) <> "" Then

Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF

If Usuário.Text = Data1.Recordset.Fields("Usuário") And Senha.Text = Data1.Recordset.Fields("Senha") Then

Autenticacao.Hide

Principal.Show

Else

On Error GoTo Acabou

Data1.Recordset.MoveNext

End If

Acabou:

If Err Then

MsgBox "Usuário e/ou senha incorretos ou inexistentes"

Exit Sub

End If

Exit Do

Loop

End If

End Sub

Qual o erro? Poxa, sempre q to escrevendo login e senha errados, o sistema substitui uma que tinha criado! pqp! Ajuda eu! Plz!

Editado Dezembro 16, 2005 por andregiestas

[kuroi]

ve se assim fica mais facil:

strsql = "Select * from Login Where Usuario = '" & txtUsuario.text & "' ANd Senha = '" & txtSenha.text & "'"

set rs = cn.execute(strsql)

if rs.eof then
     msgbox "Usuário ou senha Inválido!"
     exit sub
end if

'AQUI VOCE CONTINUA COMO SE ELE TIVESSE DIGITADO A SENHA CERTA

[andregiestas]

Ixi, esquecí de dizer que já conseguí:

Private Sub Entrar_Click()

Dim msg As String

On Error GoTo Acabou

If Trim(Login.Text) <> "" And Trim(Senha.Text) <> "" Then

Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF

If Login.Text = Data1.Recordset.Fields("Login") And Senha.Text = Data1.Recordset.Fields("Senha") Then

Form1.Hide

Principal.Show

Exit Sub

Else

Data1.Recordset.MoveNext

End If

Loop

End If

Acabou:

If Err Then

msg = Err.Description

Else

msg = "Usuario e/ou senha incorretos ou inexistentes"

End If

If Trim(msg) <> "" Then MsgBox msg

Login.SetFocus

End Sub

Private Sub Sair_Click(Index As Integer)

End

End Sub

Ae, agora preciso de algo pra criar contas nesse programa! alguém se habilita?

[PedroBarreto]

Caras eu faço diferente eu uso "if" e "sql" juntos