Discussion :

[Julie123456]

Bonjour/Bonsoir à tous,
Je suis nouvelle sur le forum et dans le vaste univers des développeurs et je cherche à créer une application de gestion de location de Segways/Gyropodes.
Pour cela il faut que je puisse gérer la disponibilité de la réservation (avec comme paramètre les circuits, créneaux horaires, la date, ...), j'ai réussi cette requête.
Il faut aussi faire la même chose pour les guides avec comme paramètre supplémentaire la langue parlée par les clients.
Et pour finir sur les requêtes de disponibilité, celle des segways/gyropodes.

Pour celle la j'ai besoin d'utiliser les paramètres suivants :
Le circuit (il y en a 4, 2 circuits par catégorie de segway, j'ai entré les catégories de segway dans la table circuits)
Le créneau
La date

Je cherche en vain depuis quelques jours déjà, je vous remercie d'avance pour votre aide !
Bonne journée/soirée à tous

[User]

Bonjour,

Pouvez-vous poster le code SQL de votre requête ?

A priori, il faut simplement placer les paramètres sur les champs respectifs.

Cdlt,

[Julie123456]

Je n'ai pas de code à vous fournir car tous ceux que j'ai tenté étaient totalement faux, je suis vraiment perdue
La seule info supplémentaire qui peux vous être utile selon moi est le fait qu'il y ait une CIM entre segway et réservation (Rouler)

[User]

Il y a un tutoriel sur le thème de la gestion de la disponibilité du matériel.

Cdlt

[User]

Quelles sont vos tables ?

[Julie123456]

Je vous remercie pour le lien je vais le consulter immédiatement.

Les tables qui peuvent concerner cette requête sont :
Reservation
Creneau
Circuit
Rouler
Segway
Categorie Segway

[Julie123456]

Concrètement j'ai besoin de pouvoir définir la fin de la location
Dans mon application 1 réservation est faite sur un créneau, il y a deux créneaux disponibles par jour, un le matin et un l'après-midi
Je pense que cela est indispensable pour que ma requête fonctionne
D'autre par contrairement à la requête :
Qte: -[R_Location].[Qte]*([DateCalendrier] Entre [Debut_Loc] Et [Fin_Loc])

qui nous donne le nombre de matériels disponibles je souhaite connaître les matériels qui le sont, avec leurs code pour pouvoir les affecter à la réservation en question

Je ne sais pas si ces informations vous permettent d'y voir un peu plus clair...
Merci

[User]

Oui, ça me semble clair, je reviens vers vous avec des éléments qui vous permettrons d'avancer...

à+

[User]

Rebonjour,

Donc, la 1ère idée qui vient quand on veut connaître la disponibilité du matériel, c'est de savoir quand ou sur quelle période.

1/
Dans le cas général on a donc besoin de connaître dans une 1ère requête "R_ReservationSegway" le matériel réservé pour cette période.

Cette requête pourrait ressembler à ça :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
PARAMETERS [Debut] DateTime, [Fin] DateTime;
SELECT Reservation.CodeReservation, Reservation.NbPersReserv, Reservation.DateUtilisation, Reservation.CodeCircuit, Circuit.LibCircuit, Creneau.CodeCreneau, Creneau.HeureCreneau, Segway.CodeSegway, Segway.ModeleSegway
FROM ((Creneau INNER JOIN (Circuit INNER JOIN Reservation ON Circuit.CodeCircuit = Reservation.CodeCircuit) ON Creneau.CodeCreneau = Reservation.CodeCreneau) INNER JOIN Rouler ON Reservation.CodeReservation = Rouler.CodeReservation) INNER JOIN Segway ON Rouler.CodeSegway = Segway.CodeSegway
WHERE (((Reservation.DateUtilisation) Between [Debut] And [Fin]));

Où [Debut] et [Fin] sont les paramètres définissant ma période de recherche.

2/
Maintenant, on a besoin de comparer cette 1ère requête au calendrier des jours compris entre [Debut] et [Fin] :
Dans ce cas, soit on génère les jours en VBA, soit on utilise une table d'indices pour générer ce calendrier dans une requête "R_Calendrier" :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
PARAMETERS [Debut] DateTime, [Fin] DateTime;
SELECT T_IndiceCalendrier.IndJour, [Debut]+[IndJour]-1 AS Jour
FROM T_IndiceCalendrier
WHERE ((([Debut]+[IndJour]-1)<=[Fin]));

La table d'indices T_IndiceCalendrier (IndJour) comprend les indices de 1 à 62...pour 62 jours...

3/
Maintenant il nous faut réaliser un produit cartésien entre le calendrier, les créneaux et les Segway, pour avoir tous les cas possibles sur cette période ("R_CalendrierCreneauSegway"):

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT R_Calendrier.IndJour, R_Calendrier.Jour, Creneau.CodeCreneau, Creneau.HeureCreneau, Segway.CodeSegway, Segway.ModeleSegway
FROM R_Calendrier, Creneau, Segway
ORDER BY R_Calendrier.Jour, Creneau.HeureCreneau DESC;

4/
Enfin, On utilise un Left Join entre la requête 3 et la requête 1, sur les champs Jour, CodeCreneau, CodeSegway pour ne gardez que les segway avec les jours et créneaux disponibles et donc non présents dans les réservations :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT R_CalendrierCreneauSegway.IndJour, R_CalendrierCreneauSegway.Jour, R_CalendrierCreneauSegway.CodeCreneau, R_CalendrierCreneauSegway.HeureCreneau, R_CalendrierCreneauSegway.CodeSegway, R_CalendrierCreneauSegway.ModeleSegway
FROM R_CalendrierCreneauSegway LEFT JOIN R_ReservationSegway ON (R_CalendrierCreneauSegway.CodeCreneau = R_ReservationSegway.CodeCreneau) AND (R_CalendrierCreneauSegway.CodeSegway = R_ReservationSegway.CodeSegway) AND (R_CalendrierCreneauSegway.Jour = R_ReservationSegway.DateUtilisation)
WHERE (((R_ReservationSegway.CodeReservation) Is Null));

à+
...

[Julie123456]

Je vous remercie beaucoup !!!

Cependant j'ai plusieurs incompréhensions

Pourquoi faut-il 62 jours ?
Comment est-il possible que la requête finale ne demande aucun paramètre sur le circuit, le créneau ?
A quoi dois-je relier la table T_Indice_Calendrier ?

Merci encore

[User]

Dans ce cas pas besoin de table d'indices :

La requête "R_ReservationSegway" pour les réservations avec les 3 paramètres :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
PARAMETERS [ParamJour] DateTime, [ParamCircuit] Text ( 255 ), [ParamCreneau] Text ( 255 );
SELECT Reservation.CodeReservation, Reservation.NbPersReserv, Reservation.DateUtilisation, Reservation.CodeCircuit, Circuit.LibCircuit, Creneau.CodeCreneau, Creneau.HeureCreneau, Segway.CodeSegway, Segway.ModeleSegway
FROM ((Creneau INNER JOIN (Circuit INNER JOIN Reservation ON Circuit.CodeCircuit = Reservation.CodeCircuit) ON Creneau.CodeCreneau = Reservation.CodeCreneau) INNER JOIN Rouler ON Reservation.CodeReservation = Rouler.CodeReservation) INNER JOIN Segway ON Rouler.CodeSegway = Segway.CodeSegway
WHERE (((Reservation.DateUtilisation)=[ParamJour]) AND ((Circuit.LibCircuit)=[ParamCircuit]) AND ((Creneau.HeureCreneau)=[ParamCreneau]));

Et la requête pour les disponibilités, c'est à dire le complément :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT Segway.CodeSegway, Segway.ModeleSegway
FROM Segway LEFT JOIN R_ReservationSegway ON Segway.CodeSegway = R_ReservationSegway.CodeSegway
WHERE (((R_ReservationSegway.CodeReservation) Is Null));

Cdlt,

[Julie123456]

La requête ne fonctionne pas, elle ne prend pas en compte les segways déjà utilisés. J'ai du mal à la comprendre vu sa complexité.

Je m'excuse de vous déranger à nouveau et je vous remercie une nouvelle fois

[User]

En fait c'est le paramètre ParamCircuit qui fausse le résultat, il faut le ramener dans la requête 2...
à+

[Julie123456]

La durée du circuit = la durée du créneau donc je ne pense pas que ce soit utile

[User]

Quand vous choisissez un circuit, pour un jour et un créneau (via les paramètres), en fait vous souhaitez connaître les Segway dispos pour ce jour, ce créneau et ce circuit via la catégorie,

Donc la requête 1 sans le paramètre circuit :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
PARAMETERS [ParamJour] DateTime, [ParamCreneau] Text ( 255 );
SELECT Reservation.CodeReservation, Reservation.NbPersReserv, Reservation.DateUtilisation, Reservation.CodeCircuit, Circuit.LibCircuit, Creneau.CodeCreneau, Creneau.HeureCreneau, Segway.CodeSegway, Segway.ModeleSegway
FROM ((Creneau INNER JOIN (Circuit INNER JOIN Reservation ON Circuit.CodeCircuit = Reservation.CodeCircuit) ON Creneau.CodeCreneau = Reservation.CodeCreneau) INNER JOIN Rouler ON Reservation.CodeReservation = Rouler.CodeReservation) INNER JOIN Segway ON Rouler.CodeSegway = Segway.CodeSegway
WHERE (((Reservation.DateUtilisation)=[ParamJour]) AND ((Creneau.HeureCreneau)=[ParamCreneau]));

Une requête intermédiaire pour connaître les Sebway de ce circuit :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT Segway.CodeSegway, Segway.ModeleSegway, Circuit.CodeCategorieSeg, Circuit.LibCircuit
FROM Circuit INNER JOIN (Segway INNER JOIN CategorieSegway ON Segway.CodeCategorieSeg = CategorieSegway.CodeCategorie) ON Circuit.CodeCategorieSeg = CategorieSegway.CodeCategorie
WHERE (((Circuit.LibCircuit)=[ParamCircuit]));

Et enfin, la requête avec le left join sur les 2 1ères requêtes :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT R_SegwayCircuit.CodeSegway, R_SegwayCircuit.ModeleSegway
FROM R_SegwayCircuit LEFT JOIN R_ReservationSegway ON R_SegwayCircuit.CodeSegway = R_ReservationSegway.CodeSegway
WHERE (((R_ReservationSegway.CodeReservation) Is Null));

...

[Julie123456]

Ça me paraissait plus clair mais la requête ne me fait rien ressortir du tout ...

[User]

ça doit venir du paramètre "ParamCircuit".

Avez-vous essayé d'ouvrir seulement la requête "R_SegwayCircuit" avec votre paramètre circuit ?

à+

[Julie123456]

Bonjour,

Cela ne fonctionne pas et en changeant "ParamCircuit" par CodeCircuit non plus

Rien ne s'affiche comme résultat final

[User]

Bonjour,

Pouvez-vous poster le SQL des 3 requêtes telles que vous les avez modifiées ?

Cdlt,

[Julie123456]

Bonjour, les voici :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
PARAMETERS [ParamJour] DateTime, [ParamCreneau] Text ( 255 );
SELECT Reservation.CodeReservation, Reservation.NbPersReserv, Reservation.DateUtilisation, Reservation.CodeCircuit, Circuit.LibCircuit, Creneau.CodeCreneau, Creneau.HeureCreneau, Segway.CodeSegway, Segway.ModeleSegway
FROM ((Creneau INNER JOIN (Circuit INNER JOIN Reservation ON Circuit.CodeCircuit = Reservation.CodeCircuit) ON Creneau.CodeCreneau = Reservation.CodeCreneau) INNER JOIN Rouler ON Reservation.CodeReservation = Rouler.CodeReservation) INNER JOIN Segway ON Rouler.CodeSegway = Segway.CodeSegway
WHERE (((Reservation.DateUtilisation)=[ParamJour]) AND ((Creneau.HeureCreneau)=[ParamCreneau]));

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT Segway.CodeSegway, Segway.ModeleSegway, Circuit.CodeCategorieSeg, Circuit.LibCircuit
FROM Circuit INNER JOIN (Segway INNER JOIN CategorieSegway ON Segway.CodeCategorieSeg = CategorieSegway.CodeCategorieSeg) ON Circuit.CodeCategorieSeg = CategorieSegway.CodeCategorieSeg
WHERE (((Circuit.LibCircuit)=[ParamCircuit]));

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT R_SegwayCircuit.CodeSegway, R_SegwayCircuit.ModeleSegway
FROM R_SegwayCircuit LEFT JOIN R_ReservationSegway ON R_SegwayCircuit.CodeSegway = R_ReservationSegway.CodeSegway
WHERE (((R_ReservationSegway.CodeReservation) Is Null));