Criando uma conexão com banco de dados Access

3 1 comentário(s) 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ê
 

Comentários
Compartilhe com seus amigos:
Novidades
Compartilhe com seus amigos:
últimos reviews
  • 6,4
    Review Nokia Lumia 635
    Testamos hoje o Smartphone Nokia Lumia 635. Confira abaixo o que achamos.
  • 8,1
    Review Samsung Galaxy S5
    O smarphone primogênito da família Galaxy é a evolução de seus descendentes, evolução porque não há grandes novidades, m...
  • 8,0
    Review Motorola Moto G Segunda Geração
    Conheça o novo Moto G, que substitui seu antigo modelo com uma performance ainda melhor



TOPO