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 csv para tabela

    avatar
    ARIPO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 09/02/2010

    [Resolvido]Importar csv para tabela Empty [Resolvido]Importar csv para tabela

    Mensagem  ARIPO 1/4/2016, 10:27

    Amigos, preciso de ajuda, quero importar um arquivo .csv para uma tabela, exemplo no (csv) ele esta assim:
    Equipamento-código-data
    Trator-12456-01/02/2012
    Vi um exemplo de importação de um .txt, alguem me ajudaria adptar para o .csv.
    Anexos
    [Resolvido]Importar csv para tabela AttachmentImportar TXT.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 56 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar csv para tabela Empty Re: [Resolvido]Importar csv para tabela

    Mensagem  JPaulo 4/4/2016, 11:06

    Ola Fabio;

    Teste e retorne por favor;

    Código:
    Private Sub Comando0_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim linha$
    Dim anArray

    Open CurrentProject.Path & "\Empresas.txt" For Input As #1
    Set db = DBEngine.Workspaces(0).Databases(0)
    Set rs = db.OpenRecordset("Clientes")

    Line Input #1, linha

    If Len(linha) > 0 Then
    Do While Not EOF(1)

    Line Input #1, linha

    anArray = Split(linha, ",")
        rs.AddNew
        rs(0) = Trim(anArray(0))
        rs(1) = Trim(anArray(1))
        rs.Update
    Loop

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

    Close #1

    Else
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing

    Close #1
    End If
    End Sub

    http://dl.dropboxusercontent.com/u/771097/Importar%20TXT%20%282%29.zip


    .................................................................................
    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 csv para tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar csv para tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar csv para tabela 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 : 10669
    Registrado : 04/11/2009

    [Resolvido]Importar csv para tabela Empty Re: [Resolvido]Importar csv para tabela

    Mensagem  JPaulo 5/4/2016, 05:44

    E ae, funcionou ?


    .................................................................................
    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 csv para tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar csv para tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar csv para tabela Folder_announce_new Instruções SQL como utilizar...
    avatar
    ARIPO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 09/02/2010

    [Resolvido]Importar csv para tabela Empty Importar csv para tabela

    Mensagem  ARIPO 6/4/2016, 07:28

    JPaulo

    O texto importou, mas quando tento o .csv esta dando erro.
    Anexos
    [Resolvido]Importar csv para tabela AttachmentImportar TXT.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 58 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar csv para tabela Empty Re: [Resolvido]Importar csv para tabela

    Mensagem  JPaulo 6/4/2016, 08:46

    Dá erro porque o delimitador do csv é ponto e virgula e não virgula;

    Altere para:

    Código:
    anArray = Split(linha, ";")



    .................................................................................
    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 csv para tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar csv para tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar csv para tabela Folder_announce_new Instruções SQL como utilizar...
    avatar
    ARIPO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 09/02/2010

    [Resolvido]Importar csv para tabela Empty Re: [Resolvido]Importar csv para tabela

    Mensagem  ARIPO 6/4/2016, 12:10

    Entendi JPaulo, agora deu certo
    Muito Obrigado pela ajuda
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar csv para tabela Empty Re: [Resolvido]Importar csv para tabela

    Mensagem  JPaulo 7/4/2016, 09:43

    Fico feliz.
    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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 csv para tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar csv para tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar csv para tabela Folder_announce_new Instruções SQL como utilizar...
    avatar
    RicketyKnave2
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 25/03/2016

    [Resolvido]Importar csv para tabela Empty Re: [Resolvido]Importar csv para tabela

    Mensagem  RicketyKnave2 16/4/2016, 11:22

    como faço para salvar o dado em nulo caso a coluna não tenha texto ou números?

      Data/hora atual: 25/1/2022, 14:45