Jump to content
Sign in to follow this  
VB6_SI-07

Validaçao de Login

Recommended Posts

VB6_SI-07

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


Ajudo no que poder.... As minhas bases em programação ainda são muito verdes.

Share this post


Link to post
Share on other sites
jpaulino

Faz tudo no comando SQL ...

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

Share this post


Link to post
Share on other sites
VB6_SI-07

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


Ajudo no que poder.... As minhas bases em programação ainda são muito verdes.

Share this post


Link to post
Share on other sites
VB6_SI-07

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


Ajudo no que poder.... As minhas bases em programação ainda são muito verdes.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.