Login em VB

Boas!
Este é o meu primeiro post neste forum.

Estou a fazer um trabalho e preciso do codigo para o login.

Estou a usar o VisualStudio, com o projecto em VB.
Criei um formulario de login (automatico . faz encriptacao das pwds e isso td) mas nao estou a conseguir fazer a comparacao dos campos da tabela com os dados inseridos nas text boxes.

Tenho uma tabela com Username e Password no dataset.

Como faço a comparaçao?


Tinha isto para aqui que tinha feito para a escola espero que dê para tirares alguma ideia:

Private Sub cmd_ok_Click()
Data_utilizadores.RecordSource = "SELECT utilizadores.username, utilizadores.password From utilizadores WHERE (((utilizadores.username)='" & Text_utilizador.Text & "'));"
Data_utilizadores.Refresh
If Data_utilizadores.Recordset.EOF Then
MsgBox "Utilizador desconhecido"
ElseIf Data_utilizadores.Recordset.Fields("password") = Text_password.Text Then
Unload Me
principal.Show
Else
MsgBox "Passsword Incorrecta"
End If
End Sub



Neste codigo 'Data_utilizadores' refere-se a quê?


Pensei em fazer uma query com parametros a retornar o valor da tabela, sendo o parametro o texto introduzido na textbox.



Mais tarde espero poder por aqui o codigo a que me refiro.
Gostava de receber alguma ajuda entretanto.

Obrigado.


Ja resolvi o problema.
Fica aqui o codigo:


Código:
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If Me.LoginTableAdapter.FillLogin(Me.TrabalhoDataSet2.Login, Me.UsernameTextBox.Text, Me.PasswordTextBox.Text) Then
            Form1.Show()
            Me.Visible = False
        Else
            MessageBox.Show("Password ou Username invalidos!")
            Me.Refresh()
        End If
    End Sub
O login mante-se aberto, mas escondido.
Quando se fecha o Form1 (form principal) pode fechar-se tambem a janela do login, editando em Form1.Designer.vb o codigo:

Código:
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)  
        LoginForm1.Close()           <---
    End Sub
Espero que ajude tambem em duvidas futuras =) :001:
 
Última edição pelo moderador:
Back
Topo