MUDANDO O CODIGO DE VARIOS REGISTROS EM SEQUENCIA
tenho uma tabela chamada RECEBER onde cada registro possui um CODIGO sequencial...1, 2, 3, 4 e assim sucessivamente.
usando o UPDATE via SQL como eu faria para definir um NUMERO UNICIAL e ele mudar todos os registro sequencialmente?
exemplo?
CODIGO DESCRICAO
1 sabao
2 feijão
3 alho
4 sal
depois do codigo
CODIGO INICIAL = [txt-color=#e80000]3500[/txt-color]
CODIGO DESCRICAO
3501 sabao
3502 feijão
3503 alho
3504 sal
usando o UPDATE via SQL como eu faria para definir um NUMERO UNICIAL e ele mudar todos os registro sequencialmente?
exemplo?
CODIGO DESCRICAO
1 sabao
2 feijão
3 alho
4 sal
depois do codigo
CODIGO INICIAL = [txt-color=#e80000]3500[/txt-color]
CODIGO DESCRICAO
3501 sabao
3502 feijão
3503 alho
3504 sal
IMAGINANDO que os códigos já estão em ordem numérica e você quer colocoar em números maiores.
UPDATE tabela SET codigo = codigo+3500
Você terá um problema: Se o código 3500 existir, vai gerar duplicidade e erro no SQL. Então faça DOIS updates:
UPDATE tabela SET codigo = codigo+103500
depois
UPDATE tabela SET codigo = codigo+100000
UPDATE tabela SET codigo = codigo+3500
Você terá um problema: Se o código 3500 existir, vai gerar duplicidade e erro no SQL. Então faça DOIS updates:
UPDATE tabela SET codigo = codigo+103500
depois
UPDATE tabela SET codigo = codigo+100000
TENTE ISSO:
Dim i As Integer
Set Rs1 = New ADODB.Recordset
Sql = [Ô]Select * from Tabela WHERE Campo = [ô][Ô] & XXXXXX & [Ô][ô];[Ô]
Rs1.Open Sql, Conexao, adOpenDynamic, adLockPessimistic
Screen.MousePointer = vbHourglass
i = 1
Do While Not Rs1.EOF
Rs1.Fields([Ô]Codigo[Ô]).Value = i
Rs1.Update
Rs1.MoveNext
i = i + 1
If Err.Number <> 0 Then MsgBox [Ô]Erro, Auto numeração falhou![Ô]
Loop
Rs1.Close
Set Rs1 = Nothing
Screen.MousePointer = vbDefault
Dim i As Integer
Set Rs1 = New ADODB.Recordset
Sql = [Ô]Select * from Tabela WHERE Campo = [ô][Ô] & XXXXXX & [Ô][ô];[Ô]
Rs1.Open Sql, Conexao, adOpenDynamic, adLockPessimistic
Screen.MousePointer = vbHourglass
i = 1
Do While Not Rs1.EOF
Rs1.Fields([Ô]Codigo[Ô]).Value = i
Rs1.Update
Rs1.MoveNext
i = i + 1
If Err.Number <> 0 Then MsgBox [Ô]Erro, Auto numeração falhou![Ô]
Loop
Rs1.Close
Set Rs1 = Nothing
Screen.MousePointer = vbDefault
Tópico encerrado , respostas não são mais permitidas