Reordenar consecutivo

[roman]

Pero, ¿para qué quieres hacer esto? En mi opinión es una complicación innecesaria y propensa a errores. ¿Qué pasa, por ejemplo, si tienes accesos simultáneos? Tus llaves se pueden hacer un desbarajuste.

Una llave primaria tendría que ser inamovible, sobre todo si es llave foránea en otras tablas.

// Saludos

[Casimiro Noteví]

Absoluta y totalmente de acuerdo con Román, ¿qué ocurre ahora con los datos de facturas o de cualquier otra tabla (depende de tu programa) que estén relacionados con ese código?, le estarías asignado facturas a otros clientes!!!

[Vlady]

Esto lo controlo con triggers para que no se facture a otros clientes, ademas lo debo hacer hacer para tener el consecutivo de los clientes.

[Vlady]

ademas esto no es precisamente para una tabla de clientes, es que el ejemplo lo hice de esta forma, es para una tabla de pedidos y necesito conservar el consecutivo de cada pedido asi borren alguno en cualquier momento, luego renumerar el ID

[Casimiro Noteví]

Pero, si por ejemplo, el pedido es del cliente 100 y borras el cliente 90. Tras la renumeración el cliente 100 ahora será el 99. Y el pedido que era del cliente 100 ahora quedará huérfano o pertenecerá al "nuevo" cliente 100, que antes era el 101.

De todas formas, debes buscar otra forma de hacer eso, no es nada factible, salvo que sea un campo más de la tabla, pero no la clave principal.

[Vlady]

Casimiro Gracias por responder, pero te cuento que esto no es de una tabla de clientes es solo un ejemplo q se me ha ocurrido lo quiero hacer es con una tabla de Pedidos donde la PK no es foranea en ninguna otra tabla o q deseo es q en el momento de eliminar un pedido se reorganicen los numeros de pedidos.

[Casimiro Noteví]

Pues tendrás que hacerlo con un bucle, por ejemplo, ordenas por nombre (por ejemplo) y luego lo vas recorriendo de principio a fin y le vas poniendo el código que toque.

Algo así:

query.close;
query.selectsql.text := 'select * from tbclientes order by apellidos, nombre';
query.open;
iNumero := 1;
while not query.eof do
begin
  query.edit;
  query.fieldbyname('codigo').asinteger := iNumero;
  query.post;
  query.next;
  inc( iNumero );
end;