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

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

    Compartilhe

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Qui 13 Fev 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

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Seg 17 Fev 2014, 13:18

    Será que alguem pode ajudar-me?

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Seg 17 Fev 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Seg 17 Fev 2014, 16:09

    Veja se ajuda;

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Seg 17 Fev 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



    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Seg 17 Fev 2014, 18:19

    Caro João Paulo,

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


    Obrigado.
    Anexos
    Doc1.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (71 Kb) Baixado 2 vez(es)

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Ter 18 Fev 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

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Qua 19 Fev 2014, 11:54

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

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Sex 21 Fev 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 21 Fev 2014, 10:58

    Ola;

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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Sex 21 Fev 2014, 12:59


    Obrigado João Paulo. Segue em anexo a Base de Dados.
    Anexos
    TicketsManuais2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (311 Kb) Baixado 5 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 21 Fev 2014, 13:58

    Ola;

    Pode anexar o ficheiro EMD140211.txt" ?


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 21 Fev 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



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Sex 21 Fev 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
    EMD140211.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 6 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 21 Fev 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




    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Sex 21 Fev 2014, 18:28

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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Seg 24 Fev 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
    TicketsManuais2_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (435 Kb) Baixado 26 vez(es)


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    wbonelli
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  wbonelli em Seg 24 Fev 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.

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Seg 24 Fev 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Seg 24 Fev 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.

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Seg 24 Fev 2014, 12:07

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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Seg 24 Fev 2014, 14:09

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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Ter 25 Fev 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Ter 25 Fev 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.




    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Ter 25 Fev 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

    wbonelli
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  wbonelli em Ter 25 Fev 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.

    CFGoyanes
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CFGoyanes em Sex 07 Mar 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
    PrtScr.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 7 vez(es)

      Data/hora atual: Sab 10 Dez 2016, 04:57