MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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: Ter 12 Dez 2017, 14:06