Jump to content
Hélderzinho

Criar um sistema de login vb 2010 e base de dados access

Recommended Posts

Hélderzinho

Boas Pessoal,

Mais uma vez, preciso da vossa ajuda.

Preciso da vossa ajuda para registar. Eu tenho uma form com o login, e funciona perfeitamente. mas na base de dados só tem ainda um utilizador que é o admin, pois fui à base de dados access e meti os dados . Na form do login criei um botão , onde aqueles que ainda não tiverem contra, precisam de se registar para entrar no programa. Nessa form para se registar existem os seguintes campos: username, password e confirmar password . como é que me inscrevo e os dados ficam na minha base de dados e logo de seguida poder entrar na form do login ? Alguém me ajuda ?  :P

Obrigado B)

Share this post


Link to post
Share on other sites
nelgaio

Acho que estás com sorte :cheesygrin:

Ando no mesmo, por acaso já fiz a parte do login. Só me falta a parte se é admin ou utilizador normal que ainda não descobri.

Aproveita daqui:

Imports System.Data.OleDb
Public Class Login
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ole As String = "SELECT count(*) From login where utilizador = ? and password = ?;"
       Dim myConnectionString As String = _
       "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\pap.accdb"
       Dim connection As New OleDbConnection(myConnectionString)
       Dim command As New OleDbCommand(ole, connection)
       command.Parameters.Add("@utilizador", OleDbType.VarChar).Value = txtUtilizador.Text
       command.Parameters.Add("@password", OleDbType.VarChar).Value = txtPassword.Text
       connection.Open()
       Dim x As Object
       x = command.ExecuteScalar
       If Integer.Parse(x.ToString) = 1 Then
           MsgBox("Login efectuado com sucesso!", MsgBoxStyle.Information, "Login")
           Me.Hide()
           Form1.Show()
       Else
           MsgBox("Login mal sucedido", MsgBoxStyle.Information, "Login")
       End If
       connection.Close()
       connection = Nothing
       command = Nothing
   End Sub
End Class

Edited by Rui Carlos
GeSHi

Share this post


Link to post
Share on other sites
acao

Acho que estás com sorte :cheesygrin:

Ando no mesmo, por acaso já fiz a parte do login. Só me falta a parte se é admin ou utilizador normal que ainda não descobri.

Aproveita daqui:

Imports System.Data.OleDb
Public Class Login
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ole As String = "SELECT count(*) From login where utilizador = ? and password = ?;"
       Dim myConnectionString As String = _
       "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\pap.accdb"
       Dim connection As New OleDbConnection(myConnectionString)
       Dim command As New OleDbCommand(ole, connection)
       command.Parameters.Add("@utilizador", OleDbType.VarChar).Value = txtUtilizador.Text
       command.Parameters.Add("@password", OleDbType.VarChar).Value = txtPassword.Text
       connection.Open()
       Dim x As Object
       x = command.ExecuteScalar
       If Integer.Parse(x.ToString) = 1 Then
           MsgBox("Login efectuado com sucesso!", MsgBoxStyle.Information, "Login")
           Me.Hide()
           Form1.Show()
       Else
           MsgBox("Login mal sucedido", MsgBoxStyle.Information, "Login")
       End If
       connection.Close()
       connection = Nothing
       command = Nothing
   End Sub
End Class

boas

sou novato no 2010 vou seguir este exemplo de ligação a base de dados

mas tenho uma duvida o data também tem que ser programado (é necessário informar se a base de dados fica armazenada local ou não?)

cumps

acao

Share this post


Link to post
Share on other sites
progster

...

Imports System.Data.OleDb

Public Class Login

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ole As String = "SELECT count(*) From login where utilizador = ? and password = ?;"

        Dim myConnectionString As String = _

        "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\pap.accdb"

        Dim connection As New OleDbConnection(myConnectionString)

        Dim command As New OleDbCommand(ole, connection)

        command.Parameters.Add("@utilizador", OleDbType.VarChar).Value = txtUtilizador.Text

        command.Parameters.Add("@password", OleDbType.VarChar).Value = txtPassword.Text

        connection.Open()

        Dim x As Object

        x = command.ExecuteScalar

        If Integer.Parse(x.ToString) = 1 Then

            MsgBox("Login efectuado com sucesso!", MsgBoxStyle.Information, "Login")

            Me.Hide()

            Form1.Show()

        Else

            MsgBox("Login mal sucedido", MsgBoxStyle.Information, "Login")

        End If

        connection.Close()

        connection = Nothing

        command = Nothing

    End Sub

End Class

...

nelgaio utiliza as tags de código correspondentes.

Hélderzinho apesar da ajuda que aqui já te foi disponibilizada, o seguinte link, talvez ajude:

http://www.portugal-a-programar.pt/index.php?showtopic=45965


Não resolvo dúvidas por PM.

Share this post


Link to post
Share on other sites
progster

boas

sou novato no 2010 vou seguir este exemplo de ligação a base de dados

mas tenho uma duvida o data também tem que ser programado (é necessário informar se a base de dados fica armazenada local ou não?)

cumps

acao

Estás-te a referir ao dataconnection?! Se sim, então a resposta é sim, tens que estabelecer o caminho para a BD.

Quanto á questão do armazenamento da BD, sugiro que antes de testar este exemplo do login, experimentes receber um feedback da BD, com um exemplo mais simples, com a mesma armazenada localmente e "fora".

Tudo serve de prática.

Bom trabalho.  :P


Não resolvo dúvidas por PM.

Share this post


Link to post
Share on other sites
miguel_barreiro

tenho um problema, como é que faço ligação com access?

sou iniciante

Share this post


Link to post
Share on other sites
He B TeMy

O tópico podia não estar vivo, mas o código acima está, e faz o que pretendes.

Share this post


Link to post
Share on other sites
joaosantos92

Boas miguel_barreiro,

Eu percebi o que pretendes, na barra de menus do Visual Studio tens uma opção que diz Data -> Add New Data Source... irá-te abrir uma janela, seleccionas Database -> Next -> Dataset -> New Connection -> Data Source -> Change -> Microsoft Access -> Browse (Procuras a base de dados e fazes ENTER) -> OK -> (Copias o código que está no conection string) Next -> Não -> Next -> > Selecciona Tables e Views -> Finish... depois é só ires fazendo o programa e colocar o código no devido lugar

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

×
×
  • 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.