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


3 participantes

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 13/2/2014, 16:08

    Boa tarde,
    Será que alguém me poderá ajudar?
    Estou criando uma base de dados em access, que permita importar um segmento de texto (string) de um ficheiro .txt e adicionar a tabela no Access.

    Exemplo do conteúdo de uma ficheiro (SALES100214.txt)recebido em "C:\FilesVendasDiarios\*.txt":

    BFH0000000101790331  203PROD1402110103  000001                                                                                        
    BCH00000002020221140210F                                                                                                                
    BOH000000030322990833140210                       USD2                                                                                  
    BKT0000000406      000001                  NR019X 331            
    BKS00000005241402090000013312400747471  37906004134925496FFVV   22990833                                  
    BKS00000006301402090000013312400747471  30000004990{0000004990{ YC      0000000055{US      
    BKS00000010301402090000013312400747471  30000000000{0000004990{ XF      
    BKS00000011301402090000013312400747471  30000000000{0000004990{ YR      0000000202I        
    BKS00000012391402090000013312400747471  3I        000000000000000{    
    BKS00000013461402090000013312400747471  3                                PENALTIES MAY APPLY -BG S4                                    
    BAR00000018661402090000013312400747471  31WBVI063606160000939603244                                                                                                              
    BKP0000002184140209000001MSCC      0000006117DWBVI063606160000939                            
    BKP0000002284140209000001CA        0000000000{                                                
    BKT0000002306      000002                  NR019X 331                                              
    BKS00000024241402090000023312400747473  57906004134925522FFVV   22990833                    
    BKS00000031391402090000023312400747473  5I        000000000000000{      
    BKS00000032461402090000023312400747473  5                                PENALTIES MAY APPLY -BG:S4                                    
    BAR00000037661402090000023312400747473  51WBVI063606160000939603244                                                                  
    BKF00000038811402090000023312400747473  5  1BOS S4 PDL208.00S4 BOS291.00NUC499.00END
    BKF00000039811402090000023312400747473  5  25.00XA7.00XY2.50AY21.17YP11.78PT4.50XF20.29YRXF BOS4.5                                      
    BKP0000004084140209000002MSCC      0000006117DWBVI063606160000939                            
    BKP0000004184140209000002CA        0000000000{                                                
    BKT0000004206      000003                  NR019X 331                                              
    BKS00000043241402090000033312400747472  47906004134925533FFVV  
    BKS00000044301402090000033312400747472  40000004990{0000004990{
    BKS00000045301402090000033312400747472  40000000000{0000004990{

    Este ficheiro, não tem colunas. Gostaria de importar para uma tabela em access todos os números documentos (assinalado a amarelo), a primeira linha do ficheiro BKS (assinalado a azul) que está a seguir da linha BKT (assinalado a verde).
    A tabela criada em access teria basicamente só um campo que seria o número de documento.
    Tenho uma tabela criada em access (Tab_FileDocs) com os campos “ID.Doc” e “NumeroDoc”.

    Os exemplos que tenho encontrado na net são para a importação de um ficheiro .txt  com colunas e não por linhas.

    Agradeço deste já a quem me possa ajudar.

    Carlos Machado
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 17/2/2014, 13:18

    Será que alguem pode ajudar-me?
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 17/2/2014, 15:01

    Não percebo muito de SQL mas criei esta expressão, mas não funiona. No 

    Private Sub ImportTicket_Click()

    Dim Ponteiro As integer
    Dim RegistoLinha As String
    Dim LinhaBKS As String
    Dim StrNumbDoc As Double


    Open "C:\ImportFile\*.txt" For Input As #1
    DoCmd.OpenTable "Tabela_TicketInFile", acNormal, acEdit

    Do While Not EOF(1) and Tabela_TicketInFile.DocNumber <> StrNumbDoc
    Line Input #1, Ponteiro, LinhaBKS, RegistoLinha


    LinhaBKS = Left(RegistoLinha, 3)
    If RegistoLinha=”BKS” then
    Tabela_TicketInFile.SiglaBKS = LinhaBKS

    StrNumbDoc = Mid(RegistoLinha, 22, 13)
    Tabela_TicketInFile.DocNumber = StrNumbDoc


    Loop


    Close #1

    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  JPaulo 17/2/2014, 16:09

    Veja se ajuda;

    http://maximoaccess.forumeiros.com/t7059-resolvidoimportar-dados-de-um-arquivo-txt-irregular



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 17/2/2014, 17:42

    Antes de mais obrigado João Paulo, pela resposta.


    Estou com problemas na linha do comando "Open" em abrir o ficheiro .txt.

    Outro problema é que não quero integrar na tabela numero de documentos em duplicado.




    Private Sub ImportTicket_Click()

    Dim linha1 As String
    Dim linha2 As String
    Dim db As Database
    Dim rs As Recordset

    Open " C:\Users\20000252\Desktop\SIRAX\Teste\EMD140211.txt " For Input As #1 'o nome do ficheiro é dinâmico.
    Set db = DBEngine.Workspaces(0).Databases(0)
    Set rs = db.OpenRecordset("Tabela_TicketInFile", dbOpenTable)

    Do While Not EOF(1)
    Line Input #1, linha1

    If Left(linha1, 3) = "BKS" Then

    TicketInFileNumber = Mid(linha1, 22, 13)


    rs.AddNew

    rs(0) = TicketInFileNumber

    rs.Update

    End If
    Loop

    MsgBox "Importação Concluída com Sucesso!!"
    rs.Close
    db.Close

    End Sub


    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 17/2/2014, 18:19

    Caro João Paulo,

    Vou anexar um ficheiro de imagem que explica melhor aquilo que pertendo.


    Obrigado.
    Anexos
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access AttachmentDoc1.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (71 Kb) Baixado 2 vez(es)
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 18/2/2014, 16:43

    Estou em difiuldades... Mad 

    Carrego no botão do formulário ele corre o codigo até ao fim, mas não carrega nada na tabela.
    Vou Anexar aqui, o ficheiro que estou tentando carregar.




    Private Sub ImportTicket_Click()


    Dim linha(1) As String
    Dim Siglalinha As String

    Dim db As DAO.Database, rs As DAO.Recordset


    Open ("C:\Users\20000252\Desktop\EMD140211.txt") For Input As #1


    Set db = DBEngine.Workspaces(0).Databases(0)
    Set rs = db.OpenRecordset("Tabela_TicketInFile", dbOpenTable)

    Do While Not EOF(1)
    Line Input #1, linha(1)

    Do While Not EOF(1)
    Line Input #2, Siglalinha

    If Left(Siglalinha, 1) = "BSK" Then 'Linhas começadas com a sigla BSK

    TicketInFileNumber = Mid(linha(1), 25, 10)






    rst.AddNew

    rs(1) = (TicketInFileNumber)

    rs.Update
    End If
    Loop
    Loop
    MsgBox "Importação Concluída com Sucesso!!"
    rs.Close
    db.Close

    Close #1


    End Sub
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 19/2/2014, 11:54

    Não estou a conseguir chegar a uma solução. Será que alguem me pode ajudar.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 21/2/2014, 10:47

    Boas,

    Será que o problema tem haver com o facto de eu estar a utilizar a versão do ACCESS 2013?


    Cumprimentos,
    Carlos Machado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  JPaulo 21/2/2014, 10:58

    Ola;

    Converta para 2007 e anexe aqui parte do seu banco com o ficheiro, para o ajudar-mos.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 21/2/2014, 12:59


    Obrigado João Paulo. Segue em anexo a Base de Dados.
    Anexos
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access AttachmentTicketsManuais2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (311 Kb) Baixado 5 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  JPaulo 21/2/2014, 13:58

    Ola;

    Pode anexar o ficheiro EMD140211.txt" ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  JPaulo 21/2/2014, 14:45

    Faça o teste assim;

    Código:
    Private Sub ImportTicket_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim linha(1) As String
    Dim TicketInFileNumber  As String


    Open ("C:\EMD140211.txt") For Input As #1

    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Tabela_Stock_Bilhetes")

    Do While Not EOF(1)
    Line Input #1, linha(1)

    If Left(linha(1), 3) = "BKS" Then

    TicketInFileNumber = ""
    TicketInFileNumber = Mid(linha(1), 25, 14)

    rs.AddNew

    rs.Fields("Bilhete") = TicketInFileNumber

    rs.Update

    End If
    Loop

    MsgBox "Importação Concluída com Sucesso!!"
    rs.Close
    db.Close

    Close #1

    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 21/2/2014, 15:26

    João Paulo,

    Antes de mais, agradeço a resposta.

    O codigo que me mandou não está a carregar tabela com os registos importados.

    Envio o ficheiro em anexo.
    Anexos
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access AttachmentEMD140211.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 7 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  JPaulo 21/2/2014, 16:17

    Código:
    Private Sub ImportTicket_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim linha(1) As String
    Dim TicketInFileNumber  As String


    Open ("C:\EMD140211.txt") For Input As #1

    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Tabela_Stock_Bilhetes")

    Do While Not EOF(1)
    Line Input #1, linha(1)

    If Left(linha(1), 4) Like "*" & "BKS" & "*" Then

    TicketInFileNumber = ""
    TicketInFileNumber = Mid(linha(1), 25, 14)

    rs.AddNew

    rs.Fields("Bilhete") = TicketInFileNumber

    rs.Update

    End If
    Loop

    MsgBox "Importação Concluída com Sucesso!!"
    rs.Close
    db.Close

    Close #1

    End Sub




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 21/2/2014, 18:28

    A continua sem importar os registos do ficheiro.txt para a tabela.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  JPaulo 24/2/2014, 09:51

    Bom dia !

    Pelos testes que fiz, importa sem problema.

    Faça o teste da seguinte forma;

    1º Coloque o txt que lhe envio, para C:\
    2º Abra o form Principal, pressione o botão "Importar Tickets from EMD File" e aguarde.
    Anexos
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access AttachmentTicketsManuais2_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (435 Kb) Baixado 45 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    wbonelli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 02/04/2011

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  wbonelli 24/2/2014, 10:20

    Como eu tenho algo parecido com o arquivo retorno do Bradesco de boletos pagos, ai fazer também uma sugestão, mas com o código do JPaulo, não tem necessidade, funciona direitinho! Fiz aqui um teste e deu certo. Estou usando o Office 2013 365. Importou 1028 Bilhetes.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 24/2/2014, 11:12

    Bom dia,

    Obrigado pelas respostas.

    Como estou a trabalhar em rede eu não tenho permissões para cópiar o ficheiro para o c:\.
    Através deste evento posso dar a volta a isto?

    Abraço,
    Carlos
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  JPaulo 24/2/2014, 11:37

    Ola;

    O teste que fiz foi em C:\, você pode copiar o txt do zip, para um diretorio que quiser e testar, alterando o caminho no código.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 24/2/2014, 12:07

    Pois...O problema é que já alterei o caminho e continua sem importar. Suspect 
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  JPaulo 24/2/2014, 14:09

    Então o problema está no seu PC, pois aqui importa tanto no 2003 como no 2007, como no 2010.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 25/2/2014, 13:47

    Boas,

    Estou a tentar abrir o ficheiro de outra maneira sem a função Open(), mas estou a ter problemas. Podem dar-me uma orientação?


    Private Sub ImportTicket_Click()
    Dim rs As Recordset
    Dim FileNm As String
    Dim strData As String
    Dim oFSO As FileSystemObject
    Set oFSO = New FileSystemObject
    Dim oFS As TextStream
    Close #1
    Set rs = CurrentDb.OpenRecordset("Tabela_Stock_Bilhetes", dbOpenDynaset)



    If oFSO.FileExists("C:\Users\20000252\Desktop\EMD140211.txt") Then

    Set oFS = oFSO.OpenTextFile("C:\Users\20000252\Desktop\EMD140211.txt")
    oFS.Close
    Else
    MsgBox "The file path is invalid.", vbCritical, vbNullString
    End If
    Do Until EOF(1)
    Line Input #1, strData

    If Left(strData, 4) Like "*BKS*" Then
    rs.AddNew
    rs!Bilhete = Trim(Mid(strData, 28, 10))
    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  JPaulo 25/2/2014, 16:07

    Meu caro Carlos Machado, o problema está resolvido porque já foi testado por outro usuário e funciona em pleno.

    O que agora está a tentar fazer, é usar o Scripting Runtime para aceder ao fso.

    Repare que, se não deu com o que lhe passei, então o problema está no seu PC e por mais voltas que dê, a nossa bola de cristal não funciona.

    Abra novo tópico, para a nova duvida.




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 25/2/2014, 16:23

    Caro João Paulo,

    Não queria chateá-lo com a minha insistência.
    Estava só a tentar resolver o meu problema...não faço minima ideia de qual a razão do problema no meu computador.

    Cumprimentos,
    Carlos Machado
    avatar
    wbonelli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 02/04/2011

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  wbonelli 25/2/2014, 16:45

    Realmente, está funfa direitinho.
    Tem algo na configuração de seu computador que está dando erro. Também não sei.
    Sugiro tentar em outro computador antes de partir para modificações mais radicais.
    Como disse, tenho algo parecido, abrindo e selecionando o arquivo no explorer, mas precisará usar bibliotecas e talvez aí complique mais ainda um assunto que creio já esta´resolvido de uma forma maravilhosa e simples, mostrando o domínio que o JPaulo tem da ferramenta.
    avatar
    CFGoyanes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  CFGoyanes 7/3/2014, 17:56

    Boas,

    Antes de mais quero que fique claro, que não duvido que o problema está no meu computador, estou só a tentar arranjar forma de dar a volta ao problema. Aqui no meu emprego o departamento de informatica não deu grande ajuda, por isto voltei a postar.

    Já consigo abrir o arquivo TXT, estou agora com problemas na condição que por alguma razão não adiciona um novo registo. 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
    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access AttachmentPrtScr.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 7 vez(es)

    Conteúdo patrocinado


    [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access Empty Re: [Resolvido]Importar um ficheiro “ *.txt” para uma tabela em MS Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 17:17