Ir para o conteúdo
Pt Freelancer

[Resolvido][VB 2005] log in

Mensagens Recomendadas

Pt Freelancer    0
Pt Freelancer

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?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Pt Freelancer    0
Pt Freelancer

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Pt Freelancer    0
Pt Freelancer

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Pt Freelancer    0
Pt Freelancer

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Gooden    0
Gooden

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

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
axt3k    0
axt3k

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Pt Freelancer    0
Pt Freelancer

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?

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade