seleccionar los ultimos registros de una tabla

[[Caral]]

Hola
En Firebird existe el last, pero no para estos fines.
Lo que se puede usar, sabiendo como, es MAX().
Tenia un problema similar en una consulta en Access que contenia algunos Last(), los cambie por Max() y me da el dato correcto, exacto.
Saludos

[[Caral]]

Hola
En este reporte en especial es donde tube el problema.
Se que es una sentencia sql sencilla pero cuando se cambia de access a Firebird se complica por desconocimiento, en mi caso es asi.

El asunto esta en el orden del IdTransac, que es el que define todo.

En Access:

Código Delphi [-]
QRBancoGen:=TQRBancoGen.Create(self);
QRBancoGen.ADOQuery1.SQL.Add(' SELECT DISTINCTROW BancoNac.CodTransac,  Last(BancoNac.IdTramsac) AS ÚltimoDeIdTramsac, '+
                            ' BancoNac.TipoTransac, BancoNac.FechaTransac, BancoNac.Descripcion, '+
                            ' Sum(BancoNac.Retiros) AS [Suma De Retiros], Sum(BancoNac.Depositos) AS [Suma De Depositos], '+
                            ' Last(BancoNac.SaldoTotal) AS SaldoTotal FROM BancoNac');
QRBancoGen.ADOQuery1.SQL.Add(' WHERE BancoNac.FechaTransac >= #'+DateToStr(DTP1.Date)+ '# AND  BancoNac.FechaTransac <= # '+DateToStr(DTP2.Date)+'#');
QRBancoGen.ADOQuery1.SQL.Add(' GROUP BY BancoNac.CodTransac, BancoNac.TipoTransac, BancoNac.FechaTransac, BancoNac.Descripcion ');
QRBancoGen.ADOQuery1.SQL.Add(' ORDER BY Last(BancoNac.IdTramsac), BancoNac.FechaTransac ASC');
QRBancoGen.ADOQuery1.Open;

En Firebird:
Dando el mismo resultado:

Código Delphi [-]
QRBancoGen:=TQRBancoGen.Create(self);
QRBancoGen.ADOQuery1.SQL.Add(' SELECT DISTINCT BancoNac.CodTransac,  Max(BancoNac.IdTramsac) AS UltimoDeIdTramsac, BancoNac.TipoTransac, '+
                              ' BancoNac.FechaTransac, BancoNac.Descripcion, '+
                              ' Sum(BancoNac.Retiros) AS SumaDeRetiros, Sum(BancoNac.Depositos) AS SumaDeDepositos, '+
                              '  Max(BancoNac.SaldoTotal) AS SaldoTotal FROM BancoNac ');
QRBancoGen.ADOQuery1.SQL.Add(' WHERE BancoNac.FechaTransac >= :fech1 AND  BancoNac.FechaTransac <= :fech2');
QRBancoGen.ADOQuery1.SQL.Add(' GROUP BY BancoNac.CodTransac, BancoNac.TipoTransac, BancoNac.FechaTransac, BancoNac.Descripcion ');
QRBancoGen.ADOQuery1.SQL.Add(' ORDER BY Max(BancoNac.IdTramsac), BancoNac.FechaTransac ASC');
QRBancoGen.ADOQuery1.Params[0].Value:= DateToStr(DTP1.Date);
QRBancoGen.ADOQuery1.Params[1].Value:= DateToStr(DTP2.Date);
QRBancoGen.ADOQuery1.Open;

Tal vez ayude a enterder algo mas, no se.
Saludos

[slnit]

SELECT TOP 8 FROM TUTABLA ORER BY FECHA DESC. Saludos

[Casimiro Noteví]

Empezado por slnit

Saludos

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración


Recuerda poner los tags al código fuente, ejemplo:



Gracias