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

ciganofcp

Login para entrar no programa

Recommended Posts

ciganofcp

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.

paps.jpg

Share this post


Link to post
Share on other sites
bioshock

É 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.

Share this post


Link to post
Share on other sites
ciganofcp

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

Share this post


Link to post
Share on other sites
bioshock

Boas explica-me uma coisa como colocaste a base de dados e que nao consigo aceder a base de dados e que dantes no Vb6 usava o adodc e agora nao sei como fazer

Tens SQL Server instalado e/ou Access?

Share this post


Link to post
Share on other sites
ciganofcp

Tenho o Acess...

Bioshock mandei-te pm ve por favor...

E tu sempre conseguiste meter aquelas cenas das restriçoes ao efectuar login

Share this post


Link to post
Share on other sites
bioshock

Lê a minha assinatura.

Já tens alguma base de dados criada em Access?

Share this post


Link to post
Share on other sites
ciganofcp

Sim tenho a base de dados criada.

Tenho duas tabelas:

-Admin

-Users

Em cada uma das tabelas tem nome de utilizador e password

Share this post


Link to post
Share on other sites
bioshock

A base de dados está guardada em Access 2003 *.mdb ou Access 2007 *.accdb ?

Share this post


Link to post
Share on other sites
ciganofcp

Esta guardada como base de dados do acess 2000....

Em qual tenho que guardar???

Share this post


Link to post
Share on other sites
ciganofcp

Ja tentei tudo mas nao sei mesmo como ligar a base de dados ao programa

Share this post


Link to post
Share on other sites
vasco16

Ja tentei tudo mas nao sei mesmo como ligar a base de dados ao programa

Existe um modo gráfico de adicioonar base de dados.

Share this post


Link to post
Share on other sites
bioshock

É 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.

Share this post


Link to post
Share on other sites
ciganofcp

Boas antes de mais como faço para usar System.Data.OleDb.

Dentro da pista bin do meu projecto nao tenho nenhuma pasta a dizer debug...

Nao sei como fazer isto.

Share this post


Link to post
Share on other sites
bioshock

Esquece lá isso. Já vi que não tens bases de programação.

Vai primeiro aprendê-las e depois volta aqui.

Share this post


Link to post
Share on other sites
ciganofcp

Nao tem nada a ver eu ja fiz tudo agora so me falta por a base de dados no login a funcionar

Share this post


Link to post
Share on other sites
ciganofcp

Pessoal quando tento adicionar clientes e fornecedores etc da-me sempre este erro alguem me poe ajudar???

erro1.png

Share this post


Link to post
Share on other sites
bioshock

Tu nem um imports sabes fazer..lol.

O imports é só chegar ao topo do Form e meter lá o que te disse. Mas nem te preocupaste em ir ao google tão pouco. Por aqui me fico, boa sorte.

Share this post


Link to post
Share on other sites
ciganofcp

Ja consegui meter a minha base de dados no programa. Agora diz-me uma coisa tenho que meter o codigo que me deste onde no botao do login ou na forma load???

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

×

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.