ALTERAR O CODIGO DE VARIOS PRODUTOS EM SEQUENCIA
tenho uma tabela com 500 registros.
o campo CODIGO é do tipo numero longo (autonumerico).
cada produto possui o codigo sequencial.... 1, 2, 3, 4........500
Como eu faço para mudar todos os codigos de meus produtos.... ou seja...
vou dar um numero inicial... exemplo: 790
ai quero que ele pegue o CODIGO = 1 e mude para 790.... Pegue o CODIGO = 2 e mude para 719... assim sucessivamente até mudar os 500 registros.
o campo CODIGO é do tipo numero longo (autonumerico).
cada produto possui o codigo sequencial.... 1, 2, 3, 4........500
Como eu faço para mudar todos os codigos de meus produtos.... ou seja...
vou dar um numero inicial... exemplo: 790
ai quero que ele pegue o CODIGO = 1 e mude para 790.... Pegue o CODIGO = 2 e mude para 719... assim sucessivamente até mudar os 500 registros.
Vc precisa tirar a autonumeração e depois dar o update:
Update tabela set codigo = codigo + 789
Neste caso o codigo 2 iria para 791, não entendi a logica do 790 e o proximo para 719....
depois volta a autonumeração
Update tabela set codigo = codigo + 789
Neste caso o codigo 2 iria para 791, não entendi a logica do 790 e o proximo para 719....
depois volta a autonumeração
Tenta assim: (ADO)
Dim RsTabela As New ADODB.Recordset
Dim Codigo As Long
Codigo = 790
RsTabela.Open [Ô]SELECT * FROM TABELA ORDER BY CODIGO[Ô], Conexao, adOpenKeySet, adLockReadOnly
While Not RsTabela.EOF
Conexao.Execute([Ô]UPDATE TABELA SET CODIGO = [Ô] & Codigo & [Ô] WHERE CODIGO = [Ô] & RsTabela([Ô]CODIGO[Ô]))
Codigo = Codigo + 1
RsTabela.MoveNext
Wend
RsTabela.Close: Set RsTabela = Nothing
Dim RsTabela As New ADODB.Recordset
Dim Codigo As Long
Codigo = 790
RsTabela.Open [Ô]SELECT * FROM TABELA ORDER BY CODIGO[Ô], Conexao, adOpenKeySet, adLockReadOnly
While Not RsTabela.EOF
Conexao.Execute([Ô]UPDATE TABELA SET CODIGO = [Ô] & Codigo & [Ô] WHERE CODIGO = [Ô] & RsTabela([Ô]CODIGO[Ô]))
Codigo = Codigo + 1
RsTabela.MoveNext
Wend
RsTabela.Close: Set RsTabela = Nothing
Precisa tirar a autonumeração e executar:
Update tabela set codigo = codigo + 790
Update tabela set codigo = codigo + 790
Tópico encerrado , respostas não são mais permitidas