Como Generar Dos Ordenes automaticamente segun la cantidad de lineas

[ecfisa]

Hola webmasterplc.

La idea que te sugirió duilioisola es la correcta, seguramente se trate de algún error sintáctico o de implementación. Por otro lado recuerda que es de mucha ayuda que escribas textualmente el mensaje de error que estas recibiendo (el código donde se produce tampoco viene mal).

Para que compruebes que funciona, te pongo un ejemplo donde desde una tabla, se ván cargando once campos en un ListBox cada vez que se hace click en un botón:

Código Delphi [-]
...
implementation

var
  Count: Integer = 0;

procedure TForm1.BringEleven(var Count: Integer);
begin
  IBQuery1.Close;
  IBQuery1.SQL.Text:='SELECT FIRST(11) SKIP(11*:NUM) UN_CAMPO FROM TU_TABLA';
  IBQuery1.ParamByName('NUM').AsInteger:= Count;
  IBQuery1.Open;
  if not IBQuery1.IsEmpty then
  begin
    // :: Aqui lo que quieras hacer con los 11 registros obtenidos
    while not IBQuery1.Eof do
    begin
      ListBox1.Items.Add(IBQuery1.FieldByName('UN_CAMPO').AsString);
      IBQuery1.Next;
    end;
    // :: 
    Inc(Count);
  end
  else Count:= -1
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Count <> -1 then
  begin
    BringEleven(Count);
    ListBox1.Items.Add('----------------------------');
  end;
end;

te queda adaptarlo a tus necesidades.

Saludos

[webmasterplc]

VVoy a seguir revisando ofrezco mil discupas por lo del error porque intente adjuntar el pantallazo y creo que no subio excuse me

[webmasterplc]

efectivamente es un error de sisntaxy en mysql aca le adjunto el error

[ecfisa]

Hola webmasterplc.

Por lo que veo estas trabajando con MySQL y si no me equivoco, en este gestor la función equivalente a FIRST/SKIP de Firebird es LIMIT.

Entonces creo que la sintáxis SQL en tu caso debería ser:

Código SQL [-]
SELECT * FROM TU_TABLA LIMIT 11, 11 * :NUM

Pero no uso MySQL así que sería bueno que vieras mas detalles del uso de la cláusula (por ejemplo aquí: Using MySQL LIMIT).

Saludos

[webmasterplc]

Hola efectivamente etudie la clausula limit alli hay que pasarle dos parametros

Código Delphi [-]
Select * from tutabla limit 0,11

el primer parametro indica desde que fila comensara a traer registros y el segundo la cantidad, lo hice bien, pero cada vez que le doy al boton me llama 11 registros pero siempre los primeros 11 , creoq ue tengo que aumentar el contador pero la verdad no se como, aqui les dejo como quedo la consulta

Código Delphi [-]
var
  Count: Integer;

procedure Tformfacturar.BringEleven(var Count: Integer);
begin
  Count:=0;
  datos.sqfacturas.Close;
  datos.sqfacturas.SQL.Text:='SELECT * FROM dhistoria LIMIT :NUM, 11';
  datos.sqfacturas.ParamByName('NUM').AsInteger:=Count;
  datos.sqfacturas.Open;
  if not datos.sqfacturas.IsEmpty then
  begin
    // :: Aqui lo que quieras hacer con los 11 registros obtenidos
    while not datos.sqfacturas.Eof do
    begin
      Lst1.Items.Add(datos.sqfacturas.FieldByName('nhistoria').AsString);
      datos.sqfacturas.Next;
    end;
    // ::
    Inc(Count);
  end
  else Count:= -1
end;

[ecfisa]

Hola webmasterplc.

...el primer parametro indica desde que fila comensara a traer registros y el segundo la cantidad, lo hice bien, pero cada vez que le doy al boton me llama 11 registros pero siempre los primeros 11...

Intenta cambiando la consulta actual:

Código SQL [-]
SELECT * FROM dhistoria LIMIT :NUM, 11

por:

Código SQL [-]
SELECT * FROM dhistoria LIMIT :NUM * 11, 11

Saludos

[webmasterplc]

Hice el cambio y me da error
aqui lo adjunto