Atualizando campo ID


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Atualizando campo ID

Irenko

BELO HORIZONTE
MG - BRASIL

Postada em 03/03/2008 16:25 hs

Tenho em uma tabela gravado um documento de numero 1501 esse documento tem 05 items que é identificado na tabela com o campo (ID) sendo:

ID 1 = XXXXXXXX
ID 2 = YYYYYYYY
ID 3 = NNNNNNNN
ID 4 = BBBBBBBB
ID 5 = CCCCCCCC

preciso de uma rotina para que quando eu deletar um desses items, supondo o
ID 3 o código atualize o campo (ID) da tabela automaticamente ficando:

ID 1 = XXXXXXXX
ID 2 = YYYYYYYY
ID 3 = BBBBBBBB
ID 4 = CCCCCCCC

No caso acima o ID 4 passa a ser o ID 3

Uso ADO banco access. Isso é possível?
A quantidade de items de um documento pode chegar a 50.

Treze

SÃO VICENTE
SP - BRASIL

Postada em 03/03/2008 17:37 hs

Eu desenvolvi um código em DAO

veja se consegue adaptar para seu código

inseri o mesmo no botão excluir

Ele basicamente funciona assim você seleciona o registro que vai excluir, então ele exclui este registro move para o próximo então ele faz um update deste com o id -1

veja o código para ver se você entende para fazer sua alteração

supondo que possuo uma tablea com dois campo id e nome

então faço desta forma no botão excluir

' seleciono o registro a ser excluido e faço um delete

REG.Delete

REG.MoveNext ' aqui ele move para o próximo registro

Do While Not REG.EOF ' então enquanto não for o fim dos registros

REG_arq.Edit ' grava o mesmo registro com o código alterado

txtid.Text = Val(REG("codigo") - 1) ' id do registro -1

txtnome.text=REG("nome") ' nome não é alterado

REG.Update

REG.MoveNext ' e move para o próximo registro para fazer a mesma alteração

Loop ' assim sucessivamente até o final dos registros

veja se você consegue

TÓPICO EDITADO

Macaubal
não registrado

Postada em 03/03/2008 17:45 hs

Aconselho utilizar um RecordSet ou algum objeto Data onde voce consegue trabalhar com indices Numerado

Siga o exemplo!

Numero_Campo_Deletado = 3
Qtd_Campos = 10

Dim X as Integer
For X = Numero_Campo_Deletado To Qtd_Campos - 1
Campo(X) = Campo(X + 1)
Next X
Campo(X + 1) = Null 'Zera o ultimo campo

Página(s): 1/1