Ayuda con consulta

[hoyosfelix]

Buena tarde,

La consulta anterior que había enviado realmente devuelven datos, pero mal.

Me gustaría que pruebes lo siguiente en Access:

1º Crear una consulta llamada TTLCON con la siguiente SQL, para el total de consumo:

Código SQL [-]
SELECT carro.idcarro, Sum(CON.consumo) AS SumaDeconsumo
FROM carro INNER JOIN CONSUMO AS CON ON carro.idcarro = CON.idcarro
GROUP BY carro.idcarro;

2º Crear una consulta llamada TTLKM con la siguiente SQL, esto para el total kilómetros recorridos:

Código SQL [-]
SELECT carro.idcarro, Sum(DHR.Kmrecorrido) AS SumaDeKmrecorrido
FROM carro INNER JOIN (DESCHOJARUTA AS DHR INNER JOIN HOJARUTA AS HR ON DHR.IDHOJARUTA = HR.IDHOJARUTA) ON carro.idcarro = HR.idcarro
GROUP BY carro.idcarro;

3º Crear otra consulta llamada KM_CON con la siguiente SQL, esto para unir las 2 anteriores:

Código SQL [-]
SELECT carro.idcarro, Sum(TTLKM.SumaDeKmrecorrido) AS SumaDeSumaDeKmrecorrido, Sum(TTLCON.SumaDeconsumo) AS SumaDeSumaDeconsumo
FROM (TTLCON INNER JOIN carro ON TTLCON.idcarro = carro.idcarro) INNER JOIN TTLKM ON carro.idcarro = TTLKM.idcarro
GROUP BY carro.idcarro
ORDER BY carro.idcarro;

La 3º SQL es la que traerá la respuesta correcta, luego habría que probar cómo se resuelve en Delphi.

Esto es manteniendo la estructura de tu base de datos anterior.

Saludos.

[Salnhack]

ok, dejeme probar y te digo

[Salnhack]

ok, de esa forma me devuelve los datos correctos, ahora solo es buscar la forma de implementarla desde el delphi.
Ya tenemos un paso de avance, ahora es como implementarla en delphi?.
mil gracias

[Salnhack]

Hola a todos

He implementado el codigo en delphi me quedaria asi

Código Delphi [-]
with datamodule29.Query2 do
    Begin
     CLose;
     SQl.Clear;
     SQL.Add('Drop TABLE TTLCON, TTLKM, KM_CON ');
     ExecSQL;
     Close;
     SQl.Clear;
     SQL.Add('Select idmes from mes where mes=mes');
     ParamByName('pmes').AsString:=suiDBLookupComboBox2.Text;
     Open;
     mes:=FieldByName('idmes').AsInteger;
     Close;
     SQl.Clear;
     SQL.Add('Select * from mes where idmes=idmes');
     ParamByName('pidmes').AsInteger:=mes;
     Open;
     inicio:=FieldByName('inicio').AsString;
     fin:=FieldByName('fin').AsString;
     Close;
     SQL.Clear;
     SQL.Add('CREATE VIEW TTLCON AS SELECT carro.idcarro, Sum(CON.consumo) AS SumaDeconsumo');
     SQL.Add('FROM carro INNER JOIN CONSUMO AS CON ON carro.idcarro = CON.idcarro');
     SQL.Add('WHERE (((CON.fecha) Between #'+ inicio + '# And #'+ fin + '#))');
     SQL.Add('GROUP BY carro.idcarro');
     ExecSQL;
     Close;
     SQL.Clear;
     SQL.Add('CREATE VIEW TTLKM AS SELECT carro.idcarro, Sum(DHR.Kmrecorrido) AS SumaDeKmrecorrido');
     SQL.Add('FROM (carro INNER JOIN HOJARUTA AS HR ON carro.idcarro = HR.idcarro) INNER JOIN DESCHOJARUTA AS DHR ON HR.idhojaruta = DHR.idhojaruta');
     SQL.Add('WHERE (((DHR.fecha) Between #'+ inicio + '# And #'+ fin + '#))');
     SQL.Add('GROUP BY carro.idcarro');
     ExecSQL;
     Close;
     SQL.Clear;
     SQL.Add('CREATE VIEW KM_CON AS SELECT carro.idcarro, Sum(TTLKM.SumaDeKmrecorrido) AS SumaDeSumaDeKmrecorrido, Sum(TTLCON.SumaDeconsumo) AS SumaDeSumaDeconsumo, carro.nocarro,
 carro.indicecons');
     SQL.Add('FROM (TTLCON INNER JOIN carro ON TTLCON.idcarro = carro.idcarro) INNER JOIN TTLKM ON carro.idcarro = TTLKM.idcarro');
     SQL.Add('GROUP BY carro.idcarro, carro.nocarro, carro.indicecons');
     SQL.Add('ORDER BY carro.idcarro;');
     ExecSQL;
    end;

el problema ahora es que cuanto le paso los parametros de fecha en access

Código SQL [-]
SELECT carro.idcarro, Sum(DHR.Kmrecorrido) AS SumaDeKmrecorrido
FROM (carro INNER JOIN HOJARUTA AS HR ON carro.idcarro = HR.idcarro) INNER JOIN DESCHOJARUTA AS DHR ON HR.idhojaruta = DHR.idhojaruta
WHERE (((DHR.fecha) Between #1/2/2012# And #2/29/2012#))
GROUP BY carro.idcarro;

en ves de

Código SQL [-]
SELECT carro.idcarro, Sum(DHR.Kmrecorrido) AS SumaDeKmrecorrido
FROM (carro INNER JOIN HOJARUTA AS HR ON carro.idcarro = HR.idcarro) INNER JOIN DESCHOJARUTA AS DHR ON HR.idhojaruta = DHR.idhojaruta
WHERE (((DHR.fecha) Between #1/2/2012# And #29/2/2012#))
GROUP BY carro.idcarro;

es decir que lo coje en ves de DD/MM/YYYY asi MM/DD/YYYY

Alguna solucion???

[[duilioisola]]

es decir que lo coje en ves de DD/MM/YYYY asi MM/DD/YYYY
Alguna solucion???

Utiliza parámetros:

Código Delphi [-]
     [...]
     SQL.Add('WHERE ((DHR.fecha) Between :inicio And :fin )');
     SQL.Add('GROUP BY carro.idcarro');
     ParamByName('INICIO').AsString:=inicio;
     ParamByName('FIN').AsString:=fin;
     ExecSQL;
     [...]

[Salnhack]

Empezado por duilioisola

Utiliza parámetros:
Código Delphi [-] [...] SQL.Add('WHERE ((DHR.fecha) Between :inicio And :fin )'); SQL.Add('GROUP BY carro.idcarro'); ParamByName('INICIO').AsString:=inicio; ParamByName('FIN').AsString:=fin; ExecSQL; [...]

como primero lo hice fue pasando parametros pero entonces no me funciona, como unico pude lograr que funcionara es asi

[[duilioisola]]

Perdona, me equivoqué en el tipo de parámetro

Código Delphi [-]
     [...]
     SQL.Add('WHERE ((DHR.fecha) Between :inicio And :fin )');
     SQL.Add('GROUP BY carro.idcarro');
     ParamByName('INICIO').AsDateTime := inicio;
     ParamByName('FIN').AsDateTime := fin;
     ExecSQL;
     [...]