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

    Substituir , por ; em uma tabela do access de 6.000.000 registros

    Compartilhe

    Erik_Rezende
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 2
    Registrado : 03/08/2015

    Substituir , por ; em uma tabela do access de 6.000.000 registros

    Mensagem  Erik_Rezende em Seg 03 Ago 2015, 19:31

    Boa tarde Amigos!

    Sou novo no fórum e também no VBA, e tenho uma dúvida.

    Tenho uma tabela com 6.000.000 de registros e preciso substituir diversas , por ; no vba.

    A tabela tem a seguinte estrutura: (Apenas uma coluna e todos os dados dentro desta coluna)

    Ex:
    Campo1
    0299 ,7649,F,:22:52,1,1200,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1200,12,0,0,0,01,0,02,2013:22:52
    1419 ,7663,F,:22:52,1,36400,728,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36400,728,0,0,0,01,0,02,2013:22:52
    1189 ,7663,F,:22:52,2,29000,1450,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,29000,1450,0,0,0,01,0,02,2013:22:52
    1389 ,7663,F,:22:52,3,17070,1707,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,17070,1707,0,0,0,01,0,02,2013:22:52


    Comecei a fazer o código, mas já fiquei travado, estava tentando usar a função replace, mas não está dando certo:

    --------------------------------------------------------------------------------------------------------------------------------------
    Private Sub CmdAtualizarCaracter_Click()

    Dim rTab As Recordset
    Dim sTab As String

       Set db = CurrentDb
       Set rTab = db.OpenRecordset("SELECT * FROM TabTeste")
       
       sTab = "SELECT * FROM TabTeste"
       
       Replace(rTab, ",",";")
       
    End Sub
    --------------------------------------------------------------------------------------------------------------------------------------

    Muito Obrigado desde já!

    CrisMaleta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/08/2013

    Re: Substituir , por ; em uma tabela do access de 6.000.000 registros

    Mensagem  CrisMaleta em Seg 03 Ago 2015, 20:23

    Fala Erik....

    No banco de dados de BACKUP!!!!!!

    Tente a seguinte instrução...

    dim stInstrucao as string

    stInstrucao = ""
    stInstrucao = "UPDATE NomeDaTabela SET NomeDoCampo = Replace([NomeDoCampo],",",";");"


    application.CurrentDb.Execute stInstrucao


    Manda o feedback depois!!!

    Abraço a todos!!!!



      Data/hora atual: Sex 09 Dez 2016, 11:32