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]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

    avatar
    rjlealflavio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 31/08/2017

    [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela Empty [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

    Mensagem  rjlealflavio 3/6/2019, 18:55

    Preciso criar 100 tabelas com 1 milhão de registros cada uma.

    Tabela_01:
    CodigoObjeto1: Numeração Automática
    NumeroObjeto: Texto

    Primeiro registro (campo "NumeroObjeto"): JC00000001BR
    Ultimo Registro (campo "NumeroObjeto"):   JC01000000BR



    Tabela_02:
    CodigoObjeto2: Numeração Automática
    NumeroObjeto: Texto

    Primeiro registro (campo "NumeroObjeto"): JC01000001BR
    Ultimo Registro (campo "NumeroObjeto"):   JC02000000BR
    .
    .
    .
    e assim por diante ate o registro de numero JC99999999BR

    Alguem pode ajudar?
    Estou criando os registros pelo excel, fazendo manualmente e importando, mas cada planilha demora séculos para finalizar a importação.

    Alguem poderia me dar uma luz?
    obrigado
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7242
    Registrado : 15/03/2013

    [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela Empty Re: [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

    Mensagem  ahteixeira 3/6/2019, 22:16

    Olá Flavio Leal,

    Creio ser possível apesar do numero de registos (só testando o espaço em disco que vai opcupar).

    Entretento, verifico que tem vários tópicos abertos o qual não deu retorno nem deu como Resolvido.
    Verifique e regularize a situação.

    Abraço
    avatar
    rjlealflavio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 31/08/2017

    [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela Empty Re: [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

    Mensagem  rjlealflavio 3/6/2019, 22:54

    Boa noite ahteixeira
    Infelizmente só achei hoje o botão "resolvido".
    Se puder me ajudar serei grato.
    Prestarei mais atenção e terei mais cuidado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7242
    Registrado : 15/03/2013

    [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela Empty Re: [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

    Mensagem  ahteixeira 3/6/2019, 23:11

    Olá, Olá Flavio Leal,

    Tem aqui um esboço do caminho das pedras é só ajustar:

    Código:
    Sub teste()
    'ahteixeira 2019
        Dim nTabela, numObj As String
        Dim iTab, iObj, i As Long
        Dim rs As DAO.Recordset
       
        'aqui faz da tabela 1 a 2, ajustar para pretendido
        For iTab = 1 To 2
       
            nTabela = "Tabela_" & Format(iTab, "00")
            CurrentDb.Execute "CREATE TABLE " & nTabela & " (CodigoObjeto1 AutoIncrement CONSTRAINT CodObj1 PRIMARY KEY, NumeroObjeto CHAR(15));"
       
            Set rs = CurrentDb.OpenRecordset(nTabela)
       
            'aqui faz registos 1 a 10000 por tabela, ajustar para pretendido
            For i = 1 To 10000
                iObj = iObj + 1
                numObj = "JC" & Format(iObj, "00000000") & "BR"
                rs.AddNew
                    rs!NumeroObjeto = numObj
                rs.Update
                DoEvents
            Next
           
            rs.Close
            Set rs = Nothing
        Next
    End Sub

    Está a fazer para duas tabelas 10000 registos em cada com a sequencia pretendida.
    Creio que o ideal será ajustar codigo para cada tabela ser uma base de dados separada.

    Abraço
    avatar
    rjlealflavio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 31/08/2017

    [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela Empty Re: [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

    Mensagem  rjlealflavio 15/6/2019, 18:36

    Perfeito ahteixeira
    Muito obrigado. Deu Certo!
    Mas estou passando por um problema: apos determinada etapa, da erro e a criação dos registros para em determinado numero.
    Como fazer para iniciar em determinado numero?

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7242
    Registrado : 15/03/2013

    [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela Empty Re: [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

    Mensagem  ahteixeira 16/6/2019, 10:55

    Olá Flávio,

    Altere na parte do FOR, tem de 1 a 10000 aqui é onde deve alterar.

    Abraço
    avatar
    rjlealflavio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 31/08/2017

    [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela Empty Re: [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

    Mensagem  rjlealflavio 8/7/2019, 12:29

    Muito obrigado pela ajuda.
    Tudo certo!!!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7242
    Registrado : 15/03/2013

    [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela Empty Re: [Resolvido]Criar 100 milhões de registros divididos em tabelas com 1 milhão cada tabela

    Mensagem  ahteixeira 8/7/2019, 16:07

    Olá Flavio,

    Obrigado pelo retorno, o fórum agrafece.

    Abraço

      Data/hora atual: 13/6/2021, 01:08