Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

filipecrosk

Importar Arquivo TXT para ACESS

Recommended Posts

Ola Galera,

 

nunca mechi com arquivo TXT e estou perdidao..hehehe

ate achei um topico aqui no Forum que o cara da um exemplo.. mas não explica ai deu na mesma..hehe continuo um tanto quanto perdido...

 

olha o que tenho que fazer...

 

O administrador vai fazer upload de um arquivo contendo os dados dos clientes:

00.003.317/9274-  |PEDRO PETRUCIO DA SILVA                      |ISENTO            |MACEIO              |AL|         00.003.321/0001-40|REV INDST. E COM. DE PLASTICOS LTDA          |114.042.494.115   |SAO PAULO           |SP|02676040 00.013.047/0001-90|JJR COM. IMPT. E EXPORT. LTDA                |114.065.280.119   |SAO PAULO           |SP|05836330 00.026.910/0001-43|SWEETMIX IND.COM.IMPORTACAO E EXPORTACAO LTDA|669.282.056.116   |SOROCABA            |SP|18085-250

Ai tenho que pegar esse arquivo e importa-lo para o ACESS...

 

como fazer isso??? o Separador ai é o " | "...

 

se alguem puder me dar essa LUZ vou ficar muito agradecido...

 

abracos

Compartilhar este post


Link para o post
Compartilhar em outros sites

importa normal pelo access e informa o separador

 

arquivo >> obter dados externos >> importar >> escolhe o arquivo >> Delimitado >> caracter (OUTRO) e informa qual é >> Escolhe a tabela >> PRONTO http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não tem muito segredo, a lógica consiste em primeiro separar cada linha e depois percorrer essas linhas dividindo os campos pelo separador "|".

 

Supondo que você saiba ler o arquivo com FSO, vamos pular essa parte.

 

Armazene o conteúdo do arquivo texto numa variável (MeuTexto)

 

'Separando as linhas,LinhaTexto=(Split(MeuTexto,VBCRLF)) ' Loop para percorrer as linhasFor Each Item in LinhaTexto' Separando os camposSArray =(Split(Item,"|"))    SQL="INSERT INTO Tabela (CNPJ, Nome, IE, Cidade, UF, CEP) Values ('"& SArray(0) &"','"& SArray(1) &"','"& SArray(2) &"','"& SArray(3) &"','"&  SArray(4) &"','"&  SArray(5) &"')"    Conexao.Execute (SQL)    Next

Verifique que alguns campos não têm valor, o campo no banco deve aceitar valor nulo ou você tem que tratar no código.

 

Não testei o código acima, mas a lógica é mais ou menos essa aí.

 

[]s

Compartilhar este post


Link para o post
Compartilhar em outros sites

Valeu arr...mas queria fazer validacao.. tipo assim:O Identificador vai ser o CNPJ/CPF... ai caso ja exista o CPF/CNPJ eu dou um UPDATE e caso não exista dou um INSERT...ai é tranquilo isso ne?! so dar um Select...mas como vou usar isso???tipo esse SArray(0) é o que esta antes do primeiro "|"(separador)e SArray(1) é o que esta depois do primeiro "|" e assim por diante??

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.