Como fazer login com uma accdb em VB 08

[duduml]

Boas pessoal!

antes de mais peço desculpa por colocar o tópico em VB.net, mas não vi o Vb 08....

Bem, é o seguinte tenho vindo a desenvolver um programa de Gestão de Stocks e agora gostava de colocar um login para o utilizador e se possível, que dê para inscrever novos utilizadores...

Portanto, agradecia que alguém me ajuda-se a fazê-lo ou se tiverem algum exemplo já feito ou tutorial...agradecia!

obrigado! 😉

[duduml]

Bem, como ninguém respondeu resolvi inventar um bocado...e fiz através do datagridview!

só me falta uma coisinha "simples" que eu não sei fazer...

Queria saber se alguém me sabe dizer como posso ver se os dados inseridos numa textbox são iguais aos dados inseridos numa datagridview de outro form???

ou seja quando clico "ok" fiz esta código para dar ou não acesso ao programa:

 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If UtilizadorTextBox.Text = "administrador" And SenhaTextBox.Text = "admin" Then
            MsgBox("Login bem sucedido!", MsgBoxStyle.Information, "Login")
            limpar()
            Me.Hide()
            MDIParent1.Show()
        End If
        'aqui surge a minha dúvida
        If UtilizadorTextBox.Text = (o tal campo do datagridview) and senhautilizador.textbox.text = (o outro tal campo do datagridview) Then
            MsgBox("Login bem sucedido!", MsgBoxStyle.Information, "Login")
            limpar()
            Me.Hide()
            MDIParent1.Show()
        Else
            If validar_dados() = False Then
                MsgBox("Login mal sucedido!", MsgBoxStyle.Exclamation, "Erro no login")
            End If
        End If
    End Sub

aguardo respostas/sugestões!

Obrigado!

[jpaulino]

antes de mais peço desculpa por colocar o tópico em VB.net, mas não vi o Vb 08....

VB.NET é desde a versão 2002 até à 2008 (e irá servir também para a 2010) 😉

Portanto, agradecia que alguém me ajuda-se a fazê-lo ou se tiverem algum exemplo já feito ou tutorial...agradecia!

Procura no fórum pois tens alguns exemplos ... como este: http://www.portugal-a-programar.pt/index.php?showtopic=27402

[duduml]

ok!

Obrigado pela resposta!

😉

vou ver se resolvo o meu problema e depois posto aqui! pois tenho a certeza que irá ajudar muita gente!

Em relação ao pedido de desculpa pela localização do tópico, eu sei é assim...mas poderia haver algo mais concreto ou especifico que eu não tivesse visto...lol

CUMPS

[jpaulino]

Ok, tenta resolver e diz se está resolvido ou não 😉

[duduml]

Pois mas esse tópico não resolve a minha dúvida...:S

dá-me outra solução...e a minha BD nem se quer esta ligada em SQL....é mesmo accdb

.. 😉

não dá mesmo para aproveitar nada....o que eu pretendia mesmo saber era apenas como ver se um dado contido numa textbox é igual ao contido no datagridview que esta noutro form...

CUMPS

[jpaulino]

O funcionamento geral é o mesmo ... em vez de usares SqlConnection usas OleDbConnection, SqlCommand usas OleDbCommand, etc.

Depois é só usares a connection string para Access 2007. Podes ver um exemplo em http://www.connectionstrings.com/access-2007

[duduml]

hum....

ok.

vou ver se me safo....ainda estou muito cru nesta parte...

Obrigado pela ajuda!

CUMPS

[jpaulino]

Lê estes artigos que tenho no meu blog que iram dar-te uma ajuda 😉

http://vbtuga.blogspot.com/2008/04/vbnet-gesto-de-dados-em-sql-server.html

http://vbtuga.blogspot.com/2008/04/vbnet-gesto-de-dados-em-sql-server_16.html

[duduml]

ok.

Muito obrigado pela ajuda! mais uma vez...🙂

😉

CUMPS

[duduml]

já modifiquei este tercho...

e quando tento utilizar um utilizador de lá da-me este erro que abaixo mostro:

nesta linha:

Dim connection As New OleDbConnection(myConnectionString)

