Campos AutoIncrement - Key Violation

[gustavosv]

bueno después de investigar y leer en varios artículos, lo he resuelto de la siguiente manera:
1. en lugar de dejar el campo Id (AutoIncr) sin valor, he dispuesto ponerle un valor único a cada registro usando para ello un número entero negativo garantizando que no se me confunda con algún otro número por ahí

Código Delphi [-]
K := -1;
....
begin
  ClientDataSet1.FieldByName('Id').AsInteger := K;
  ClientDataSet1.Post;
  Dec(K);
end;

2. el evento BeforeUpdateRecord del TDataSetProvider se ejecuta con la instrucción ApplyUpdates antes de hacer la actualización física en el servidor, allí se implementa un mecanismo para conocer cuál sería el próximo número del Id y se actualiza usando la propiedad NewValue, para que llegue al servidor con el número que corresponde

Código Delphi [-]
procedure TDM.Provider1BeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind;
  var Applied: Boolean);
var
  NroRgtro: Integer;
begin
  if UpdateKind = TUpdateKind.ukInsert then
  begin
    spIdMAX.ExecProc;  // procedimiento almacenado que obtiene el último número asignado al AutoInc
    NroRgtro := spIdMAX.Params.ParamByName('IdMAX').AsInteger;
    DeltaDS.FieldByName('Id').NewValue := NroRgtro + 1;
  end;
end;

[bulc]

Sí, creo que está bien. En vez de usar un Trigger usas un StoreProcedure. Además colocas un nº negativo provisional. Me parece un poco floreado, pero si te va bien, adelante. Tu solución abre nuevos horizontes y es original (dentro de mis conocimientos). Enhorabuena!!

[[AzidRain]]

En MySQL para obtener el último número asignado se debe usar LAST_INSERT_ID() el cual te garantiza devolverte el último número que se haya asignado a tu campo sin importar que haya pasado después. Si haces lo haces con el método de usar MAX corres el riesgo de que en el transcurso otro usuario haya insertado registros por lo que ya no será correcto el dato que obtengas.