Moverse por los registros en SQL Server

[dec]

Moverse por los registros con Microsoft SQL Server

Código Delphi [-]
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:

Código SQL [-]
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