Transformar arquivo txt em tabela

Para transformar um txt como tabela, você
tem que definir o arquivo Schema.ini com a estrutura do seu
arquivo!

Outro detalhe, esta rotina só funcionará
se o seu arquivo texto estiver todo alinhado em colunas, permitindo
desta forma definir os campos!

Vamos ao código:

Set BancoDeDados = OpenDatabase(“C:VisualRotaVisualRota.mdb”)

‘APAGAR AS TABELAS EXISTENTES
PARA GERAR AS NOVAS.
BancoDeDados.Execute “DROP TABLE CGOR0770”

‘CRIA TABELAS NA MEMORIA

Set TabelaTemporariaDEF = BancoDeDados.CreateTableDef(“CGOR0770”)

‘REALIZA REFERENCIA DAS
TABELAS AO DIRETÓRIO DO ARQ TEXTO.
TabelaTemporariaDEF.Connect = “TEXT;DATABASE=C:VisualRota”

‘CRIA RELACAO COM O ARQ.
TEXT ESPECIFICO
TabelaTemporariaDEF.SourceTableName = “arq770.txt”

‘CRIA O ARQUIVO

BancoDeDados.TableDefs.Append TabelaTemporariaDEF

‘DELETA TODOS OS REGISTROS
EXISTENTES NAS TABELAS DEFEITOS
BancoDeDados.Execute “DELETE * FROM DEFEITOS;”

‘COPIA A TABELA RELACIONADA
COM O ARQUIVO TEXTO PARA UMA OUTRA TABELA
BancoDeDados.Execute “INSERT INTO DEFEITOS SELECT * FROM CGOR0770;”