Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-02-2004
Avatar de haron
haron haron is offline
Miembro
 
Registrado: may 2003
Ubicación: Las Palmas de Gran Canaria
Posts: 310
Poder: 22
haron Va por buen camino
Cita:
Empezado por Giniromero
Hola a todos,

Yo tengo un problema parecido, ¿no hay entonces ninguna forma que sustituya la clausula TOP por otro en interbase 7? yo lo que tengo es una consulta en la que sólo tienen que aparecer los últimos 10 o 15 registros de una tabla, el resto de los registros no me hacen falta.

Muchas gracias

Virginia
recuerdo que un TADOQuery tenia un parametro para no devolver todos los registros, sino que se los iba trayendo del servidor uno a uno cada vez que se ejecutaba el metodo 'next'.

lo que puedes hacer es lo siguiente:

Código:
select campo1, campo2, ...
from tabla
order by campo_i DESC
con la opcion DESC obtengo los ultimos registros al principio.

luego lo que tienes que hacer es recorrer estos registros:

Código:
cont:=0;
while not query.eof do 
begin
  // me traigo un registro
  query.next;
  // hago lo que tenga que hacer, como insertarlo en un TStringGrid
  ....
  // si supero los quince registros, me salgo del bucle
  cont:=cont+1;
  if cont>15 then break;
end;
si quieres presentarlo en una grilla, deberas usar en este caso un TStringGrid.
__________________
“Plantad la semilla de la avaricia en la infértil tierra de la estupidez y obtendreis la bella flor de la mierda”
(Confucio)
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 03:27:53.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi