firebird y mdo

[jachguate]

Empezado por aladelta

al hacer en el evento afterpost del mdodataset un commitretainig y despues un last, funciona de muerte....ya que el registro que se esta insertando debe de estar al final de la lista ordenada...

Por favor, no abuses del commitretaining, tiene implicaciones con el desempeño de la base de datos. Es mejor hacer un commit completo siempre que se pueda.

Empezado por aladelta

solo queda estudiar como hacer para que varios generadores se activen al crear un registro y todo desde delphi

No hay forma que yo conozca de que MDO lo maneje automáticamente, sin embargo podes hacer lo vos fácilmente:

Código Delphi [-]
procedure TForm1.mdoquery1BeforePost(Sender: TDataSet);
begin
  if MDOQuery1.state = dsInsert then
    with TMDOQuery.Create(nil) do
      try
        Database := MDODatabase1;
        SQL.Text := 'select gen_id(generador, 1) from rdb$database';
        Open;
        MDOQuery1Campo2.AsInteger := Fields[0].AsInteger;
      finally
        free;
      end;
end;

La idea es esa...

Hasta luego.