Ver Mensaje Individual
  #4  
Antiguo 05-09-2014
frandigo77 frandigo77 is offline
Miembro
NULL
 
Registrado: abr 2014
Posts: 17
Reputación: 0
frandigo77 Va por buen camino
Si la clave primaria es AutoInc..la seect la ejcuto desde el mismo entorno de MySQL

Código SQL [-]
Insert into Tabla values(x,x,x);
select last_insert_id();


Esta misma operacion la realizo desde un TDataSetProvider en Delphi y tambien me devuelve el mismo resultado..0.

Código Delphi [-]
procedure TsvmRPK03.prqrPersonaAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind);
begin
  inherited;
  if UpdateKind = ukInsert then
  begin
    //OJO Tanto para Maestro como para Detalle
    SourceDS.Tag:= Self.UltimaIdentidad; //REVISAR last_change_id
    DeltaDS.Fields[0].NewValue:= SourceDS.Tag;
  end;
end;

Código Delphi [-]
function TsvmRPK03.UltimaIdentidad: LongInt;
var
  V: Variant;
begin
  qrLastInSertId.Close;
  qrLastInsertId.Open;
  Result:= qrLastInsertIdId.Value;
end;
Responder Con Cita