AUTONUMERAR REGISTRO EXISTENTE

 Tópico anterior Próximo tópico Novo tópico

AUTONUMERAR REGISTRO EXISTENTE

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#491466 - 24/11/2019 12:00:30

AMELINHACODE
SAO PAULO
Cadast. em:Junho/2019


bom dia Pessoal

Tenho uma tabela com 30mil produtos e apaguei 10mil produtos variados...

Porem a sequencia ficou falhada

Cod_produto
01
02
05
12

precisava via cdigo, autonumerar todos os registros novamente, para ficar na sequencia correta (01, 02, 03, 04....)

OBS: o campo do tipo INT

tentei algo do tipo
update Produtos set codigo = codigo + 1


mais como o proprio update j t nitido... ele vai pegar o valor atual e acrescentar mais 1.... e na verdade quero comear do 1 e seguir a sequencia... 1, 2, 3...





#491467 - 24/11/2019 12:29:52

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


   Bom dia, AMELINHACODE!

eu uso desta forma, v se te ajuda,


  Private Sub CodFornec()

      ConnectDB
          rs.Open []Select max(NumReg) from TbSuaTabelar[], db, 2, 4
             If rs.RecordCount = 0 Then
                 txtNumerica = Format(1, []00[])
             Else
                Do Until rs.EOF
                       txtNumerica = [][] & Format(rs(0) + 1, []00[])
                      rs.MoveNext
                  Loop
            End If
      FechaDB
           If txtNumerica = [][] Then txtNumerica = Format(1, []00[])
End Sub




#491473 - 24/11/2019 14:56:54

AMELINHACODE
SAO PAULO
Cadast. em:Junho/2019


boa tarde

Na verdade, preciso zera e comear do 1 meus registro j existente (via comando sql), sem usar objetos



Resposta escolhida #491487 - 25/11/2019 09:57:47

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe

Última edição em 25/11/2019 10:00:53 por FOXMAN

Eu faria da seguinte maneira :

ALTER TABLE `tblprodutos`
        DROP COLUMN `ID`;

ALTER TABLE `tblprodutos`
    ADD COLUMN `ID` INT NOT NULL AUTO_INCREMENT FIRST,
    ADD PRIMARY KEY (`ID`);


Tomando o cuidado claro de informar a coluna correta....
No meu exemplo, a coluna desejada chama-se ID, para seu exemplo basta trocar pelo nome da coluna autonumerica desejada.


Grupo DotNet.Br no FaceBook

Grupo WhatsDev



#491508 - 25/11/2019 19:14:39

AMELINHACODE
SAO PAULO
Cadast. em:Junho/2019


Última edição em 25/11/2019 19:15:23 por AMELINHACODE

Boa noite,

tentei assim
ALTER TABLE [dbo].[produtos]
DROP COLUMN codigo;
GO

ALTER TABLE [dbo].[produtos]
ADD COLUMN codigo INT NOT NULL AUTO_INCREMENT FIRST
GO


deu erro no []ADD COLUMN codigo...[]
Mensagem 156, Nvel 15, Estado 1, Linha 4
Sintaxe incorreta prxima palavra-chave []COLUMN[].


tirei o COLUMN e executei e deu o erro
Mensagem 102, Nvel 15, Estado 1, Linha 3
Sintaxe incorreta prxima a []AUTO_INCREMENT[].


Uso SQL2008






#491516 - 25/11/2019 20:47:59

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Citação:
:
Boa noite,

tentei assim
ALTER TABLE [dbo].[produtos]
DROP COLUMN codigo;
GO

ALTER TABLE [dbo].[produtos]
ADD COLUMN codigo INT NOT NULL AUTO_INCREMENT FIRST
GO


deu erro no []ADD COLUMN codigo...[]
Mensagem 156, Nvel 15, Estado 1, Linha 4
Sintaxe incorreta prxima palavra-chave []COLUMN[].


tirei o COLUMN e executei e deu o erro
Mensagem 102, Nvel 15, Estado 1, Linha 3
Sintaxe incorreta prxima a []AUTO_INCREMENT[].


Uso SQL2008




Por isso importante informar o banco de dados....

Veja se te ajuda :
DBCC CHECKIDENT([][Produtos][], RESEED, 0);




Grupo DotNet.Br no FaceBook

Grupo WhatsDev



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por AMELINHACODE em 30/12/2019 10:42:57