MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Importação de arquivo .txt por linhas em uma unica tabela

    Compartilhe

    Wagner Gomes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/09/2014

    Importação de arquivo .txt por linhas em uma unica tabela

    Mensagem  Wagner Gomes em Sex 26 Set 2014, 00:55

    Boa Noite,

    vi em um tópico de importação de arquivo texto, mas no meu caso não consegui trazer para minha realidade se puder ajudar fico muito grato.

    e o seguinte tenho um arquivo texto da seguinte forma:

    0xxxxxxxxxxxxxxxxxxxxxxxxxx3550308xxxxxxxxxxxx001
    1teste1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx002
    1teste2xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx003
    1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx004
    9xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx005
    0xxxxxxxxxxxxxxxxxxxxxxxxxx3205022xxxxxxxxxxxx001
    1aprovado1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx002
    1aprovado2xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx003
    1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx004
    9xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx005

    onde inicia com "0" seria o header do arquivo e que preciso do campo 3550308 para atribuir a cada registro abaixo, ou seja, os registros que estão abaixo começados por "1" pertence a linha do "0" , o que inicia pelo "9" trailler do arquivo.

    Estão preciso que numa tabela fique da seguinte maneira

    3550308 teste1 xxxxx xxxxx xxxxx
    3550308 teste2 xxxxx xxxxx xxxxx
    3205022 aprovado1 xxxxx xxxxx xxxxx
    3205022 aprovado2 xxxxx xxxxx xxxxx

    se puder me ajudar ficarei muito grato,

    abraços
    Wagner Gomes

    silvrod
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/12/2011

    Re: Importação de arquivo .txt por linhas em uma unica tabela

    Mensagem  silvrod em Sex 26 Set 2014, 16:19

    Wagner, bom Dia!

    O código abaixo faz algo parecido, ele pega o nome do arquivo através de uma string e depois executa um update na tabela no campo n_apolice.

    Do While Len(strFile) > 0


    apolice = Left(strFile, 5) 'Numero Apolice


    DoCmd.TransferText acImportFixed, "allan", "Geral", strOrigem & strFile, False, ""


    strFile = Dir$()

    DoCmd.SetWarnings False
    DoCmd.RunSQL ("UPDATE Geral SET Geral.n_apolice = " & apolice & " WHERE (((Geral.n_apolice) is null))")

    No seu caso você teria que fazer um if para que todo registro que começa com 0 ele pegue o número que você quer.

    Espero ter ajudado.

      Data/hora atual: Dom 04 Dez 2016, 01:55