MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    avatar
    Wagner Gomes
    Novato
    Novato


    Respeito às regras : 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 Empty Importação de arquivo .txt por linhas em uma unica tabela

    Mensagem  Wagner Gomes 26/9/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
    avatar
    silvrod
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  silvrod 26/9/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: 28/3/2024, 13:11