O QUE HÁ DE NOVO

Criando uma conexão com banco de dados Access

Rodrigo por Rodrigo Programação

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

    ''' 
    ''' Esta função abre banco Access usando a classe 
    ''' 'DataReader'
    ''' </summary>
    ''' </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 & "")
        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 & "")
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!

Recomendado
Assuntos .net, banco de dados, conexão e string de conexão
Siga nas redes
Encontrou algum erro no texto?

Entre em contato com o autor e nos ajude a melhorar a qualidade dos posts cada vez mais!

AVISAR
O QUE LER EM SEGUIDA
Comentários
Últimas publicaçõesver tudo
ASSINE NOSSA NEWSLETTER

Não perca nenhuma novidade do mundo da tecnologia.