Discussion :

[pc75]

Bonjour,

Je rencontre des difficultés à écrire une requête.

J'ai deux tables

Table des Pays
IdPays
LibPays

Table des villes
IdVille
LibVille
IdPays

J'ai besoin d'une requête qui me retourne pour chaque pays, les trois premières villes.

Par exemple :
FRANCE LYON MARSEILLE PARIS
ITALIE ROME TURIN VENISE

Je sèche.

Merci

[Mahefasoa]

Bonjour,
Là pour l'instant, l'idée qui me vient à l'esprit c'est une fonction personnalisée avec requête.
J'expose:
1 Créer une fonction ayant comme paramètre l'IDPays et comme valeur de retour la liste des trois premières villes du pays représenté par IdPays. C'est donc une requête qui est à la base avec un recordset.
2 Appeller cette fonction dans une autre requête qui affiche le pays et la liste de ses trois premières villes.
********************************************
La fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Function TroisVilles (IdPays As Long) As String
  Dim strVille As String
  Dim db As DAO.Database, rs As DAO.Recorset
  Set db=CurrentDb
  Set rs=db.OpenRecordset("SELECT TOP 3 LibVille FROM Ville WHERE IdPays=" & IdPays & ";",dbOpenDynaset)
  If rs.RecordCount<>0 Then
    rs.MoveFirst
    Do While Not rs.EOF
      strVille=strVille & "," & rs.Fields(0).Value
      rs.MoveNext
      DoEvents
    Loop
  End If
  If Len(Trim(strVille))<>0 Then
    strVille=Mid(strVille,2)
  End If
  TroisVilles=strVille
End Function

La requête SQL

Code SQL :

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

1
2
SELECT LibPays, TroisVilles([IdPays]) As Villes FROM Pays;

C'est peut-être pas brillant et assez lourd mais je crois que cela répond à ce sujet.
Bon courage et @+

[cafeine]

Hello,

bon voici une solution qui utilise uniquement des requêtes SQL.

Première requête : qryClassement
permet de classer les villes par population pour chaque pays

Code SQL :

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

1
2
3
4
5
SELECT t_Villes.idPays, t_Villes.idVille, 
     t_Villes.LibVille, t_Villes.Population, 
     DCount("*","t_Villes","[idPays] =" & [idpays] & " And Population>=" & [Population]) AS Classement
FROM t_Villes
ORDER BY t_Villes.idPays, t_Villes.Population DESC;

Ensuite une requête analyse croisée et hop tu obtiens tes trois premieres villes par pays dans trois champs, il ne te reste plus qu'à concaténer si besoin ...

Code SQL :

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

1
2
3
4
5
6
TRANSFORM First(qryClassement.LibVille) AS PremierDeLibVille
SELECT qryClassement.idPays, t_Pays.libPays
FROM qryClassement INNER JOIN t_Pays ON qryClassement.idPays = t_Pays.idPays
WHERE (((qryClassement.Classement)<="3"))
GROUP BY qryClassement.idPays, t_Pays.libPays
PIVOT qryClassement.Classement;

[philben]

bonjour Caféine,

j'avais proposé sur un autre forum une solution en une seule requete mais la tienne à le mérite d'être beaucoup beaucoup plus rapide

Amicalement,

Philippe

[Mahefasoa]

Bonjour,
@philben
Peux-tu mettre ici le lien vers ce post?

bonjour Caféine,

j'avais proposé sur un autre forum une solution en une seule requete mais la tienne à le mérite d'être beaucoup beaucoup plus rapide

Amicalement,

Philippe

[philben]

bonjour Mahefasoa,

le lien :
http://www.developpez.net/forums/sho...d.php?t=370844

En plaçant les Inner join en cascade on gagne un peu en rapidité je pense mais ça reste lent

amicalement,

Philippe

[Mahefasoa]

Merci, Philippe

[pc75]

Merci à tous

[cafeine]

Tu donnes une bonne solution, tout va dépendre du besoin

bonjour Caféine,

j'avais proposé sur un autre forum une solution en une seule requete mais la tienne à le mérite d'être beaucoup beaucoup plus rapide

Amicalement,

Philippe