Hola Kenobi.
Cita:
Empezado por Kenobi
...
Código SQL [-]
select proyectos,categorias,count(categorias)
from proyectos
where proyecto=:miParametro
group by categorias
|
Lo primero que me llama la atención es que la consulta anterior funcione sin haber incluído la columna "proyectos" en la declaración
GROUP BY ...
Para reutilizar el mismo query, se me ocurre que podrías hacer algo similar a este ejemplo:
Código Delphi
[-]
procedure UnDataModule.CountCategories(const Categoria: string);
begin
qyCat.Close;
qyCat.SQL.Clear;
qyCat.SQL.Add('SELECT PROYECTO, COUNT(CATEGORIAS)');
qyCat.SQL.Add('FROM PROYECTOS');
qyCat.SQL.Add('WHERE PROYECTO = :PARAM');
qyCat.SQL.Add('GROUP BY PROYECTO');
if Categoria = EmptyStr then
qyCat.SQL.Delete(2)
else
qyCat.parameters.ParamByName('PARAM').Value := Categoria;
qyCat.Open;
end;
Saludos