Sumar un campo de una tabla relacionada con otras dos

[Delphitest]

Buenas tardes,

a ver si consigo explicar mi duda...

Trabajo con delphi XE5, ADO y Access

Tengo tres tablas: Operaciones, Fincas y Seguros

Una operación puede tener varias fincas y cada finca varios seguros.

Para relacionarlas tengo en Operaciones un campo IDOperacion, en Fincas un campo IDOperacion (por lo que puedo tener varias fincas con el mismo IDOperacion) y un IDFinca que identifica la finca, y la tabla Seguros tiene un IDFinca con animo de que una misma finca pueda tener varios seguros.

A nivel de formularios lo tengo hecho con relaciones y funciona bien.

Mi duda es que quiero crear una consulta que me sume el campo que se llama Importe de la tabla seguros para que me diga la suma los importes de los seguros de las fincas de una operación.

Si solo fuesen dos tablas sabría mas o menos hacerlo pero con las 3 no doy con ello.

No se si lo explicado bien, es pero que se entienda.

Gracias por vuestro tiempo

[ecfisa]

Hola Delphitest.

Código SQL [-]
SELECT SUM( SE.IMPORTE )
FROM SEGUROS SE
INNER JOIN FINCAS FI ON SE.IDFINCA = FI.IDFINCA
INNER JOIN OPERACIONES OP ON FI.IDOPERACION = OP.IDOPERACION
AND OP.IDOPERACION = :OPER_ID

Saludos

[Casimiro Notevi]

Un tutorial de SQL no vendrá mal

[Delphitest]

Muchas gracias,

así da gusto, la solución y un manual de apoyo

He sufrido un poco con los paréntesis pero al final funciona perfectamente, ha tenido que quedar así:

Código SQL [-]
SELECT SUM( SE.IMPORTE ) as totalimporte
FROM (SEGUROS SE
INNER JOIN FINCAS FI ON SE.IDFINCA = FI.IDFINCA)
INNER JOIN OPERACIONES OP ON (FI.IDOPERACION = OP.IDOPERACION and OP.IDOPERACION = :OPER_ID)

Gracias por vuestra ayuda

[Casimiro Notevi]

Empezado por Delphitest

He sufrido un poco con los paréntesis

Pues no sufras, porque no hacen falta.
En todo caso, déjalos, pero el primero está mal.

Tu código quedaría así:

Código SQL [-]
select sum(se.importe) as totalimporte
from seguros se
inner join fincas fi on (se.idfinca=fi.idfinca)
inner join operaciones op on (fi.idoperacion=op.idoperacion and op.idoperacion= :Oper_id)

[Delphitest]

Si lo pongo como dices da un error de sintaxis.

Tanto desde delphi como desde el sql de access.

La verdad es que tiene mas sentido como lo pones pero a base de probar y colocándolo donde digo en el ejemplo sí que funciona.

Pantallazo

[Casimiro Notevi]

En fin, las manías de microsoft por hacer las cosas no estandar

[[Lepe]]

En la captura sí falta un paréntesis cerrado al final. Hay que darse un paseo de vez en cuando para refrescar los ojitos... a todos nos pasa )

[Casimiro Notevi]

Empezado por Lepe

En la captura sí falta un paréntesis cerrado al final. Hay que darse un paseo de vez en cuando para refrescar los ojitos... a todos nos pasa )

Cierto, ya me extrañaba, es que no tiene sentido esos paréntesis.