Jump to content

Login para entrar no programa


ciganofcp
 Share

Recommended Posts

Boas pessoal vengho aqui pedir uma ajudazita para a minha PAF pois como tenho o visual basic 2008 nao estou a conseguir safar-me muito bem.

O trabalho consiste numa empresa de informatica onde a primeira form vai ser pa se fazer logins onde quem iniciar sessao como admin tem uns previlegios e como utilizador tem outros. O sistema de login queria que fosse com acesso a base de dados.

Infelizmente nao estou a perceber muito do visual basic 2008 e nao consigo fazer com que acesse a base de dados para iniciar sessao...

Queria tambem que ao carregar no botao login se as credenciais estivessem certas ele efectuasse o login.

Pessoal preciso mesmo de ajuda  ?

Deixo uma imagem de como esta o layout do login, ajudem por favor pessoal.

http://img526.imageshack.us/img526/3363/paps.jpg

Link to comment
Share on other sites

É o teu primeiro post e não te ocorreu que já houvessem pessoas aqui no fórum (já nem falo no google) que tivessem a mesma dúvida que tu? Não te ocorreu de todo?

É que se te tivesse ocorrido, fazias uma pesquisa ao P@P, na secção VB.NET e encontravas dezenas de tópicos..

Whatever, pega lá um link:

http://www.portugal-a-programar.pt/forums/topic/0-find-topic/?do=findComment&comment=280604

Já agora, se nada percebes de base de dados, de nada te vai adiantar o link..

É bom que tenhas bases de ligações e afins.

Link to comment
Share on other sites

Vou ver o que consigo fazer e que nao consigo mesmo fazer ligaçoes a bases de dados mas vou ler aquilo e ver se me safo, ja agora deem ideias para continuar a estrutura e que pra ja nao tenho muitas ideias e todas serao bem-vindas

Link to comment
Share on other sites

É normal não conseguires caso esteja em access, só estava a tentar perceber os pontos do teu access.

Precisas de fazer o Imports System.Data.OleDb

Pegando no exemplo do link que te mostrei, altera para isto:

        Dim myConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\NOMEtuaBASEDADOS.mdb"
        Dim OLE As String = "SELECT count(*) From utilizadores where username = @utilizador and senha = @senha;"
        Dim connection As New OleDb.OleDbConnection(myConnectionString)
        Dim command As New OleDb.OleDbCommand(OLE, connection)
        command.Parameters.Add("@utilizador", OleDbType.VarChar).Value = UsernameTextBox.Text
        command.Parameters.Add("@senha", OleDbType.VarChar).Value = PasswordTextBox.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("Número de Identificação ou Acesso errados", MsgBoxStyle.Information, "Login")
        End If
        connection.Close()
        connection = Nothing
        command = Nothing
    End Sub

NOTA: A base de dados tem de estar obrigatoriamente na pasta bin\debug\ do teu projecto.

Link to comment
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
 Share

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