• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

VB6_SI-07

Validaçao de Login

5 mensagens neste tópico

Boas,

Pessoal estou ai com umas duvidas... estou a fazer um trabalho em VB6 e tem um login como mostra a imagem.

loginp.th.png

So que tenho aqui uns erros no código e nao consigo corrigir (Ainda mt verdinho em VB  ;)). Será que alguém me pode ajudar no codigo??

Private Sub Command1_Click()
    If txtutilizador.Text = "" Then
        MsgBox ("Introduza o seu nome de utilizador"), vbInformation, "Aviso": Exit Sub
    End If

    If txtsenha.Text = "" Then
        MsgBox ("Introduza a sua senha de utilizador"), vbInformation, "Aviso": Exit Sub
    End If

conConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:....mdb;Mode=Read|Write"

conConnection.Open

With cmdCommand
    .ActiveConnection = conConnection
    .CommandType = adCmdText
     strSQL = "SELECT Utilizador, Senha FROM Utilizadores_Senhas"
    .CommandText = strSQL
        .Find " Utilizador = '" & (txtutilizador.Text) & "' "
        'Procura e compara o utilizador com o que esta na base de dados
        If .EOF Then
            'Se o registo nao for encontrado
            MsgBox "Utilizador nao encontrado", vbInformation, "Aviso"
        Else
            If Senha = (txtsenha.Text) Then
                'Senha introduzida for a correcta
                Menu.Show
            Else
                conConnection.Close
                MsgBox "Senha incorrecta", vbInformation, "Aviso": Exit Sub
            End If
        End If
    .Execute
    End With
End With
conConnection.Close
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Faz tudo no comando SQL ...

  strSQL = "SELECT Utilizador, Senha FROM Utilizadores_Senhas WHERE Utilizador = '" & txtutilizador.Text & "' AND senha = '" & txtsenha.Text & "';"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Este código esta mesmo parvo... na execução quando introduzo a senha diz que a senha esta incorrecta... ja verifiquei o nome dos campos na base de dados e nada...

Poderá ser mais alguma coisa??

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas pessoal,

Continuo com problemas no código será que alguém me pode ajudar?? :D

Este código é para a validação depois de introduzir os dados continua a dizer que não encontra utilizadores ou que a senha esta errada.

Dim conConnection As New ADODB.Connection
Dim cmdCommand As New ADODB.Command
Dim strSQL As String

Private Sub Command1_Click()
    If txtutilizador.Text = "" Then
        MsgBox ("Introduza o seu nome de utilizador"), vbInformation, "Aviso": Exit Sub
    End If

    If txtsenha.Text = "" Then
        MsgBox ("Introduza a sua senha de utilizador"), vbInformation, "Aviso": Exit Sub
    End If

With cmdCommand
conConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:.mdb;Mode=Read|Write"
conConnection.Open
    .ActiveConnection = conConnection
    .CommandType = adCmdText
     strSQL = "SELECT Utilizador, Senha FROM Utilizadores_Senhas WHERE Utilizador = '" & txtutilizador.Text & "' AND senha = '" & txtsenha.Text & "';"
    .CommandText = strSQL
        'Procura o utilizador na base de dados
        If Utilizador = (txtutilizador.Text) And Senha = (txtsenha.Text) Then
                    'Se dados forem introduzidos correctamente
                    Menu.Show
        Else
             MsgBox "Utilizador nao encontrado ou Senha incorrecta", vbInformation, "Aviso": Exit Sub
                    conConnection.Close
        End If
    .Execute
End With
conConnection.Close
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora