Acesso a banco de dados microsoft access em .net com ado e o oledb.

Vou mostrar neste artigo, como podemos criar uma conexão com acesso a banco de dados microsoft access em .net com ado e o oledb.

Para isso vou utilizar um modulo no vb.Net onde irei armazenar estes procedimentos para conectar e desconectar o banco de dados.

Sempre que for criar procedimentos ou funções uma excelente pratica é faze-lo em um compartimento que possa proporcionar seu reaproveitamento, este compartimento neste caso é o Modulo.

Leia também:

Inicialmente iremos criar um form, onde poderemos fazer o teste para ver se a base de dados  foi conectada posteriormente fazermos a inclusão, exclusão , alteração e consulta dos dados na tabela do banco de dados.

Acesso a banco de dados microsoft access em .net com ado e o oledb.

Usaremos cinco campos do tipo TextBox:

Código, Nome, E-mail, Usuário e Senha

 

Usaremos Sete botões :

Incluir, Consultar, Alterar, Testar a Conexão, Excluir, Pesquisar e Sair

 

Usaremos um DataGridView:

datagridview1

 

Vá a barra de menus e click sobre o menu Project, no menu Add Module… veja:

Acesso a banco de dados microsoft access em .net com ado e o oledb.

Você ira adicionar um novo modulo, neste momento não precisa renomea-ló, mas para o seu projeto aconselho que o faça.

Acesso a banco de dados microsoft access em .net com ado e o oledb.

Já com o modulo criado adicione as linha de programação a baixo:

 

O que esta com apostrofe (‘) em VB.Net é considerado comentário e fica na cor verde, como pode perceber no código acima a alguns comentários.

Para fazermos o teste e ver se a conexão  esta realmente funcionando devemos no form onde encontram-se os botões, colocar-mós um código no procedimento do botão “Testar a Conexão” :

Para isso damos dois clicks sobre o botão e depois colocaremos dentro do código que aparece o seguinte :

Este é o código que apareceu:

Veja como ele fica ao fazermos  o chamado do procedimento que criamos no modulo1:

Para que o nosso projeto funcione devemos ter o nosso banco de dados em acesso no caminho especificado no Data Source da nossa String de conexão

para baixar o banco de dados para teste clique neste link:

No próximo artigo iremos mostrar como criar um procedimento para a inclusão de dados em nosso banco de dados

 

Rubens Leme

Trabalho com tecnologia da informação há 12 anos, amplo conhecimento em tecnologias de auxilio ao deficiente visual e 2 anos em tecnologias de desenvolvimento de software (Java, C e .Net); Graduado como Tecnólogo em sistema de informação Faculdades Oswaldo Cruz – 2004;

You may also like...

