Consulta SQL a access entre 2 fechas

[juanma92]

Y como hago para consultar en una y luego en otra? Si en delphi desp necesito comunicar a un dbgrid? Por eso lo hacia todo en una consulta

[juanma92]

Hola olbeup, sisi lo vi, y lo hice asi y me salio. Gracias. Ahora en esta quise hacer algo parecido agregando parametros a cada una de las subconsultas y un parametro mas en el where. Pero no me devuelve nada

[Casimiro Noteví]

Empezado por juanma92

Y como hago para consultar en una y luego en otra? Si en delphi desp necesito comunicar a un dbgrid? Por eso lo hacia todo en una consulta

Ah, bien, entonces creo que el problema es que hay que tener muy claro el concepto, a ver si lo he entendido: un cliente pide una habitación (o reserva) para entrar el 05.12.2012 y salir el 09.12.2012
Entonces hay que comprobar que tanto en reservadas como en ocupadas no estén entre esas fechas, bien.
Pienso que en lugar de buscar las ocupadas en esas fechas, hay que buscar las libres, por ejemplo, todas las que la fechaingreso sea mayor (¿o igual?) que la fecha salida de reservas/ocupadas serán válidas.
Y por el mismo motivo, todas las que fechasalida sea menor (¿o igual?) que fechaentrada de reservas/ocupadas también serán válidas.
Por supuesto, se supone que se controla que las fechas dadas por el cliente son correctas, fechaentrada < fechasalida

Suponemos que las fechas que ha pedido el cliente están en las variables de fecha: desdefecha, hastafecha

Código SQL [-]
select h.nrohabitacion
from habitaciones h
where h.habitacion not in (select r.idhabitacion
                           from clientereservahabitacion r
                           where r.fechasalida <= :desdefecha
                           or    r.fechaentrada >= :hastafecha)
and h.habitacion   not in (select o.idhabitacion
                           from clienteocupahabitacion o
                           where o.fechasalida <= :desdefecha
                           or    o.fechaentrada >= :hastafecha)
order by h.nrohabitacion

Creo que es eso lo que quieres.

[Casimiro Noteví]

Creo que no, que tampoco es así.

[juanma92]

Claro, es algo asi, pero en la tabla reservas y ocupadas yo tengo solo habitaciones en uso, es decir que yo tengo que listar todas las habitaciones de la tabla Habitaciones, que no esten en las tablas Reservas o en ocupadas entre las fechas que me da y ademas que sean del tipo que me pide. Se entiende?

[Casimiro Noteví]

Bien, pues le añades el tipo

Código SQL [-]
select h.nrohabitacion
from habitaciones h
where h.idtipo = :tipo
and h.habitacion not in (select r.idhabitacion
                         from clientereservahabitacion r
                         where r.fechasalida <= :desdefecha
                         or    r.fechaentrada >= :hastafecha)
and h.habitacion not in (select o.idhabitacion
                         from clienteocupahabitacion o
                         where o.fechasalida <= :desdefecha
                         or    o.fechaentrada >= :hastafecha)
order by h.nrohabitacion

[juanma92]

Bueno, voy a probar, pero algo asi lo tenia. Gracias. Te aviso

[juanma92]

Puse la consulta como me dijiste:

Código SQL [-]
Select H.NroHabitacion,H.IdTipo,H.idHabitacion
From Habitaciones H
Where H.IdTipo = :tipo
and (H.IdHabitacion not in (Select R.IdHabitacion
                         From ClienteReservaHabitacion R
                         Where R.FechaSalida <= :desdefecha
                         or    R.FechaIngreso >= :hastafecha)
or H.IdHabitacion not in (Select O.IdHabitacion
                         From ClienteOcupaHabitacion O
                         Where O.FechaSalida <= :desdefecha
                         or    O.FechaIngreso >= :hastafecha)
)
Order By H.NroHabitacion

Y sigue sin andar, no me devuelve nada.... Nose donde ppuede estar el problema, porque probe las subconsultas por separado, y todas andan, ahora bien cuando las junto no me devuelve nada :/ Te mando como les paso los parametros:

Código Delphi [-]
 dm.ConNuevaReserva.Close;
    dm.ConNuevaReserva.Parameters.ParamByName('tipo').Value :=
      DBLookupComboBox1.KeyValue;
    dm.ConNuevaReserva.Parameters.ParamByName('desdefecha').Value :=
      DateTimePicker1.Date;
    dm.ConNuevaReserva.Parameters.ParamByName('hastafecha').Value :=
      DateTimePicker2.Date;

[olbeup]

Pues eso le dije yo que habilitara la SQL que le puse y también ¿para que quieres los alias si no los vas a utilizar?

Un saludo.

[Casimiro Noteví]

Empezado por olbeup

¿para que quieres los alias si no los vas a utilizar?

Los alias (desconozco access) sirven para que no exista confusión con los nombres de los campos de distintas tablas, tanto para el sistema como para nosotros mismos. En otros sistemas (desconozco access) es imprescindible cuando se realiza una sentencia donde intervienen más de una tabla, incluso obligatorio en algunos casos.
Además de que queda más claro para nosotros.