TRANSFERIR ARQUIVO TXT PARA ACCESS - TRANSFERTEXT

CEMM 25/06/2010 16:23:32
#345801
Ola pessoal, estou com um pequeno probleminha....

eu tenho um arquivo Texto com os seguintes conteúdo:
[ô]\\d5310s009\F$\TXVG\RECYCLER\, Everyone, all                  
[ô]\\d5310s009\F$\TXVG\RECYCLER\,CORP\F131620, o 
[ô]\\d5310s009\F$\TXVG\RECYCLER\S-5-3-42-2819952290-8240758988-879315005-3665\, Everyone, ax00100021           
[ô]\\d5310s009\F$\TXVG\RECYCLER\S-5-3-42-2819952290-8240758988-879315005-3665\,CORP\F131620 , o


e tenho um banco com os seguintes campos:
[Ô]Caminho, Conta, Permissao[Ô]

eu preciso transferir para o banco o arquivo texto, mas não estou conseguindo dizer para o cogido que a virgula (,) é o demilitador, ou seja, que o primeiro campo é até aprimeira virgula, o segundo e o terceiro respectivamente.

alguem pode me ajudar a utilizar esse codigo abaixo?

Set objAccess = New Access.Application
    objAccess.OpenCurrentDatabase Servidor
    objAccess.DoCmd.SetWarnings False
    
    DoEvents
    For i = 0 To 100000000
    Next i
    DoEvents
    
    [ô]objAccess.DoCmd.TransferText acImportDelim, , [Ô]tblLogAcesso[Ô], frm.Dialog.FileName, True
    objAccess.DoCmd.TransferText acImportDelim, , [Ô]tblLogAcesso[Ô], frm.Dialog.FileName, False, [Ô][Ô]
LIZANDER 25/06/2010 18:44:22
#345821
Usa o split e transforme cada linha em um vetor, e grave no bd

Open Trim(txtArquivo.Text) For Input As iARQ
Line Input #iARQ, slinha
xVetor = Split(slinha, [Ô],[Ô])

Daí vc vai ter:
xvetor(o) = [ô]\\d5310s009\F$\TXVG\RECYCLER\
xvetor(1) = Everyone
xvetor(2) = all

Assim para cada linha do seu txt...
CEMM 28/06/2010 09:21:46
#345951
Sim, isso eu já faço, o problema é que eu tenho um arquivo de 1186426 linhas, que demorou cerca de 50 minutos para importar lendo linha a linha e gravando, dai não ficou enviavel e me passaram essa solução para implementar que pega o arquivo texto e joga no banco ela funciona e gravou bem rapido o problema que gravou como um campo só, não separou por [Ô],[Ô] no caso.

alguem já trabalhou com TransferText?

Obrigado.
CEMM 29/06/2010 13:10:22
#346064
bom pessoal eu já similei que quando o arquivo tiver ponto e virgula [Ô];[Ô] ele transforma em coluna, mas meu aquivo está separando por virgula [Ô],[Ô] e os nomes dos campos ficam como [Ô]F1, F2, F3[Ô].....será que não dá apra alterar e nem separar por virgula?

algum já trabalhou com TransferText?

Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar