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