30 replies to this topic

[Delphius]

Bueno, tuve que hacerle unos retoques finales. Parece que 2010 tiene sus cosillas respecto al 2013 con el tema de los corchetes en los JOINS y WHERE. Pero ya quedó.
La consulta final adaptada, para efectivamente recuperar la fecha apropiadamente es no ir por el máximo ID sino de la Fecha.

El monstruo que espero no tener que volver a nunca más en mi vida es:

sql

SELECT TablaExptes.ExpteCod, TablaExptes.ExpteNro, TablaExptes.Descripción, TablaEstadosExpte.Nombre, TablaMovimientosExptes.FechaRevision
FROM TablaEstadosExpte INNER JOIN (TablaExptes INNER JOIN TablaMovimientosExptes ON TablaExptes.[IdExpte] = TablaMovimientosExptes.[ExpteID]) ON TablaEstadosExpte.[IDEstado] = TablaMovimientosExptes.[EstadoID]
 
WHERE TablaMovimientosExptes.[FechaRevision] IN(SELECT MAX(TablaMovimientosExptes.[FechaRevision])
FROM TablaMovimientosExptes
GROUP BY TablaMovimientosExptes.ExpteID;);

Gracias Wilson. Me voy a tener que poner a estudiar y repasar SQL porque estoy por demás oxidado. Es casi un año sin tocar algo siquiera de programación. Mucho tiempo perdido. 

Saludos,

[Wilson]

para efectivamente recuperar la fecha apropiadamente es no ir por el máximo ID sino de la Fecha.

Me alegra que resolviste el problema, yo me incliné por el máximo Id,  pensando en la remota posibilidad de que un expediente sea modificado más de una vez en una misma fecha.

El monstruo que espero no tener que volver a nunca más en mi vida

Si, el generador de consultas de  Access crea los INNER JOIN de una manera un tanto exótica.

Saludos.

[Fenareth]

....

Gracias Wilson. Me voy a tener que poner a estudiar y repasar SQL porque estoy por demás oxidado. Es casi un año sin tocar algo siquiera de programación. Mucho tiempo perdido. 

Saludos,

Y si pudieras olvidarte de Access... mejor ! 

Saludox !

[Delphius]

Y si pudieras olvidarte de Access... mejor ! 

Saludox !

Guarda que Caral está vigilando... 

Es que la actividad a la que se pretende darle uso no merece gastar en más. Además ten en cuenta de que no tengo mis herramientas de trabajo como para desarrollar un sistema como la gente. Si quiere más, que me lo pague... y al paso que vamos... parece ser cada muerte de obizpo. Si se resiste a devolverme lo que con esfuerzo me he ganado estoy decidido a ir a por medios legales e incluso a pedir daños morales y emocionales (que hay que tener cabeza para aguantar un tipo tan detestable). Por que la cosa no da para más. 

Saludos,

[egostar]

....

Gracias Wilson. Me voy a tener que poner a estudiar y repasar SQL porque estoy por demás oxidado. Es casi un año sin tocar algo siquiera de programación. Mucho tiempo perdido. 

Saludos,

Y si pudieras olvidarte de Access... mejor ! 

Saludox !

Y de ZEOS, joderrrrrr, que tengo un mega pedo por culpa de esos putos componentes 

Estoy a punto de quitarlos de una vez 

Saludos

[Fenareth]

....

Gracias Wilson. Me voy a tener que poner a estudiar y repasar SQL porque estoy por demás oxidado. Es casi un año sin tocar algo siquiera de programación. Mucho tiempo perdido. 

Saludos,

Y si pudieras olvidarte de Access... mejor ! 

Saludox !

Y de ZEOS, joderrrrrr, que tengo un mega pedo por culpa de esos putos componentes 

Estoy a punto de quitarlos de una vez 

Saludos

Como dice Nike: JUST DO IT !!! 

Saludox !

[FerCastro]

Y de ZEOS, joderrrrrr, que tengo un mega pedo por culpa de esos putos componentes 

Estoy a punto de quitarlos de una vez 

Saludos

www.devart.com

Saludos e-go!!!

[Delphius]

Y de ZEOS, joderrrrrr, que tengo un mega pedo por culpa de esos putos componentes 

Estoy a punto de quitarlos de una vez 

Saludos

