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

Pt Freelancer

[Resolvido][VB 2005] log in

44 mensagens neste tópico

gostava de fazer um form para log in... resumindo o que eu gostava de fazer era de ter duas textbox uma para o username e outra para a password.. quando o utilizador inseri-se  a pass e o seu username e carrega-se num botao de comando o programe iria procurar a uma base de dados acess se esse nome de utilizador existe e se a pass esta certa...

agora eu nao sei como fazer o programa ir procurar a pass nem o user name... alguma ajuda?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

podes me explicar o codigo? e que nao estou a entender... como e que ligo a base de dados?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mas uma duvida como é que sei o meu ConnectionString? é "Provider=Microsoft.Jet.OLEDB.4.0;Data Source(nome da base de dados)mdb"?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

É a connectionstring usada para aceder a base de dados access...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tenho então aqui o código

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtuser.Text <> "" And txtpass.Text <> "" Then
            Dim con As New OleDbConnection
            Dim com As New OleDbCommand
            Dim reader As OleDbDataReader
            con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb"
            con.Open()
            com.Connection = con
            com.CommandType = CommandType.Text
            com.CommandText = "SELECT * FROM  dados WHERE username=@username AND password =@password "
            com.Parameters.Add("@username", OleDb.OleDbType.Char, txtuser.Text.Length).Value = txtuser.Text
            com.Parameters.Add("@password", OleDb.OleDbType.Char, txtpass.Text.Length).Value = txtpass.Text
            con.Open()
            reader = com.ExecuteReader
            reader.Close()
            con.Close()
        Else
            MsgBox("Por favor preencha o seu nome de utilizador e password!")
        End If
    End Sub

este código da-me tres erros

Error 1 Type 'OleDbConnection' is not defined. D:\teste\Form1.vb 50 28 WindowsApplication1

Error 2 Type 'OleDbCommand' is not defined. D:\teste\Form1.vb 51 28 WindowsApplication1

Error 3 Type 'OleDbDataReader' is not defined. D:\teste\Form1.vb 52 27 WindowsApplication1

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens que por no início do código do form:

Imports System.Data.OleDb

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tenho o codigo assim com os seguintes erros

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtuser.Text <> "" And txtpass.Text <> "" Then
            Imports System.Data.OleDb
            Dim con As New OleDbConnection
            Dim com As New OleDbCommand
            Dim reader As OleDbDataReader
            con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb"
            con.Open()
            com.Connection = con
            com.CommandType = CommandType.Text
            com.CommandText = "SELECT * FROM  dados WHERE username=@username AND password =@password "
            com.Parameters.Add("@username", OleDb.OleDbType.Char, txtuser.Text.Length).Value = txtuser.Text
            com.Parameters.Add("@password", OleDb.OleDbType.Char, txtpass.Text.Length).Value = txtpass.Text
            con.Open()
            reader = com.ExecuteReader
            reader.Close()
            con.Close()
        Else
            MsgBox("Por favor preencha o seu nome de utilizador e password!")
        End If
    End Sub

Error 1 Syntax error. D:\teste\Form1.vb 50 13 WindowsApplication1

Error  2  Type 'OleDbConnection' is not defined.  D:\teste\Form1.vb  50  28  WindowsApplication1

Error  3  Type 'OleDbCommand' is not defined.  D:\teste\Form1.vb  51  28  WindowsApplication1

Error  4  Type 'OleDbDataReader' is not defined.  D:\teste\Form1.vb  52  27  WindowsApplication1

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O Imports System.Data.OleDb tem que ficar no ínicio do código, mesmo lá em cima.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ok n tinha visto as imagens  :wallbash:  :wallbash:  :wallbash:  :wallbash:

As imports sao sempre acima da public class.  :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Retira os parenteses do import deveria ser Imports System.Data.Oledb

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

esse imports ta mal definido n vex o sublinhado a azul ? retira os parentises cmo foi dito em cima e já n deves ter nenhum erro a não ser k dps tenhas a bd mal apontada...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ok tirei os parenteses... mas agora tenho este problema

corrigido

539037correcto.jpg

problema

111977open.jpg

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

De certeza que a tua base de dados chamas-se bd1.mdb esta no caminho do executavel?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Experimenta por o caminho completo da base de dados, ou então põe-a na pasta debug.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O caminho completo? do tipo

C:\Users\David\Documents\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1

ou

C:\Users\David\Documents\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1\bd1.mdb?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora