actualizar base de datos desde dbgrid

[roman]

Sí. El problema es este:

Al ser un campo autoincremental, el valor lo establece el servidor, pero dicho valor no puede conocerse hasta que no se haga un ApplyUpdates para mandar los cambios a la base de datos y un Refresh para recuperar los nuevos valores (los autoincrementales) desde la base. Como no estamos indicando ningún valor para ese campo, todos los registros nuevos toman el valor NULL y, claro, no puede haber dos registros con el mismo valor para una llave primaria. De ahí que falle al insertar el segundo registro.

La solución está en este artículo de Embarcadero, pero la resumo aquí.

1. Hay que proporcionar un valor adecuado al campo autoincremental. Esto podemos hacerlo en el evento OnNewRecord del ClientDataSet:

Código Delphi [-]
procedure TfrmMain.cdsEntradasNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('id').AsInteger := AutoId;
  Dec(AutoId);
end;

Aquí, AutoId es una variable entera que inicializamos a -1 al momento de abrir el ClientDataSet. Así, los nuevos registros tomarán valores negativos: -1, -2, -3, etc.

2. Cada vez que hagamos el ApplyUpdates, debemos reiniciar esta variable y llamar al método Refresh:

Código Delphi [-]
procedure TfrmMain.btnGuardarClick(Sender: TObject);
begin
  cdsEntradas.ApplyUpdates(0);
  cdsEntradas.Refresh;
  AutoId := -1;
end;

3. Por último, tal como indica el artículo al final, debemos indicar que no se actualice el campo autoincremental, para que así los valors realmente sean los que asigna el servidor y no los nuestros negativos. Esto podemos hacerlo en el evento AfterOpen del dataset fuente (el MyQuery en nuestro caso):

Código Delphi [-]
procedure TfrmMain.qryEntradasAfterOpen(DataSet: TDataSet);
begin
  DataSet.FieldByName('id').ProviderFlags := DataSet.FieldByName('id').ProviderFlags - [pfInUpdate];
end;

// Saludos