Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Ayuda con consulta (https://www.clubdelphi.com/foros/showthread.php?t=80249)

Casimiro Noteví 18-09-2012 23:39:01

Bueno, la fecha si se trata, se pide como parámetros.
Por lo visto es correcta la sentencia y le va bien, tan sólo que no quiere que le salga unos campos, por lo que sólo ha de quitarlo del select.
No sabemos si ya ha quitado esos campos y todo le va bien, ¡¡¡no ha dicho nada todavía!!! :confused:
Lo mismo ya se olvidó de informarnos, punto 13 de la guía de estilo.
Cita:

Concluye con una breve nota sobre la solución

Envía un mensaje tras haber resuelto el problema a todos los que te ayudaron, hazles saber cómo acabó todo y agradéceles de nuevo su ayuda.
La nota no tiene que ser larga ni desarrollada, un sencillo "Pepe - que al final resulta que lo que fallaba era el cable. Gracias a todos. De hecho, un resumen corto y agradable es mejor que una larga disertación a menos que la solución requiera de cierta profundidad técnica.
Además de ser cortés e informativo, esta especie de seguimiento ayuda a todos los que te asistieron a sentir una sensación satisfactoria de cercanía al problema. Ese sentimiento es muy importante para los gurús y expertos a quienes pediste ayuda. Los problemas que acaban sin resolverse resultan frustrantes, todos deseamos verlos resueltos.
El buen karma que aliviar ese picor te hará ganar, te resultará de mucha ayuda la próxima vez que necesites plantear una pregunta.

Salnhack 19-09-2012 00:05:55

Cita:

Empezado por cancun (Mensaje 443510)
Hola


podria ser por que en ningun lado se limita el rango de fechas para la tabla deschojaruta, creo que la consulta seria mas sencilla si a esta tabla tuviera un campo idcarro y ya no seria necesario incluir la tabla hojaruta,

Hola cancun

tambien he analizado y he hecho prueba en mi base de dato agregando el campo idcarro a la tabla deschojaruta, ademas de poner como condicion el rango de fecha de la tabla consumo y establecer como condicion (hojaruta.idcarro=consumo.idcarro)
y ni aun asi obtengo el resultado correcto.:(

Casimiro Noteví 19-09-2012 00:29:44

Cita:

Empezado por Salnhack (Mensaje 443400)
la consulta me tiene que dar asi
Código:

NO.CARRO          SUM(KMRECORRIDO)      SUM(CONSUMO)           
TSA-590                    1136                          510
TSA-455                      400                          150


Cita:

Empezado por Salnhack (Mensaje 443515)
ni aun asi obtengo el resultado correcto.

¿y cual es el resultado que debe salir?

cancun 19-09-2012 00:55:35

Cita:

tambien he analizado y he hecho prueba en mi base de dato agregando el campo idcarro a la tabla deschojaruta, ademas de poner como condicion el rango de fecha de la tabla consumo y establecer como condicion (hojaruta.idcarro=consumo.idcarro)
y ni aun asi obtengo el resultado correcto.
Como comentaba en mi mensaje al poner el campo idcarro en la tabla deschoruta la tabla hojaruta sale sobrando, prueba poniendo en la condicion (carro.idcarro=deschojacarro.idcarro and carro.idcarro=consumo.idcarro) y limita el rango de fechas en las 2 tablas (deschojacarro y consumo)


Saludos

Salnhack 19-09-2012 18:55:58

he probado con esas opciones pero me sigue devolviendo los datos mal.
parece que como estoy sumando datos de tablas diferentes por cada registro en una me suma la otra, me explico

la tabla deschoharuta tiene 5 regsitro y la tabla consumo 3

bueno me suma 3 veses el campo KMrecorrido de la tabla deschojaruta
y
5 veses el campo consumo de la tabla consumo.

sigo buscando y probando condiciones para que me limite este proceso

hoyosfelix 19-09-2012 20:40:02

Respuesta "Ayuda con consulta"
 
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 19-09-2012 20:46:59

ok, dejeme probar y te digo

Salnhack 19-09-2012 20:55:20

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 24-09-2012 19:59:53

Resuelto en Parte
 
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=:pmes');
     ParamByName('pmes').AsString:=suiDBLookupComboBox2.Text;
     Open;
     mes:=FieldByName('idmes').AsInteger;
     Close;
     SQl.Clear;
     SQL.Add('Select * from mes where idmes=:pidmes');
     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 25-09-2012 09:40:39

Cita:

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 25-09-2012 18:33:12

Cita:

Empezado por duilioisola (Mensaje 445269)
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 25-09-2012 21:28:24

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;
     [...]

Salnhack 25-09-2012 21:37:19

hola duilioisola
Las consultas lo que hacen es crear tablas virtuales(consultas) en el gestor de base de datos(ACCESS) y lo que hago es cargar en el reporte esta consulta como si fuera un tabla, si paso parametros entonces la consultas se crean no con los datos que paso si no que piden parametros.

no se si me entiendes


La franja horaria es GMT +2. Ahora son las 03:36:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi