[VBA + SQL] Concaténation et jointure à partir de 2 tables

Version imprimable

22/05/2007, 11h35
stefposs

[VBA + SQL] Concaténation et jointure à partir de 2 tables
Salut,

j'ai :
- une table HEXACLE avec les champs Matricule_Voie et Adresse
- une table HEXAVIA avec le champs Matricule_Voie en tant qu'identifiant unique.

Dans HEXACLE il y a un ligne par adresse, donc le champ Matricule_Voie peut se retrouver de 1 à n fois dans cette table.

Ce que je souhaite faire - après avoir créé un champ Adresse dans HEXAVIA - c'est concaténer toutes les Adresse de HEXACLE sur chaque enregistrement Matricule_Voie correspondant de HEXAVIA.

J'ai donc regardé du côté de la source : http://access.developpez.com/sources...QLLigneColonne pour la concaténation dans une seule table.

Donc j'imagine que tout en gardant le même code VBA il suffit peut-être d'adapter la requête à lancer de façon à mettre à jour directement la table HEXAVIA. Mais là je m'embrouille un peu les pinceaux avec les jointures et l'appel à la fonction RecupAdresse qui pour le moment est dans l'état simple de départ :
Code:

1 2 SELECT DISTINCT HEXACLE.Matricule_Voie, RecupAdresse(Matricule_Voie) AS LesAdresses FROM HEXACLE;
Un petit coup de main ?
22/05/2007, 17h14
The_Super_Steph

Bonjour,

Que veux-tu faire exactement ?

J'avoue que je ne comprends pas trop...
22/05/2007, 17h15
The_Super_Steph

qu'as-tu et que veux tu afficher ?

Si tu ne le dis pas clairement, je ne peux pas t'aider !

Cordialement,

Steph

Salut,

alors voilà j'ai :

Table HEXACLE

Code:

1
2
3
4
5
6
7
8
9
 
Matricule_Voirie | Adresse
0001                  2
0002                  2
0002                  3
0002                  4
0003                  1
0003                  2
0004

Table HEXAVIA

Code:

1
2
3
4
5
6
 
Matricule_Voirie | Libelle_Voie | Adresse
0001                Rue machin
0002                Rue Truc
0003                Rue Chose
0004                Rue Dutruc

et dans cette dernière table j'aimerais concaténer toutes les adresses correspondants provenant de HEXACLE pour obtenir :

Table HEXAVIA

Code:

1
2
3
4
5
6
 
Matricule_Voirie | Libelle_Voie | Adresse
0001                Rue machin     2
0002                Rue Truc       2;3;4
0003                Rue Chose      1;2
0004                Rue Dutruc

La liaison se faisant avec le champ Matricule_Voie.
Est-ce que mon explication semble plus claire ?
Je sais que cela doit être assez simple mais là je nage...

Bonjour,

Voici le code a mettre dans un module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function Adresse(strMatricule As String) As String
 
    Dim rst As Recordset
    Dim strRequete As String
 
    strRequete = "SELECT adresse FROM HEXACLE WHERE Matricule_Voirie='" & strMatricule & "'"
    Set rst = CurrentDb.OpenRecordset(strRequete)
 
    While Not rst.EOF
        Adresse = Adresse & rst.Fields(0).Value & ";"
        rst.MoveNext
    Wend
    rst.Close
    Set rst = Nothing
 
    Adresse = Left(Adresse, Len(Adresse) - 1)
 
End Function

et la requête :

Code:

UPDATE HEXAVIA SET HEXAVIA.Adresse = RecupAdresse([HEXAVIA].[Matricule_Voirie]);

Merci de penser à marquer cette discussion résolue si c'est le cas.

@+

Sam

28/05/2007, 14h27
stefposs
Super,

Pour la requête c'est exactement ce qu'il me fallait !

pour le code VB c'est ce que j'avais effectivement collé dans un module en ajoutant toutefois un :
Code:

1 2 3 4 If Adresse <> "" Then Adresse = LEFT(Adresse, Len(Adresse) - 1) Endif
pour éviter un message d'erreur lorsque la requête retourne un résultat vide.

Une dernière question : la table HEXACLE contient environ 18 millions d'enregistrements, y a-t-il un moyen pour accélerer le process sans passser par un autre outil que Access ?

En tout les cas, grand merci !
28/05/2007, 20h32
samuelsiffert

Re,

Pour accélérer le traitement, à part mettre des index (au moins un sur matricule_voirie), je vois pas.
29/05/2007, 09h13
stefposs

oui c'est effectivement ce que j'ai fait mais bon je vais prendre mon mal en patience :-)

Merci pour tout !