Inserindo dados no Access apartir de um arquivo Bloco de Notas

Nesta Coluna abordarei como inserir dados de um arquivo TXT ou seja do Bloco de Notas em um Banco de Dados Access versão 2005.

Por Programação Pular para comentários
Inserindo dados no Access apartir de um arquivo Bloco de Notas
Ola...
Amigos e Frequentadores do Site Oficina da Net

Hoje vou postar um coluna sobre como povoar um banco de dados Access 2005 com dados de arquivos TXTs ou seja do Bloco de Notas.

Bom Usarei aqui um exemplo muito interessante que é um arquivo do bloco de notas com todas as Cidades do Estado de São Paulo ou seja nesta lista contem todas as cidades uma em baixo da outra em ordem alfabetica.

Imagine o grande serviço que teriamos que fazer se fossemos inserir na mão cada uma destas cidades no Access... Um Trabalhão não acham. Pois bem, Vamos então criar primeiro de tudo o banco de dados.

Abrão o Access e crie um Banco de Dados em Branco depois construam a seguinte tabela chamada de Cidades com os seguintes campos como a figura a baixo.

[IMAGEM align="CENTER"]tab_cidades.jpg' />

Feito isto passaremos a contrução da Tabela chamada Estados com os seguintes campos como mostra a figura a baixo:

[IMAGEM align="CENTER"]tab_estados.jpg' />

Depois disso insiram na mão mesmo os 27 estados Brasileiros como esta na imagem a baixo, creio que não é algo tão demorado observer que o estado "SP" recebeu o numero "26" memorisem este numero pois usaremos para a insersão das cidades justamente relacionadas a
este Estado.

[IMAGEM align="CENTER"]tab_estados2.jpg' />

Faremos agora o relacionamento das 2 tabelas de modo que se por ventura tentarmos inserir uma cidade que o indice ou seja o numero de relacionamento dela não esteja entre 1 e 27 então os campos da tabela cidades não aceitarão pois como serão relacionados eles so podem aceitar dados que contenhão na Tabela Estados, isso é o Relacionamento entre Tabelas.

Clique em Ferramentas -> Relacionamentos Adicione as duas tabela que deseja relacionar no nosso caso a Tabela Cidades e a Tabela Estados. Feito isso com o mouse click e segure sobre o campo Estado_ID da tabela "Estado" arraste e solte em cima do campo Estado_ID da tabela Cidades. Ficara como na figura abaixo:

[IMAGEM align="CENTER"]tab_relacionamentos.jpg' />

Feito isso agora partiremos para a programação das paginas que usaremos para inserir os dados no Banco.

