Moverse por los registros en SQL Server

[dec]

Moverse por los registros con Microsoft SQL Server


procedure tbPrincipioClick(sender: TObject);
begin
with quClientes do begin
close;
SQL.clear;
SQL.add( 'SET ROWCOUNT 1' );
SQL.add( 'SELECT Codigo, Nombre FROM Clientes ORDER BY Codigo' );
open;
end;
end;


// Para final de fichero la instruccion seria:

SET ROWCOUNT 1

SELECT Codigo, Nombre FROM Clientes ORDER BY Codigo DESC

//Para proximo registro
SET ROWCOUNT 1

SELECT Codigo, Nombre FROM Cliente WHERE Codigo > :parametro ORDER BY Codigo

// Para registro anterior

SET ROWCOUNT 1

SELECT Codigo, Nombre FROM Cliente WHERE Codigo < :parametro ORDER BY Codigo DESC