ERRO: An OLE DB Provider was not specified in the ConnectionString.  An example would be, 'Provider=SQLOLEDB;'.

______________________

código:

Dim SQL As String = "SELECT count(*) From utilizadores where utilizador = @utilizador and senha = @password;"

        Dim myConnectionString As String = _
        "Data Source=.\OleDbEXPRESS;AttachDbFilename='C:\acesso.mdb';" & _
        ";Integrated Security=True;User Instance=True"

        Dim connection As New OleDbConnection(myConnectionString)

        Dim command As New oledbCommand(SQL, connection)

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

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

        connection.Open()



        Dim x = command.ExecuteScalar

        MsgBox(x)
        If x > 0 Then
            MsgBox("Login Efectuado com sucesso")
        Else

        End If

        connection.Close()
        connection = Nothing
        command = Nothing

parece que já faltou mais(acho eu)....podem-me dizer o que é o erro???

e já agora, expliquem-me o que faz este pedaço de código:

& ";Integrated Security=True;User Instance=True"

Obrigado!

CUMPS

[José Lopes]

tens onde postar isso para dar uma vista de olhos...

[jpaulino]

Assim já está melhor 😉

Duas coisas para começar:

1) A connection string é diferente, porque essa é mesmo para SQL. Deves ver no link que te mostrei e é algo como:

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;

2) No Access deves definir os parâmetros desta forma (embora assim também funcione mas não é correcto)

Dim SQL As String = "SELECT count(*) From utilizadores where utilizador = ? and senha = ?;"

Lá em baixo deixas como está.

[José Lopes]

bem me parecia..

""Data Source=.\OleDbEXPRESS;AttachDbFilename='C:\acesso.mdb"

Isto não me estava a soar nada bem para access.

[duduml]

hum....ok.

Desculpa-la estas dúvidas básicas talvez para ti, mas eu cá não estou nada dentro do assunto...:S

vou modificar isso e ver se dá certo então...😉

PS: desculpa-la o facto de não usar os códigos devidos nas mensagens, mas é o habito!(estou a tentar melhorar) ainda sou novo aqui! aliás, aqui e em todos os fóruns! inscrevi-me aqui porque sempre que pesquisei algo, cá estava a solução!🙂

xD

parabéns pelo excelente trabalho e obrigado pela disponibilidade e ajuda!

CUMPS

[jpaulino]

PS: desculpa-la o facto de não usar os códigos devidos nas mensagens, mas é o habito!(estou a tentar melhorar) ainda sou novo aqui! aliás, aqui e em todos os fóruns! inscrevi-me aqui porque sempre que pesquisei algo, cá estava a solução!🙂

xD

Não há problema ... vai aos poucos! 😉

[duduml]

Bem, já mudei e dá-me 2 erros ao inserir a localização da "myConnectionString"...

1º  erro (parte assinalada a negrito): " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;" ---> end of statement expected

2º erro (parte assinalada a negrito): "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;"---> sintax error

e claro da um terceiro erro, lógico...que diz que o myconnectionstring não esta declarado...

Dim SQL As String = "SELECT count(*) From utilizadores where utilizador = ? and senha = ?;"

        Dim myConnectionString As String = _
        Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;

        Dim connection As New OleDbConnection(myConnectionString)

        Dim command As New oledbCommand(SQL, connection)

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

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

        connection.Open()



        Dim x = command.ExecuteScalar

        MsgBox(x)
        If x > 0 Then
            MsgBox("Login Efectuado com sucesso")
        Else

        End If

        connection.Close()
        connection = Nothing
        command = Nothing

esta difícil...😉

lol

CUMPS

[José Lopes]

a connectionstring está entre " "?

[duduml]

ups!

não...:S

xD

já esta correcto! vou ver se funciona....

Obrigado!😉

[duduml]

pronto, já passei essa fase...lol

agora quando vai abrir a conexão dá este erro: "C:\myFolder\myAccess2007file.accdb' não é um caminho válido. Verifique se o caminho foi introduzido correctamente e se está ligado ao servidor onde reside o ficheiro"

essa parte da directoria nao percebi muito bem qual tenho de por...como é?

CUMPS