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
SourceDS.Tag:= Self.UltimaIdentidad; 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;