14 Responses

  1. Tamires disse:

    Olá!

    Estou desenvolvendo uma aplicação em VB.NET 2010 mas quando crio os forms filhos eles não aceitam comando nos botões. Só funciona se codifico no form_pai. Só que eu já mudei os modifiers para friend, e depois para public, dei rebuild e mesmo assim ele não funciona… O que pode estar impedindo o funcionament do codigo??

    Obrigada,
    Tamires

  2. clovis disse:

    Olá,
    Estou querendo realizar uma consulta para exibir um nome no ASP.NET com o seguinte código:

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
    Dim consulta As String
    Dim conexao As OleDbConnection
    Dim executa As OleDbCommand
    Dim tabela As OleDbDataAdapter
    Dim ds As New DataSet

    Try
    consulta = “SELECT Nome FROM cadastro WHERE Nome LIKE ‘%” & TextBox4.Text & “%'”
    conexao = New OleDbConnection(“Provider=microsoft.JET.OLEDB.4.0;Data Source=E:Visual Studio 2010-ProjectsASPNETASPNETagenda.mdb;Persist Security Info=False;”)

    conexao.Open()
    executa = New OleDbCommand(consulta, conexao)
    tabela = New OleDbDataAdapter(executa)
    tabela.Fill(ds, “cadastro”)

    Me.TextBox4.Text = consulta(“Nome”).ToString()

    Catch
    MsgBox(“Nome não disponível “, MsgBoxStyle.DefaultButton2, “WebSite Clovis Jr”)
    Me.TextBox4.Focus()
    Finally

    conexao.Close()
    End Try

    End Sub

    Então Clico no Botão Buscar e a mensagem “Nome não localizado ” é exibido toda vez. Há algo errado nele?

  3. Alexandre Gavaza disse:

    Oi Rubens.

    Segui todos passos acima para conexao com base de dados mas em algum momento fiquei perdido. Consta acima “para baixar o banco de dados para teste clique neste link:” e acontece que nao consigo localizar o tal link para baixar a base de dados e fazer o respectivo teste. Me ajude por favor.

  4. André disse:

    Olá ruben, é assim eu quero conectar uma base de dados acess 2007 ao vb10 e não sei, pode-me ajudar?
    Tenho o formulário feito etc mas não sei ligar á base …

  5. cg-faustino disse:

    ola rubens, quero saber se vc pode me ajudar a realizar uma conexão simples com acces 2007 e vb 2010,outra coisa nao estou conseguindo fazer o botao fechar funcionar acho que o metodo esta errado:
    botao fechar(byVal….)
    me.close()
    end sub
    vc pode me ajudar?

  6. Vitor disse:

    boa noite amigo.
    A muitos anos atras programei em VB6, to tentando voltar a programar o VB.net 2010, no entanto ja esquici tudo que sabia, para reaprender estou fazendo um programa para substituir uma planilha de controle da minha moto criando um software no VB.Net com BD em access 2010, realizei o procedimento acima no entanto ele não conecta ao banco e gera um erro ao tentar fechar a conexao no comando conecta.Close() na janela o erro é:
    NullReferenceExcption não foi manipulada.
    Ja catei na internet e nada de uma solução, se puder me ajudar, fico no aguardo.
    Obrigado.

  7. Maiza Oliveira disse:

    Olá, onde encontro o post que mostra como criar um procedimento para a inclusão de dados em nosso banco de dados?? Estou fazendo uma espécie de TCC também e estou com dificuldade em conseguir inserir os dados digitados no meu aplicativo em VB. Fiz um banco em access pq achei que seria mais fácil (e por que não consegui em sql) mas ainda to com dificuldade de entender como o Sistema vai entender o que cada coluna do banco vai receber. Muito Obrigada!!

    • Rubens Leme disse:

      Olá Maiza,
      Para isso utilizo um procedimento (Sub) que recebe parâmetros, cada parâmetro será referente a um campo de seu formulário e o mesmo será inserido no banco de dados através de uma clausula SQL.
      Segue exemplo de uma Sub de inserção:

      ‘********************************************************************************
      ‘ Procedimento para Adicionar um cliente no banco de dados *
      ‘ *
      ‘ *
      ‘ *
      ‘********************************************************************************
      Public sub Incluir(ByVal v_nome_cli As String, ByVal v_nascimento_cli As String, ByVal v_CPF_cli As String, _
      ByVal v_RG_cli As String, ByVal v_endereco_cli As String, ByVal v_complemento_cli As String, _
      ByVal v_bairro_cli As String, ByVal v_cidade_cli As String, ByVal v_uf_cli As String, _
      ByVal v_cep_cli As String)
      Conectar()

      comando.CommandText = (“insert into cliente(nome_cli ,nascimento_cli, cpf_cli, rg_cli, endereco_cli,” & _
      “complemento_cli, bairro_cli, UF_Est, cidade_cli , cep_cli) values” & _
      “(‘” & v_nome_cli & “‘,'” & v_nascimento_cli & “‘,'” & v_CPF_cli & “‘,'” & v_RG_cli & _
      “‘,'” & v_endereco_cli & “‘,'” & v_complemento_cli & “‘,'” & v_bairro_cli & _
      “‘,'” & v_cidade_cli & “‘,'” & v_uf_cli & “‘,'” & v_cep_cli & “‘)”)
      comando.ExecuteNonQuery()

      Desconectar()

      End sub

      Para funcionar ainda necessita de ter o restante das rotinas
      segue o link para poder usar o modulo todo
      http://www.aprendaefaca.net/2011/10/modulo-com-diversas-rotinas-de-conexao-com-banco-de-dados-sqlserver.html#
      Duvidas me escreva.
      Abraço

  8. Maria Izabel R de Oliveira disse:

    Eu estou cursando TI no Centro Paula Souza na cidade de Taubaté, estou com muita dificuldade em VBNet, e tenho que usar isto no TCC. Mas o prof. não ensina direito. Onde poderei encontrar mais informações e esclarecimento.

Deixe seu comentário