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

    Copiar arquivo

    avatar
    vaggnersf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 30/07/2012

    Copiar arquivo Empty Copiar arquivo

    Mensagem  vaggnersf 13/5/2013, 20:42

    Preciso de uma ajuda dos colegas.
    Gostaria de saber se existi alguma forma de o Access ler um arquivo txt e automaticamente preencher varias tabelas com essa informação do txt ou tenho que levar esse txt para uma tabela e depois fazer minha amarração?

    O que tenho em txt

    |050|borracha|100,00|124|574|41|214,00|254||||0|||
    |T101|000|||000001|4154|teste de lógica|24|||||||

    Quero que quando ele identifique no txt o nome |050| preenchera todos campos da minha tabela TESTE1 com as informações campo1 (borracha), campo2 (100,00), campo3 (124), campo4 (574) e assim para os demais na linha.
    E também quando encontra T101 preencha a tabela TESTE2 com as informações no campo1(000), campo2 (), campo3 (), campo4 (00001), campo58 (4154), campo6 (reste de lógica) e assim para os demais.

    Sempre meu arquivo txt estará separado por pipe |
    Cada linha do txt terá 15 pipe|, caso tenha sequencia de ||| significa q esta campo esta em branco.

    Assim um arquivo com mais de 15.000 linha vou preencher minhas tabelas automaticamente sempre que importar esse txt.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    Copiar arquivo Empty Re: Copiar arquivo

    Mensagem  Avelino Sampaio 13/5/2013, 21:01

    Ola!

    Vou te oferecer um código incompleto para vc ir analisando e modificando, pois não tenho tempo agora de montar algo:


    Dim f As Long
    Dim k
    Dim strLinha
    On Error GoTo TrataErro

    f = FreeFile

      Open CurrentProject.Path & "\SuaPasta\SeuArquivo.txt" &  For Input As f

      Do While Not EOF(f)
         Line Input #f, strLinha
         k = split(strlinha,"|")
         select case k(0)
            Case '050'
                'aqui vc usa a consulta INSERT INTO aonde os valores k(1), k(2), k(3) , ... representam as colunas  

            case 't101'

                'aqui vc usa a consulta INSERT INTO aonde os valores k(1), k(2), k(3) , ... representam as colunas  
         end select    
      Loop



    Sucesso!


    Última edição por Avelino Sampaio em 9/7/2013, 19:02, editado 1 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    vaggnersf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 30/07/2012

    Copiar arquivo Empty Re: Copiar arquivo

    Mensagem  vaggnersf 16/5/2013, 02:13

    Obrigado pela ajuda, conheço muito pouco sobre VBA Access, mais com esse codigo vou ver se consigo dar andamento.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    Copiar arquivo Empty Re: Copiar arquivo

    Mensagem  Avelino Sampaio 16/5/2013, 09:53

    Ofereça o arquivo txt de exemplo, que montamos o código para vc.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    vaggnersf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 30/07/2012

    Copiar arquivo Empty Re: Copiar arquivo

    Mensagem  vaggnersf 16/5/2013, 13:03

    Estou postando um arquivo txt para os colegas me ajudarem.

    Os nomes que vão amarrar com minha Tabela dentro do txt sempre vai ser |050|, |T101|, |U350|, |x458|, |Z001|, |Z010|, |Z100| e demais como em anexo.

    Assim q o código encontra dentro do txt a linha |050| amarrara dentro do Access com a TABELA TESTE1, encontrando o |T101| amarrara com a TABELA TESTE 2.

    Dentro da TABELA TESTE 1 tem vários campos onde vai ser preenchido com as informações da linha |050| do meu arquivo txt.

    Então ficado assim:

    Tabela Teste 1
    Campo 1 (050), campo 2 (c000001), campo 3 (EDGARD ALOISIO VENTURINI), campo 4(1058), campo 5(59922955000149) e assim para os demais.

    Tabela Teste 2
    Campo1 (T101), campo 2(100001), campo 3 (CANO FREIO DIANT. ESQ. 1113, campo 4(), campo 5 (), campo 6 (PC) e assim para os demais.
    Anexos
    Copiar arquivo AttachmentAnalise.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (10 Kb) Baixado 5 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    Copiar arquivo Empty Re: Copiar arquivo

    Mensagem  Avelino Sampaio 16/5/2013, 14:12

    Segue exemplo para as duas primeiras tabelas. Conclua o código para as outras tabelas.

    Sucesso!
    Anexos
    Copiar arquivo AttachmentVaggner.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 19 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    Conteúdo patrocinado


    Copiar arquivo Empty Re: Copiar arquivo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 17:07