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


2 participantes

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

    avatar
    Erik_Rezende
    Novato
    Novato


    Respeito às regras : 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 Empty Substituir , por ; em uma tabela do access de 6.000.000 registros

    Mensagem  Erik_Rezende 3/8/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á!
    avatar
    CrisMaleta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  CrisMaleta 3/8/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: 8/11/2024, 01:16