Como importar um arquivo texto para uma tabela do Access

Nesta matéria do WebMundi.com, você aprenderá como importar um arquivo texto para uma tabela do Access utilizando a linguagem de programação Visual Basic.

Existem várias maneiras para se fazer isso, mas vamos ver uma bem interessante.

Vou supor que você tem um arquivo texto chamado “texto.txt” de largura fixa, com dois campos tipo texto de tamanho 10 caracteres, sem delimitadores entre eles.

Além disso, possui um MDB chamado “teste.mdb” com uma tabela “tabela1” com dois campos de mesmo tamanho.

Os dois arquivos estão no diretório raiz.

Você pode tratar o arquivo texto com se fosse uma tabela de um banco de dados. Para isso, crie um arquivo texto chamado “schema.ini”.

Esse arquivo vai descrever o arquivo “texto.txt”. Veja o seu conteúdo:

[texto.txt]
format=FixedLength
Col1=campo1 Text Width 10
Col2=campo2 Text Width 10

A primeira linha informa o nome do arquivo.

A segunda o formato e as demais, os campos.

Num formulário do VB,coloque 2 data controls, um para o texto e outro para o mdb, com as seguintes propriedades:

data1: Connect = “text”, databasename=”C:\”, recordsource=”texto.txt”
data2: Connect=”access”, databasename=”teste.mdb”, recorsource= “tabela1”

Coloque um botão de comando, para realizar a importação.

No evento click , digite:

Do Until Data1.Recordset.EOF
Data2.Recordset.AddNew
Data2.Recordset(0) = Data1.Recordset(0)
Data2.Recordset(1) = Data1.Recordset(1)
Data2.Recordset.Update
Data1.Recordset.MoveNext
Loop

Isso vai importar o arquivo texto para a tabela.

Obrigado

Espero que você tenha gostado desta matéria sobre Como importar um arquivo texto para uma tabela do Access via Visual Basic.
Se você gostou, compartilhe estas dicas com um amigo ou participe de nossas redes sociais.

Caso queira nos incentivar a criar mais conteúdos como este, prestigie nossos anunciantes.

Um Grande Abraço e até a próxima dica!

Renato Sanches
Gestor de TI – Tecnologia da Informação
Desenvolvedor desde 1988 nas linguagens de Programação: Clipper, Visual Basic, Delphi, HTML, ASP, PHP, T-SQL e PL/SQL.