AJUDA! TELA CADASTRO E LOGIN

ALTAIR148 26/11/2012 21:32:45
#414815
Tá confuso isso aqui... Vamos tentar entender melhor... PQ o atualizar? Pelo que entendi, não tem o que ser atualizado, vc quer cadastrar um usuário e depois logar com ele. Com isso você não deve é atualizar e sim fazer um select, você pega o usuário e senha como critérios no select, se ele retornar algo é pq o usuário e senha conferem.

Poste o código que está usando para tentar logar.
LUUCS 26/11/2012 22:22:02
#414818
Esse é o comando do botão ENTRAR do login:

Private Sub Entrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Entrar.Click
cmd = con.CreateCommand

cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = [Ô]SELECT * FROM Tb_Usuario WHERE Usuario=@Usuario and Senha=@Senha[Ô]


If TxtNome.Text.Trim = [Ô][Ô] Then
MessageBox.Show([Ô]Informe o seu nome de usuário ![Ô], [Ô]Chave[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TxtNome.Focus()
Exit Sub
End If

If TxtSenha.Text.Trim = [Ô][Ô] Then
MessageBox.Show([Ô]Informe a sua senha ![Ô], [Ô]Senha[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TxtSenha.Focus()
Exit Sub
End If


cmd.Parameters.Add([Ô]@Usuario[Ô], OleDbType.VarChar)
cmd.Parameters([Ô]@Usuario[Ô]).Value = TxtNome.Text
cmd.Parameters.Add([Ô]@Senha[Ô], OleDbType.VarChar)
cmd.Parameters([Ô]@Senha[Ô]).Value = TxtSenha.Text

con.Open()
Read = cmd.ExecuteReader
verificaLogin()
con.Close()
End Sub
ALTAIR148 26/11/2012 23:13:13
#414820 
    cmd = con.CreateCommand

        cmd.Connection = con
        cmd.CommandType = CommandType.Text
        cmd.CommandText = [Ô]SELECT * FROM Tb_Usuario WHERE Usuario=@Usuario and Senha=@Senha[Ô]


        If TxtNome.Text.Trim = [Ô][Ô] Then
            MessageBox.Show([Ô]Informe o seu nome de usuário ![Ô], [Ô]Chave[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            TxtNome.Focus()
            Exit Sub
        End If

        If TxtSenha.Text.Trim = [Ô][Ô] Then
            MessageBox.Show([Ô]Informe a sua senha ![Ô], [Ô]Senha[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            TxtSenha.Focus()
            Exit Sub
        End If


        cmd.Parameters.Add([Ô]@Usuario[Ô], OleDbType.VarChar)
        cmd.Parameters([Ô]@Usuario[Ô]).Value = TxtNome.Text
        cmd.Parameters.Add([Ô]@Senha[Ô], OleDbType.VarChar)
        cmd.Parameters([Ô]@Senha[Ô]).Value = TxtSenha.Text

        con.Open()
        Read = cmd.ExecuteReader

[ô]O codigo abaixo vai verificar se o select vai trazer algo, se ele trazer vai mostrar uma mensagem que a senha e usuario conferem, caso a senha e usuario não conferem ele retorna a mensagem dizendo que não conferem.

 If Read .HasRows = True Then
           MessageBox.Show([Ô]Senha confere[Ô])
else
MessageBox.Show ([Ô]Senha não confere[Ô])
            End If
    
        con.Close()

Por curiosidade o que tem nessa rotina verificaLogin()
OMAR2011 26/11/2012 23:16:53
#414821
Com este código não chega a lugar nenhum.
verificaLogin()
Kd o código de verificaLogin().
Porque o código acima só verifica na tabela e mais nada.


[txt-color=#e80000] If TxtNome.Text.Trim = [Ô][Ô] Then
MessageBox.Show([Ô]Informe o seu nome de usuário ![Ô], [Ô]Chave[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TxtNome.Focus()
Exit Sub
End If[/txt-color]
Coloque acima de todo o código.
JOEYRFS 27/11/2012 10:04:40
#414831
é hum usuário novo ?
Se for é só o insert e deixe ele passar..
Vai ter conferência no prox. login dele.
LUUCS 27/11/2012 12:29:56
#414848
Meu código do verifica login é este:

Private Sub verificaLogin()

With Read
If .Read Then
MessageBox.Show([Ô]Acesso permitido ! Bem Vindo [Ô][Ô][Ô] & TextBox1.Text & [Ô][Ô][Ô][Ô], [Ô]Login[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
Login2.Show()
Me.hide()
Else
tentativas += 1
If tentativas >= 3 Then
MessageBox.Show([Ô]Número de tentativas foi excedido ![Ô], [Ô]Login[Ô], MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
[ô]Fecha aplicação
End
Else
TxtUsuario.Clear()
TxtSenha.Clear()
MessageBox.Show([Ô]Chave ou senha inválida ![Ô], [Ô]Login[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If

TxtUsuario.Focus()

End With
End Sub
ALTAIR148 27/11/2012 12:35:55
#414850
Ok, teste com o código que te passei.
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar