Reordenar consecutivo

[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;

[Vlady]

Gracias casimiro pero de esta forma me salta que el ID ya existe y da error de primary key ya existe.

[Casimiro Noteví]

Empezado por Vlady

Gracias casimiro pero de esta forma me salta que el ID ya existe y da error de primary key ya existe.

Claro, porque debes saltarte los que ya existen con el código correcto. Prueba algo parecido a esto:

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