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


    [Resolvido]Importar dados de arquivo txt dispostos em linhas

    avatar
    NarcisoRN
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 26/07/2011

    [Resolvido]Importar dados de arquivo txt dispostos em linhas Empty [Resolvido]Importar dados de arquivo txt dispostos em linhas

    Mensagem  NarcisoRN 20/1/2012, 14:34

    Amigos,

    Eu tenho um arquivo txt com varios registros, so que eles estão dispostos em linhas, ocupando cada um deles 7 linhas consecutivas por exemplo:

    Gilberto B Varela
    Tel: (84) 3211-39
    Rua Quinho Chaves, 1556
    Lagoa Nova
    Natal
    RN
    59076-670
    Granito Acessoria Contábil
    Tel: (84) 3211-10
    Avenida Bernardo Vieira, 3778 AN1
    Lagoa Nova
    Natal
    RN
    59051-005

    Aqui no exemplo coloquei dois registros. O que eu quero, é importar essas informações para uma tabela no Access. Acontece que o Access so importa arquivo txt, se as informações estiverem em colunas, da forma como está não consegui. Eu ja criei uma tabela com 7 campos (Nome, Telefone, Endereço,Bairro, Cidade, Estado, CEP) Alguem tem um exemplo que me permita fazer essa importação? Algum script?

    Grato
    avatar
    NarcisoRN
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 26/07/2011

    [Resolvido]Importar dados de arquivo txt dispostos em linhas Empty Re: [Resolvido]Importar dados de arquivo txt dispostos em linhas

    Mensagem  NarcisoRN 20/1/2012, 19:36

    Estou tentando fazer aqui, mas esta dando erro, alguem poderia analisar meu codigo por favor. Criei no Access Uma tabela chamada de clientes, a estrutura dela se encontra no codigo. estou lendo cada linha do arquivo de texto, com o comando line input, não sei como fazer o comando ler a proxima linha, dai fiz dessa forma, so que quando eu clico no botão do formulario para que a importação seja feita, surge a seguinte mensagem de erro:

    "a Expressão ao clicar que você inseriu como definição da propriedade de evento gerou o seguinte erro: Ocorreu um problema enquanto o Microsoft Office Access se comunicava com o servidor OLE ou com o controle Activex.
    * Talvez a expressão não resulte no nome de uma macro, no nome de uma função definida pelo usuário ou em um [Procedimento de evento]
    * Talvez tenha ocorrido um erro na avaliação da função, do evento ou da macro."


    Private Sub Comando15_Click()
    'Estrutura do banco de dados Access
    'Nome (40)
    'Tel (15)
    'Endereco (50)
    'Bairro (20)
    'Cidade (15)
    'UF (2)
    'CEP (10)
    '-----------------------------

    Dim I As Integer
    Dim linha(7) As String
    Dim db As Database
    Dim rs As Recordset

    Open "Empresas.txt" For Input As #1
    Set db = DBEngine.Workspaces(0).Databases(0)
    Set rs = db.OpenRecordset("Clientes", dbOpenTable)

    Do While Not EOF(1)

    Line Input #1, linha(1)
    Nome = Mid(linha(1), 1, 40)
    Line Input #1, linha(2)
    Tel = Mid(linha(2), 1, 15)
    Line Input #1, linha(3)
    Endereco = Mid(linha(3), 1, 50)
    Line Input #1, linha(4)
    Bairro = Mid(linha(4), 1, 20)
    Line Input #1, linha(5)
    Cidade = Mid(linha(5), 1, 15)
    Line Input #1, linha(6)
    UF = Mid(linha(6), 1, 2)
    Line Input #1, linha(7)
    CEP = Mid(linha(7), 1, 10)

    rs.AddNew

    rs(0) = Nome
    rs(1) = Tel
    rs(2) = Endereco
    rs(3) = Bairro
    rs(4) = Cidade
    rs(5) = UF
    rs(6) = CEP

    Loop

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

    Close #1

    End Sub

      Data/hora atual: 19/3/2024, 03:53