Página "insere.asp"
<%
if Request.form("Iniciar") = "Iniciar" then
'Abrimos a conexão com o banco de dados
Dim caminho
Dim conexao
caminho = Server.MapPath("database/database.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

'Criamos o Objeto File System Object FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Abre o Arquivo de Texto onde ocntem as Cidades
Dim caminhoArchiv
Dim varArquivo
caminhoArchiv = Server.MapPath("sp_cidades.txt")
Set varArquivo = objFSO.OpenTextFile(caminhoArchiv, 1)

'Laço que se repete quanto não for lido ate a ultima linha do arquivo TXT
Do While Not varArquivo.AtEndOfStream
Dim varnum
Dim arrayLinha
Dim rsInsertCidades
Dim strInsertCidades
varnum = 26
'arrayLinha = Split(varArquivo.ReadLine,",")
arrayLinha = Split(varArquivo.ReadLine)
Set rsInsertCidades = Server.CreateObject("ADODB.Recordset")
strInsertCidades = "INSERT INTO Cidades (Estado_ID, Nome_Cidade) VALUES  ("&varnum&",'"&arrayLinha(0)&"')"
rsInsertCidades.Open strInsertCidades, conexao
Loop
    Response.Redirect "exibe.asp?cidade="&varnum
else
%>

Insere Cidades











  
  
  
  
  
  
  
  

    
Clique Aqui para Começar a Insersão.

  

    

  



<%
end if
%>


Vamos agora fazer a página que exibirá o resultado das cidades inseridas no banco

Página "exibe.asp"
<%
'Abre a conexão com o banco
Dim caminho
Dim conexao
caminho = Server.MapPath("database/database.mdb")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"
%>

Exibe Cidades


<%
'Laço que mostra as cidades inseridas no banco ate a ultima linha ta tabela
Set rsExibeCidade = Server.CreateObject("ADODB.Recordset")
varCidade = Request.QueryString("cidade")
strExibeCidade = "SELECT * FROM Cidades WHERE Estado_ID ="&varCidade
rsExibeCidade.Open strExibeCidade, conexao
while not rsExibeCidade.eof
%>

  
  

<%
rsExibeCidade.MoveNext
Wend ' Fim do Laço
rsExibeCidade.close
Set rsExibeCidade = Nothing
conexao.close
Set conexao = Nothing
%>
<%=rsExibeCidade("Estado_ID")%><%=rsExibeCidade("Nome_Cidade")%>




Rodem em seus servidores de IIS e não se esqueçam de dar permissão de leitura/escrita para o arquivo do banco de dados se não dara uma mensagem de erro. Ser quiserem fazer download dos arquivos zipados cliquem aqui!

Pessoal Espero que tenhão aprecidado esta coluna e ate a próxima.
Abraços!!!

Compartilhe com seus amigos:
Rodrigo
Rodrigo Formado em Sistemas de Informação pela Fac. de Tecnologia IBTA trabalha com Asp e Asp.Net a 4 anos desenvolvendo aplicações Web como intranets, web services, websites corporativos e estruturação de Banco de Dados SQL Server e Oracle.
Quer conversar com o(a) Rodrigo, comente:
Carregar comentários
Últimas notícias de Programação
  • Google usa Mulher-Maravilha para ajudar meninas a programar

    Google usa Mulher-Maravilha para ajudar meninas a programar

    Meninas ganham um incentivo extra na hora de aprender a programar, a Mulher-Maravilha.

  • Criando um cadastro de usuário em Java

    Criando um cadastro de usuário em Java

    O objetivo deste artigo é desenvolver uma aplicação em JSE (Java Standard Edition) de inserção de dados utilizando alguns padrões de projeto.

  • Quer aprender PHP? Saiba mais

    Quer aprender PHP? Saiba mais

    Chegou o tão aguardado curso online de PHP do Oficina da Net. Você não pode perder. PHP é uma das linguagens mais usadas no mundo. Os conteúdos que vou mostrar no curso, são exatamente o que você precisa saber para iniciar sua carreira como programador.

  • Formulário de contato em php

    Formulário de contato em php

    Guia do PHP: Aprenda a fazer um formulário em PHP que envia via SMTP autenticado o e-mail para um destinatário.

  • Como fazer um GIF?

    Como fazer um GIF?

    Aprenda a criar um GIF animado de vídeos. Descubra como criar os GIFs, imagens animadas que você vê em na internet.

  • O que priorizar na hora de escolher o hosting para seu site?

    O que priorizar na hora de escolher o hosting para seu site?

    Com o crescimento das ofertas na web, saiba o que você deve levar em consideração na hora de escolher a melhor empresa de hosting para seu empreendimento

  • O que preciso fazer para criar um aplicativo?

    O que preciso fazer para criar um aplicativo?

    Temos visto que desenvolver aplicativos que visam o mercado mobile pode ser mais que uma alternativa rentável, pode colocá-lo no topo, deixá-lo rico. Mas nem tudo são flores, e o aspirante a desenvolvedor de app precisa seguir algumas regras.

  • WEBINAR 3.9

    WEBINAR 3.9

    Venha para o Maker e descubra como tornar o seu negócio mais competitivo.