Criando uma conexão com banco de dados Access

3 Comente abaixo Rodrigo

Nesta coluna vocês poderam ver como fazer uma conexão com o banco de dados Microsoft Access bem simples, para o dia-a-dia. Tambem aprenderam o conceito de uso do objeto DataReader()

Conexão com Banco de Dados Access

Para realizar uma conexão com banco de dados access, utilizaremos a classe:


Imports System.Data.OleDb

Esta classe contem Funções e Métodos para leitura de bancos de dados físicos, quando falo em bancos de dados físico quero dizer que o banco é um arquivo só como Access (extensão .mdb), Interbase (extensão .gdb) e outros, diferente dos famosos Serviços de Bancos de Dados, SQL Server, Oracle, MySQL, FireBird etc.

Para iniciarmos a conexão faremos o seguinte criaremos um projeto Web em nosso diretório virtual no meu caso o diretório virtual é: e:WebSitesficando então e:WebSitesConexaoComBanco a partir disto já temos a aplicação para ser carregada no Visual Studio 2008.

http://www.oficinadanet.com.br//imagens/coluna/2358//1.jpg

http://www.oficinadanet.com.br//imagens/coluna/2358//2.jpg

Primeiro desenvolvam um banco de dados em Access para acessarmos, no nosso caso desenvolvi um .mdb chamado "Base" que contem a seguinte tabela dentro "tClientes" com duas colunas e seus respectivos tipos de dados IdCli - varchar(15) e NomCli - varchar(100):

http://www.oficinadanet.com.br//imagens/coluna/2358//3.jpg

Salvem o arquivo .mdb dentro da pasta App_Data no diretório do nosso projeto web, após isso, abra o arquivo Default.aspx.vb e programam como no código abaixo:


Imports System.Data.OleDb

Partial Class _Default

    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As 
        System.EventArgs) Handles Me.Load
        AbreBancoComDataReader()
    End Sub

    ''' <summary>
    ''' Esta função abre banco Access usando a classe 
    ''' 'DataReader'
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub AbreBancoComDataReader()
        '*** Declara as Variáveis
        Dim Query As String = "SELECT * FROM tClientes"
        Dim Conexao As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;
        Data Source=e:WebSitesConexaoComBancoApp_DataBase.mdb;")
        Conexao.Open()
        Dim Comando As New OleDbCommand(Query, Conexao)
        Dim Dr As OleDbDataReader
        Dr = Comando.ExecuteReader

        '*** Exibe os Dados
        While Dr.Read
            Response.Write(Dr("IdCli").ToString & " - " & 
            Dr("NomCli").ToString & "<br/>")
        End While
    End Sub

End Class

Feito isso basta abri o projeto no browser desde que "o IIS Internet Information Services ou Servidor de Web" esteja configurado na maquina em que estamos desenvolvendo o projeto, também se o Visual Studio 2008 estiver corretamente instalado basta terminar o código acima e pressionar a tecla F5 ela faz com que o projeto seja emulado no Browser do usuário executando assim a aplicação.

Explicando o código acima:


Dim Query As String = "SELECT * FROM tClientes"

A linha acima eu crio uma variável com a instrução que eu vou passar para o banco de dados que retornara ao dados


Dim Conexao As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:WebSitesConexaoComBancoApp_DataBase.mdb;")

A linha acima eu crio uma variável, ou melhor um objeto que se encarregara de fazer a conexão com o banco de dados, ao mesmo tempo quando crio uma estância do objeto eu também já passo para a classe a ConnectionString que permite eu conectar ao banco especificado no caminho da ConnectionString.


Conexao.Open()

A linha acima abre o banco de dados para ser executado a instrução sql ou seja nosso "SELECT", uma observação é nunca esquecermos de abrir a conexão pois se não, não poderemos executar a instrução e assim obtermos os dados.


Dim Comando As New OleDbCommand(Query, Conexao)

A linha acima eu crio um objeto Comando onde ao instanciar o objeto eu já passo na hora da instancia a Query (instrução SQL e a Conexão já Aberta).


Dim Dr As OleDbDataReader

A linha acima eu crio objeto DataReader onde este objeto eu poderei resgatar valores da tabela em que eu executei o "SELECT" ou seja "tCliente" através das colunas da tabela.


Dr = Comando.ExecuteReader

A linha acima eu falo que o objeto DataReader criando anteriormente "Dr" é igual ao comando executando no banco de dados, assim poderei resgatar o valores das linhas (rows) da tabela e exibi-las ou manipula-las na aplicação.


While Dr.Read
      Response.Write(Dr("IdCli").ToString & " - " 
      & Dr("NomCli").ToString & "<br/>")
End While

Nas linhas acima eu exibo de uma maneira simples no browser os dados através de uma laço de repetição, ate chegar na ultima linha da tabela e terminar. A condição das linhas acima diz: em quanto o objeto DataReader ler (Reader do inglês "ler") escreva a coluna IdCli concatenada "&" com a coluna NomCli, a sintaxe "< br />" simplesmente serve para pular linha e não imprimir no browser uma linha na frente da outra é como se fosse o enter. Reparem que no procedimento "Private Sub" utilizamos simplemente 9 linhas para realizar a comunicação com o Banco e pegar os dados da tCliente. Existem também outros meios para se fazer isso.

Nosso resultado então seria esse no browser:

http://www.oficinadanet.com.br//imagens/coluna/2358//4.jpg

Espero que tenha ajudado, este artigo explica uma simples conexão com banco de dados, posteriormente publicarei algo explicado mais a fundo a classe: Imports System.Data.OleDb.

Até a Próxima!

Recomendamos para você
 

Compartilhe com seus amigos:
Mais de ASP.NET
  • Criando URLs amigáveis com ASP.NET
    Criando URLs amigáveis com ASP.NET
  • Incluir imagem no Report Viewer com caminho gravado no Banco
    Incluir imagem no Report Viewer com caminho gravado no Banco
  • Como usar Radio Button em uma GridView Asp.NET
    Como usar Radio Button em uma GridView Asp.NET
  • Fazendo Inner Join e Left Join com Linq no ASP.NET
    Fazendo Inner Join e Left Join com Linq no ASP.NET
  • Asp .Net - Autenticação com JQuery/JSON
    Asp .Net - Autenticação com JQuery/JSON
Compartilhe com seus amigos:
últimos reviews
  • 8,4
    Review Samsung Galaxy K Zoom
    Nessas 2 últimas semanas passou por nossas mãos o potente Galaxy K Zoom, veja o que achamos dele.
  • 8,6
    Review Moto X - Segunda geração
    O aparelho da Motorola é a prova “viva” que o que está ótimo pode melhorar ainda mais.
  • 8,1
    Review Zenfone 5
    Tela de 5 polegadas, câmera de foto e vídeo superiores aos concorrentes, boa usabilidade e preço baixo. A Asus acertou n...

TOPO