Desactivar parametro en query

[ecfisa]

Hola Kenobi.

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