Fórum Recursividade de campo de autoincremento. #227348
21/04/2004
0
var proxNum : integer;
begin
DmSL.QryFinanceiro.Last;
proxNum := DmSL.QryFinanceiro.FieldByName(´Cod´).asinteger + 1;
DmSL.QryFinanceiro.Append;
DmSL.QryFinanceiro.FieldByName(´Cod´).asinteger := proxNum;
end;
Gostaria ordernar os valores do registro o valor da chaveprimária ´COD´, para o seguinte exemplo :
se eu tiver registros com COD := 1..10 se eu deletar o registro de valor COD := 7 ele diminiu o restante chegando o ultimo registro recebendo ´9´.
Sendo que estarei atualizando os valores anteriores e posteriores.
ESTOU USANDO BASE ACCESS 2000.
Com faço isso ?
Jonasaf
Curtir tópico
+ 0Posts
21/04/2004
Wtjunior
Qual a finalidade disso?
Vc não tem nenhuma referência a este campo (COD) dentro do sistema? pois se tiver não poderá fazer isso.
wilson
Gostei + 0
21/04/2004
Beppe
UPDATE Tabela SET (Cod) VALUES (Cod - 1) WHERE Cod > :CodDeletado
O param CodDeletado deve receber o Cod do item deletado
Gostei + 0
21/04/2004
Einstein
exemplo: SELEC max ( cod ) from tabela;
espero ter ajudado....
Gostei + 0
21/04/2004
Aroldo Zanela
Não faça isto, pois irá acarretar vários problemas de integridade referencial em seu sistema.
Gostei + 0
22/04/2004
Einstein
se vc se refere a dica que eu dei. bem gostaria de lhe informar que ela foi extraida de uma das edicoes da Revista Clube Delphi da serie que desenvolveu o sistema DataCar nao lembro bem se foi a edicao 31 ou a 32.
atenciosamente, Einstein Xavier
Gostei + 0
22/04/2004
Beppe
se vc se refere a dica que eu dei. bem gostaria de lhe informar que ela foi extraida de uma das edicoes da Revista Clube Delphi da serie que desenvolveu o sistema DataCar nao lembro bem se foi a edicao 31 ou a 32.
atenciosamente, Einstein Xavier[/quote:5afc671c31]
Einsten, acho q o Zanela respondia ao que postou o tópico, sobre modificar os ids.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)