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


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 25/2/2014, 16:46

    Boa tarde,

    Abro um novo tópico, como sugerido pelo consultor João Paulo.
    Tenho o seguinte código para a importar dados de um ficheiro txt e guardar numa tabela em Access, ao executar o código, não dá erro mas não importa os dados para a tabela do access. O problema é que o código funciona, já foi testado noutros computadores, por isto o problema deve estar no meu computador.
    O meu computador é um terminal de rede, mas o ficheiro que estou a tentar aceder, está no c:\ no meu desktop.
    Alguém me poderá auxiliar nesta questão?
    Código abaixo…



    Private Sub ImportTicket_Click()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("Tabela_Stock_Bilhetes", dbOpenDynaset)
    Dim strData As String
    Close #1
    Open "C:\users\20000252\desktop\EMD140211.txt" For Input As #1
    Do Until EOF(1)
    Line Input #1, strData

    If Left(strData, 4) Like "*BKS*" Then
    rs.AddNew
    rs!Bilhete = Trim(Mid(strData, 26, 14))
    On Error Resume Next
    rs.Update
    End If
    Loop
    MsgBox "Importação Concluída com Sucesso!!!"
    Close #1
    rs.Close
    Set rs = Nothing
    End Sub
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 28/2/2014, 23:14

    Boas Cf... o arquivo >>> Open "C:\users\20000252\desktop\EMD140211.txt" For Input As #1

    Está na rede?  em um outro pc da rede?

    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 5/3/2014, 18:51

    Boas HARYSOHN,

    O meu pc está numa rede, tenho username e uma password para aceder a rede.

    Cumprimentos,
    Carlos Machado
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 9/3/2014, 15:18

    Então... você deve colocar o endereço da Rede...

    Exemplo: \\nome do computador na rede\pasta\

    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 10/3/2014, 10:38

    Boas,

    Obrigado HARYSOHN. Mas já estava a usar o endereço de rede no codigo. Já consigo abrir o arquivo TXT, estou agora com problemas na condição que por alguma razão não adiciona um novo registo.
    Quando chega á condição "If" ele salta para "End If". Apesar da variavel strData ter um segmento de texto com "BKS".
    Ver anexo.


    If Left(strData, 4) Like "*BKS*" Then
    rs.AddNew
    rs!TicketInFileNumber = Trim(Mid(strData, 28, 10))
    On Error Resume Next
    rs.Update

    End If

    Cpts,
    CM
    Anexos
    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS AttachmentPrtScr.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 13 vez(es)
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 10/3/2014, 17:18

    Tente assim:

    Like '*"'BKS'"*'"
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 10/3/2014, 17:19

    Ou

    Dim StrTexto as string

    StrTexto = "BKS"

    If Left(strData, 4) Like '*" & StrTexto & "*'"

    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 10/3/2014, 18:07


    Boa tarde,

    ele não gostou do codigo If Left(strData, 4) Like '*" & StrTexto & "*'" teu erro. Ver PrintScreen 2 no anexo.
    Tive que colocar assim If Left(strData, 4) Like "'*" & StrTexto & "*'" mas ele continua a sair da condição "If".

    Cumprimentos
    Carlos Machado

    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 10/3/2014, 22:49

    Envie o modelo como está atualmente..

    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 11/3/2014, 12:07

    Segue em anexo.

    O problema está no meu computador será um problema librarias no ms access? O problema é que aqui o departamento de informatica não me ajudam porque não percebe nada do access.

    Cmpts,
    Carlos Machado
    Anexos
    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS AttachmentTicketsManuaisVersãoBeta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (598 Kb) Baixado 15 vez(es)
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 11/3/2014, 21:50

    Cite o passo a passo para que eu reproduza aqui.

    Cumprimentos.
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 11/3/2014, 21:55

    A variável Strdata contém um texto bem grande.
    Ocorre que o inicio é composto apenas de espaços....
    Como você está pegando apenas os 4 primeiros dígitos de StrData.. este não retorna registro algum.

    Cumprimentos.
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 11/3/2014, 22:04

    Tente assim:

         If Left(LTrim(strData), 4) Like "*BKS*" Then

    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 12/3/2014, 13:38

    HARYSOHN, você é uma máquina.
    Já importa o número de Ticket para a tabela, mas só uma vez. Precisava de importar todos os tickets novos que estão no ficheiro. Na primeira linha com BKS que está no ficheiro. O problema é que existem no mesmo ficheiro TXT tickets com o mesmo número e eu não quero importar números de tickets que estejam repetidos.

    Muito obrigado, já estava com pouca esperança de ver o meu problema resolvido.
    Cumprimentos,
    Carlos Machado
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 12/3/2014, 17:51

    Copie o txt no word, marque colorido as informações que deseja importar e me envie, o txt, o word e o bd.

    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 12/3/2014, 18:41

    Mais uma vez, obrigado, pela sua ajuda.

    Segue em anexo o ficheiro zip com aquilo que pediu.

    - PrintScreen da pasta onde recebo os ficheiro diáriamente. O nome dos ficherios não é constante, mas sim váriavel.

    - Ficheiro doc o exemplo da informação do ficheiro.txt que é preciso importar. A verde está assinalado o contador de registos, a azul está assinalado a sigla da primeira linha do registo que tem a informação do numero de bilhete, a amarelo está a informação a importar para a tabela que é o número do bilhete/Ticket.

    - Ficheiro original com a informação a importar.

    - Base de dados

    Cumprimentos,
    Carlos Machado
    Anexos
    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS AttachmentExemploFicheiro.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 10 vez(es)
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 16/3/2014, 14:16

    Bom dia, baseado neste .doc que me enviou Cite os tickets que deseja que sejam importados, ex:

    Bks xxxxxx
    Bkt yyyyy


    Aguardo.

    Cumprimento.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 17/3/2014, 13:54

    Bom dia HARYSOHN,

    Não percebi bem aquilo que me diz?
    Quer que eu indique os numeros de tickets a serem importados!? Existem milhões de numeros de tickets possiveis em cada ficheiro.

    Cumprimentos,
    Carlos Machado
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 17/3/2014, 15:37

    Pelo menos das primeiras linha.. para que eu possa entender...


    Cumprimentos...

    Pegue uma parte inicial deste txt...
    sei la umas 10 ou 20 linhas..

    Marque com cores.. e cite como deseja isso..

    XXX
    bbb
    cccc

    Para eu saber onde buscar e como buscar esta informação no seu txt

    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 17/3/2014, 18:29

    Segue em anexo ficheiro com as notas explicativas.
    Anexos
    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS AttachmentExemploFicheiro2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (13 Kb) Baixado 9 vez(es)
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 19/3/2014, 11:34

    Ok, baseado no que me enviou... coloque como seria a informação exibida depois de importado, ex:

    BKS3312400749263
    BKS 3312400749263
    BKS 3312400749263

    etc...


    Depois de importado.. coloque como deveria aparecer os textos do ticket que marcou em cores no doc..


    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 20/3/2014, 16:23

    Boa tarde HARYSOHN,

    A unica informação que necessito é o numero de Ticket.

    Ver anexo.

    Cpts,
    Carlos Machado
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 20/3/2014, 19:13

    Você tem um txt correto?

    Isso.. você me enviou.. coloriu e tal...

    Faça assim...
    Para as primeiras 20 ou 25 linhas do txt... Descreva como ficaria na tabela com os dados importados das 20 ou 25 primeiras linhas..

    Pra você deve ser fácil visualizar isto.. pois trabalha na área.. para mim parece Chinês..

    Então eu devo ter uma visualização de qual seria o resultado para estas primeiras linhas.. assim eu terei noção de como fazer o código.

    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 7/4/2014, 12:35

    Boas HARYSOHN,

    Tirei uns dias de férias... Laughing 

    O resultado para estas primeiras linhas é a visualização/importação do texto que está a amarelo para um campo na tabela.
    Também não sei especificar todo o conteúdo do ficheiro. Julgo que também não preciso, pois só necessito do texto que se encontra a amarelo.
    Mas se reparar o texto que se encontra a amarelo aparece muitas vezes no ficheiro e eu só quero que este texto seja integrado ou importado uma vez na tabela. Para isto que isto aconteça julgo que a melhor opção, será importar o texto a amarelo que se encontra na primeira linha que começa com as letras BKS que vem logo a seguir a linha BKT. Sempre que o BKT se repete o texto a amarelo/bilhete é diferente. Assim não é importado textos/bilhetes iguais.

    Espero que tenha exclarecido.

    Cumprimentos,
    Carlos Machado
    avatar
    Convidado
    Convidado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Convidado 25/4/2014, 10:58

    Os ticket's BKS serão sempre de numeração diferentes?


    Cumprimentos.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/02/2014

    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  CFGoyanes 28/4/2014, 11:21

    Boas HARYSOHN,

    O problema é que pode haver ticket's BKS com a mesma numeração. Mas quero carregar só uma vez a numeração ticket's BKS.

    Cumprimentos,
    Carlos Machado

    Conteúdo patrocinado


    Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS Empty Re: Problema ao tentar importar dados de ficheiro .TXT para uma tabela em ACCESS

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 22:59