[AC-2010] Comment fusionner plusieurs tables [Résolu]

[oreoolep]

Bonjour,

Je dispose d'une base avec plusieurs tables de structures souvent identiques mais parfois avec des champs différents (des champs en plus ou en moins dans certaines tables). Ce que je veux réaliser est ceci : créer une nouvelle table avec tous les champs existants dans les autres tables et fusionner leurs enregistrements, de manière à avoir une grande table avec les enregistrements copiés des autres.

J'ai beau chercher sur le net, je n'arrive pas à trouver une solution satisfaisante, beaucoup parlent de faire des copier/coller, mais ce n'est pas pratique dans mon cas, puisque je veux que l'utilisateur ait la possibilité de choisir les tables à fusionner, d'importer de nouvelles tables à fusionner, etc.

Merci de votre aide.

A+

[Godzestla]

Bonjour,
il est difficile de répondre de manière universelle à cette question.

Tu risques d'être confronté à différents problèmes qui pourraient s'avérer bloquants :
- Certains champs obligatoires sont manquants dans au moins 1 des tables à fusionner
- Certains champs ont une définition différente dans au moins 2 tables
...

Après, si toutes les contraintes sont résolues,
il doit être possible de passer en revue les champs d'une table qu'il faudrait importer pour les générer.

Code :

1
2
3
4
5
6
7
    Set dbprev = DAO.OpenDatabase(Import_Db)
       Set Tbd = dbprev.TableDefs(strValues)
           'Boucle sur les champs
           For idx = 1 To tdb.Fields.Count
 
                '......
            Next

Je pense que ton projet est très ambitieux....

[oreoolep]

Bonjour,

Merci beaucoup d'avoir pris le temps de me lire.

Pour les contraintes, je pense que c'est assez gérable, puisqu'en fait les tables proviennent à la base de Foxpro, et donc, certaines difficultés potentielles sont déjà gérées à ce niveau. Mais, cela reste quand même assez difficile à faire comme boulot.

Je vais prendre le bout de fil que tu m'as tendu , et je vais essayer d'en tisser quelque chose.

A bientôt.

Ore

[oreoolep]

Bonjour,

Je crois avoir trouvé une façon relativement simple (à défaut d'être élégante peut-être) de gérer le problème, et de fait, cela marche à merveille pour moi .

L'idée est simple : j'importe les tables à fusionner dans une base dorsale. Là-bas, j'ai aussi une table qui liste toutes les tables à fusionner (on peut aussi développer la démarche en créant des possibilités de sélection d'une liste particulière de tables à fusionner, etc.).

Dans ma base frontale, j'ai créé une table, dite globale, vide, mais qui possède la structure de tous les champs susceptibles d'être contenus dans les tables à fusionner (il suffit juste de copier la structure d'une des tables avec un max de champs et de coller, en faisant les ajouts et ajustements éventuels nécessaires).

Dans la base dorsale je copie la table globale vide à chaque fois que je veux faire une nouvelle fusion de tables.

Et je réalise la fusion.


Je joins le code qui fonctionne chez moi, si ça peut aider quelqu'un.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub fusion()
Dim db As dao.Database
Dim rst As dao.Recordset
Dim tabs As String
Dim codsql As String
Dim baz As String
On Error GoTo list_Err
baz = 'on insère ici le chemin complet vers la base dorsale où se trouvent les tables à fusionner
Set db = OpenDatabase(baz)
Set rst = db.OpenRecordset("Projekt") 'ceci est une table qui liste les noms des tables pouvant être fusionnées.
DoCmd.CopyObject baz, “Tab_glob_dest”, acTable, "Mod_table"  'je crée dans la base « baz » une copie du modèle de la table dont la structure est définie dans une table dite « modèle » (Mod_table)
rst.MoveFirst
Do Until rst.EOF
'traitement de la fusion
codsql = "INSERT INTO " & “Tab_glob_dest”  & " IN '" & baz & "' SELECT * FROM " & rst(0) & " IN '" & baz & "';" 'on comprend que rst(0) donne le nom de la table à fusionner
DoCmd.RunSQL codsql
rst.MoveNext
Loop
Set rst = Nothing
Set db = Nothing
list_Err_Exit:
    Exit Sub
 
list_Err:
    MsgBox Error$
    Resume list_Err_Exit
End Sub

A+