Delphi no interpreta query

[aikai]

Holas,

no sé si estoy haciendo mal uso del foro, si es así, mis disculpas; pero vi mi otro hilo con una marca como si estuviera resuelto y, en realidad, la cuestión por la que lo abrí se solucionó con vuestra ayuda. Pero me surgió la siguiente... No consigo que la aplicación en delphi me ejecute la sentencia que os muestro (me da error ODBC... Pocos parámetros... Se esperaba 1).

He probado a cambiar paréntesis, '', etc. Toy desesperada ya La consulta funciona perfectamente desde el access y seguro que en delphi no lo hace por algun detalle de sintaxis q se me escapa. Gracias!

Código SQL [-]
SELECT Sum(IIf(IsNull(g.exrate),gp.total_inv,(gp.total_inv)/g.exrate)) AS INVERSION, 
Sum(IIf(IsNull(g.exrate),gp.total_ganado-gp.total_inv,(gp.total_ganado-gp.total_inv)/g.exrate)) 
AS BENEFICIO, (BENEFICIO/INVERSION)*100 AS MARGEN, Format(g.date'yyyy') & ", " & Format(g.date,'mm') AS meses
FROM tabla1 AS g INNER JOIN tabla2 AS gp ON g.id = gp.id
WHERE gp.id = (select prefer_valor from prefs where pref_key = 'PRIN')
GROUP BY Format(g.date,'yyyy') & ", " & Format(g.date,'mm')
ORDER BY Min(g.date);

[dec]

Hola,

Es probable que se trate de un error de sintáxis, y, siendo así, no basta conque pongas la consulta SQL que tratas de llevar a cabo, sino el código fuente de Delphi donde tratas de "embeberla". Así, sin más, la consulta que muestras no puede guardarse en una cadena en Delphi, puesto que contiene caracteres que "partirían" dicha cadena y la harían inválida.

Así que si te es posible muestra cómo tratas de hacer la consulta en Delphi, y el mensaje de error exacto que obtienes.

PD. Fíjate que en este foro existen las etiquetas [sql][/sql], [delphi][/delphi], entre otras, que mostrarán el código fuente correspondiente de manera que se lea mejor.

[aikai]

Gracias por las recomendaciones

El código sql lo tengo puesto directamente en el ADOQuery1.SQL;

Tengo los componentes ADOConnection, ADOQuery, DBGrid y Datasource debidamente relacionados, en principio.

Y en el form un botón con

Código Delphi [-]
ADOQuery1.Open;

Qué estoy haciendo mal?

[[Lepe]]

Intentando hacer de adivino:

Código SQL [-]
WHERE gp.id = (select prefer_valor from prefs where pref_key = 'PRIN')

¿exiten varios registros que su pref_key sea igual a 'PRIN'?
Si es así, estas usando un operador de igualdad que espera un solo registro, de ahí el fallo. Prueba usando:

Código SQL [-]
WHERE gp.id in  (select prefer_valor from prefs where pref_key = 'PRIN')

Saludos

[aikai]

Gracias Lepe, pero no hay duplicidad. Y además, la query va bien en access. Lo he probado aun así y nada.

[The_Avatar]

Falta una coma en el primer Format...