Consulta SQL a access entre 2 fechas

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

[Casimiro Noteví]

¿Has comprobado que hay datos válidos en la BD para que devuelva valores?

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

[olbeup]

Casimiro notevi, sé cómo se utilizan los alias, las SQL's que ha puesto el compañero no las utiliza para nada, en access y en cualquier base de datos se utilizan los alias siempre y cuando al menos un campo estén en ambas DB, internamente el MS Access no utiliza alias sino las pones utiliza el nombre de la base de datos seguida del campo.

Si abres el programa MS Access y construyes una SQL sin alias y la ejecutas y después quieres ver la SQL, vera que MS Access te ha añadido el nombre de la base de datos y luego el campo.

Si quieres utilizar los alias aunque no los utilices, OK, pero es un gasto innecesario para mi.

Un saludo.