Como importar um arquivo texto para uma tabela do Access

Como importar um arquivo texto para uma tabela do Access

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 control, 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.

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *