Primeros n registros paradox

[marilinspi]

Hola, quiero obtener los primeros N registros de una tabla, uso delphi 7 y paradox
ya probé TOP, FIRST, LIMIT... nada me funciono
alguna idea?
gracias desde ya

[[brakaman]]

Hola amigo:

No se si te he entendido bien, sino es esto perdona. pero...

Código Delphi [-]
Var 
  N, i : Integer;
begin
N := 20;  // Primeros 20 registros.
// Ya teniendo la tabla creada y abierta (claro). 
Tabla1.First;
    for i := 1 to N do
    begin
      if not Tabla1.EOF then
      begin
        // Acceder a los campos.
        // Por Ejemplo: Memo1.Lines.Add(Tabla1.FieldByName('Campo1').AsString);
        
        Tabla1.Next;
      end
      else
        Break; 
    end;
end;
// Cerrar tabla. Tabla1.Close, liberar recursos ....

Saludos.

Jose.

[Casimiro Notevi]

Se supone que quiere hacerlo con SQL. Desconozco sin con paradox es posible.

[manelb]

Nosotros hemos trabajado con paradox durante muchos años y hemos ido descubriendo características realmente interesantes y sorprendentes para lo que es paradox(ahora me viene a la cabeza la revolución que representó para mi el descubrimiento de las vistas en paradox), pero no creo que en sql para paradox exista el equivalente de FIRST, TOP, LIMIT de otros sistemas.

[Casimiro Notevi]

Puede crear un store procedure que devuelva el número de registros que se quiera, se le puede pasar la sentencia y el número.
Algo similar a esto:

Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE SelectWithLimit (
  p_SelectStatement VARCHAR(1000),
  p_RecordCount INTEGER
)
RETURNS (
  ResultField1 ,
  ResultField2 ,
  -- Agrega más campos según tus necesidades
)
AS
DECLARE VARIABLE RowCount INTEGER;
BEGIN
  RowCount = 0;

  FOR EXECUTE STATEMENT p_SelectStatement INTO :ResultField1, :ResultField2
  DO
  BEGIN
    RowCount = RowCount + 1;
    SUSPEND;

    IF (RowCount >= p_RecordCount) THEN
      EXIT;
  END
END^

SET TERM ; ^

[Casimiro Notevi]

Para usarlo, con un ejemplo se entiende:

Código SQL [-]
SELECT * FROM SelectWithLimit('SELECT * FROM tu_tabla', 10);