WDForge.org - Forums

Re: Besoin d'aide Requêtes

Sujet: Re: Besoin d'aide Requêtes
par drcharly93 sur 3/1/2005 1:11:28

Bonjour,

Je pense que la conception de votre analyse n'est pas correcte car vous saisissez plusieurs fois le même client dans le fichier Client ce qui me parrait illogique et contraire à une base de données relationnelle.

Sur la base de l'analyse de Julianne sur la création d'un fichier de liaison, Vous auriez un fichier client qui ne contiendrait que des clients uniques.

Ainsi le fichier LIENCLIENT contiendrait les liens de relation entre le fichier Client et le fichier Association.

Cette analyse pose un problème si les données sont déjà saisies, c'estla création de moulinette pour alimenter le fichier LienClient et modifier le fichier Client.

Bien que cela me semble plus que nécessaire, vous pouvez vous en sortir en l'état actuelle de votre analyse en utilisant les requête suivantes:

Sql = "SELECT Client.NOM AS Nom, 
Client.PRENOM AS Prenom,
Client.CodePostal As CP
FROM Client 
GROUP BY Client.NOM, Client.PRENOM, Client.CodePostal
HAVING IdAssociation <> 0"

Cette requête renvoie distinctement tous les Nom+Prenom+codePostal qui ont au moins 1 association.

Pour récupérer distinctement tous les Nom+Prenom+CodePostal du fichier Client il suffit :

Sql = "SELECT NOM AS Nom,
PRENOM AS Prenom,
CodePostal AS CP
FROM Client 
GROUP BY Client.NOM, Client.PRENOM, Client.CodePostal"

Cette requête renvoi tous les Nom+Prenom+CodePostal distinct du fichier Client.

Exécution de la requête

Rs est une source de données
Sql est une chaine

Sql = <Défini ci dessus>

SI Pas HExecuteRequeteSql(Rs,HRequeteDefaut,Sql) Alors
 Erreur(HErreurInfo)
 Retour
Fin
TraceDébut()
HLitPremier(Rs)
TantQue Pas HEndehors(Rs)
 Trace(Rs.Nom + ", " + Rs.Prenom + ", " + Rs.CP)
 HLitSuivant(Rs)
Fin

L'utilisation des fonctions Trace... servent pour le test de la requête, ce code est donc à adapter à votre besoin.