Yo a esos componentes hasta la fecha no tuve que tocarlos.  No escupo tanto para arriba porque ahora que en esta semana, ¡por fin!, me voy a comprar la PC e instale Linux, Lazarus y Firebird no se si usaré los componentes por defecto que tiene o deberé armarme de valor y emplear Zeos.

Ahora, volviendo al hilo... me pregunto si lo des-resuelto o inicio otro  ... Ahora resulta que necesito una consulta con un giro de 160°: Debo obtener aquellos expedientes que no tienen ningún movimientos, o bien (y/o), que no hayan tenido movimientos desde cierta fecha dada por parámetro. 

Como dice la frase, Oh, y ahora quien podrá ayudarme... ¿Wilson el chapulin SQLizado? 

Saludos,

[Wilson]

Debo obtener aquellos expedientes que no tienen ningún movimientos.

Así a ojo porque no tengo access a mano, sería:

SELECT TablaExptes.ExpteCod, TablaExptes.ExpteNro, TablaExptes.Descripción, TablaEstadosExpte.Nombre, TablaMovimientosExptes.FechaRevision

FROM TablaEstadosExpte INNER JOIN (TablaExptes INNER JOIN TablaMovimientosExptes ON TablaExptes.[IdExpte] = TablaMovimientosExptes.[ExpteID]) ON TablaEstadosExpte.[IDEstado] = TablaMovimientosExptes.[EstadoID]

 

WHERE TablaExptes.[IdExpte] NOT IN(SELECT TablaMovimientosExptes.[ExpteID] FROM TablaMovimientosExptes;);

o bien (y/o), que no hayan tenido movimientos desde cierta fecha dada por parámetro.

SELECT TablaExptes.ExpteCod, TablaExptes.ExpteNro, TablaExptes.Descripción, TablaEstadosExpte.Nombre, TablaMovimientosExptes.FechaRevision

FROM TablaEstadosExpte INNER JOIN (TablaExptes INNER JOIN TablaMovimientosExptes ON TablaExptes.[IdExpte] = TablaMovimientosExptes.[ExpteID]) ON TablaEstadosExpte.[IDEstado] = TablaMovimientosExptes.[EstadoID]

 

WHERE TablaExptes.[IdExpte] NOT IN(SELECT TablaMovimientosExptes.[ExpteID] FROM TablaMovimientosExptes WHERE TablaMovimientosExptes.FechaRevision >= [PARAMETRO];);

Saludos.

[Delphius]

Gracias Wilson, 
te agradezco la enorme ayuda que me has dado. En cuanto tenga tiempo de poner a prueba la consulta lo veo. Estuve pensando en como encararla mientras hacía mis trámites del día, y en lo primero que me dije es emplear el NOT IN SELECT tal como en tu ejemplo.

Saludos,

[Wilson]

Gracias Wilson, 
te agradezco la enorme ayuda que me has dado. En cuanto tenga tiempo de poner a prueba la consulta lo veo. Estuve pensando en como encararla mientras hacía mis trámites del día, y en lo primero que me dije es emplear el NOT IN SELECT tal como en tu ejemplo.

Saludos,

Ya con access a la mano veo que hay que hacer pequeños cambios, hay que hacer uso de DISTINCT y prescindir de los campos que generen expedientes repetidos.

SELECT DISTINCT TablaExptes.[IdExpte], TablaExptes.ExpteCod, TablaExptes.ExpteNro, TablaExptes.Descripción 

FROM TablaExptes  INNER JOIN TablaMovimientosExptes ON TablaExptes.[IdExpte] = TablaMovimientosExptes.[ExpteID]

 

WHERE TablaExptes.[IdExpte] NOT IN(SELECT TablaMovimientosExptes.[ExpteID] FROM TablaMovimientosExptes;);

La segunda se puede hacer incluso un poco más eficiente así:

SELECT DISTINCT TablaExptes.[IdExpte], TablaExptes.ExpteCod, TablaExptes.ExpteNro, TablaExptes.Descripción 

FROM TablaExptes  INNER JOIN TablaMovimientosExptes ON TablaExptes.[IdExpte] = TablaMovimientosExptes.[ExpteID]

WHERE  ((Not (TablaMovimientosExptes.FechaRevision)>=[PARAMETRO]));

Si necesitas que en estas consultas aparezcan el último estado y la última fecha de revisión, no hay mas remedio que denormalizar un poco la tabla de expedientes y agregar estos dos campos, e implementar el mecanismo para actualizarlos en función de los cambios en la tabla de movimientos.

Saludos.