y en cuento a los resultados de la sentencia, me devuelve el mismo resultado que en mi consulta inicial, lo que hemos hecho no es mas que convertir mi consulta utilizando INNER JOIN.

A ver, la pregunta exacta es:
ahora vuelvo... :)

Respuesta "Ayuda con consulta"
 

Hola, buen día.

Esta consulta preparada en el diseñador de consulta del Access está probada y funciona; hecha de acuerdo a las especificaciones de la tabla dada en el primer mensaje de este tema.

La tarea final es implementarlo en el Delphi.

Insisto en que el form se coloquen 2 componentes TDateTimePicker o similar; en todo caso pueda pasar la fecha en formato que Access reconozca.

Código SQL [-]
SELECT C.IDCARRO, C.NOCARRO, C.indececons, Sum(DHR.KMRECORRIDO) AS SumaDeKMRECORRIDO, Sum(CO.CONSUMO) AS SumaDeCONSUMO
FROM CARRO AS C, HOJARUTA AS HR, DESCHOJARUTA AS DHR, CONSUMO AS CO
WHERE (((CO.FECHA) Between [:FECHA1] And [:FECHA2])
  AND  HR.IDCARRO = C.IDCARRO
  AND DHR.IDHOJARUTA = HR.IDHOJARUTA 
  AND CO.IDCARRO = C.IDCARRO)
  
GROUP BY C.IDCARRO, C.NOCARRO, C.indececons
ORDER BY C.IDCARRO;

Espero que sea de ayuda.

Saludos.

He probado la consulta en access se ejecuta sin ningun error aunque no me devuelve ningun valor , pero cuando la ejecuto desde el delphi me tira un error que dice ('Pocos Parametros. se esperaba 3.')

Evidentemente algo está mal en tu código delphi.

Respuesta "Ayuda con consulta"
 

Hola,

Entiendo que ya ejecutaste la última consulta SQL que te envié.

Al probar en el SQL Vista SQL del Access te tiene que pedir 2 parámetros; el primer parámetro sería :FECHA1 y el segundo :FECHA2.

Si no da error y no trae nada quiere decir que no se tiene datos en la base de datos; si ese es el caso inserta algunos datos en todas las tablas involucradas CARRO, CONSUMO, HOJARUTA, DESCHOJARUTA.

En el Delphi tiene que pedir esos 2 parámetros mencionados y lo que se debe hacer es pasarle de manera correcta esas 2 fechas y debería funcionar.

Saludos.

los parametros de fecha se le pasan correctamente, pero me fije que cuendo corro la consulta en ACCESS me pide como parametro el C.indececons quisas ese sea el problema.

Los parámetros son los que tienen los dos puntos delante:

Código SQL [-]
[:FECHA1] And [:FECHA2])

Por lo que si te pide eso como parámetro, es que le has puesto dos puntos.

desde delphi esta correcto el pase de los parametros FECHA1 y FECHA2, pero en la misma estructura de la sentencia SQL cuando la corro en ACCESS me pide como parametro c.indicecons que quisas al no asignarlo desde delphi ese sea el problema.

y entonces se crearia otro problem pues la consulta solo me puede pedir como parametro las fecha.

en cuanto a lo que decia hoyosfelix en el form lo que se escoge es el mes el cual lleba implisito el rago de fecha.

Respuesta "Ayuda con consulta"
 

Hola, ya me fije en ese detalle del Access.

Es raro el comportamiento del Access, no debería pedir el parámetro C.indicecons.

Probá de esta manera:

Código SQL [-]
SELECT C.idcarro, C.nocarro, C.indececons, Sum(DHR.kmrecorrido) AS SumaDeKMRECORRIDO, Sum(CO.consumo) AS SumaDeCONSUMO
FROM carro AS C, hojaruta AS HR, deschojaruta AS DHR, consumo AS CO
WHERE (((CO.fecha) Between [:FECHA1] And [:FECHA2]) AND ((HR.idcarro)=[C].[idcarro]) AND ((DHR.idhojaruta)=[HR].[idhojaruta]) AND ((CO.idcarro)=[C].[idcarro]))
GROUP BY C.idcarro, C.nocarro, C.indececons
ORDER BY C.idcarro;

Saludos...

Se va a resistir bastante la consultita esa :(.

¿Has probado a quitar C.indececons, a ver qué mensaje sale?

Y, ¿no habrá manera de tener una copia reducida de la base para hacer pruebas? Digo, una copia con pocos datos pero con todas las tablas involucradas.

// Saludos

Respuesta "Ayuda con consulta"
 

Cierto, en la descripción original de campos dice indicecons. ¡Buena vista! :) Lo raro es que Access marque ese error de parámetro en lugar de dicer que no reconoce ese identificador o campo.

// Saludos

Es para ponernos a prueba :o:)

tenian razon el error era c.indececons por c.indicecons,
probe y me sigue dando los datos erroneos como al principio
adjunto un estracto de mi base de dato

Respuesta "Ayuda con consulta"
 

Hola,

Bajé la BD y ejecuté! la consulta en Access, en el Diseñador de consultas SQL....y me trae el siguiente resultado:

Consulta1 idcarro nocarro indicecons SumaDeKMRECORRIDO SumaDeCONSUMO 15 TSA-590 10 4544 1550 16 TSD-455 4 800 150
Es decir, que tu base de datos efectivamente tiene datos...la consulta me funcionó a mí sin tantas modificaciones, excepto que corregí el campo C.indicecons en el SELECT y en el GROUP BY...

Favor aclarar si el error es en el Access o en Delphi?

Saludos...

hola hoyosfelix, la consulta lo mismo en access que en delphi se ejecuta bien, el problema es que no devuelve los resultados correctamente, la consulta me tiene que dar asi

Respuesta "Ayuda con consulta"
 

Buen día,

Eso es fácil. Quitar del SELECT los campos que no se necesiten, lo mismo que del GROUP BY.

Te dejo como tarea, para que fijes la idea.

Ya estamos cerca de la respuesta, el próximo post tiene que ser para avisar que ya encontraste la solución.

Saludos.

Hola


He estado siguiendo este hilo desde que empezó, no contesté por que mo encontré la manera de obtener el resultado que se quiere (estoy verde en SQL) pero quería ver como se resolvía, al parecer la sentencia que se ha logrado formar hasta ahora no da el resultado segun el compañero y 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, bueno a lo mejor estoy mal y espero que pronto se obtenga la sentencia correcta.


Saludos

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.

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.:(

¿y cual es el resultado que debe salir?

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

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

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.

ok, dejeme probar y te digo

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

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???

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

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

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