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 | @oficinadanet Programação
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 target="_blank">cliquem aqui!

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

Mais sobre:
Share Tweet
Recomendado
Comentários
Carregar comentários
Destaquesver tudo