Discussion :

[allium75]

Bonjour à tous,

Je suis en stage (sans tuteur pour m'aider un peu ) et actuellement je dois comparer les champs de 2 bases de données (sur Access que je découvre!).
Le but est de lister tous les champs communs à ces deux bases de données ainsi que le nom des tables correspondantes.

je voulais créer une seule bdd et faire une requête ou utiliser la fonction "relations".. mais je ne peux ni exporter les bases de données ni exporter les tables.

Si quelqu'un a une idée ça m'intéresse
Merci

[Heureux-oli]

Tu dois lister les champs ou les enregistrements.

[marot_r]

Je ne suis pas sur que j'ai bien compris c'est la structure de tes bases que tu veux comparer ?

Si c'est cela voilà comment procéder :

1) Crée une base vide
2) A partir de ta base vide lie les tables de ta première base (fichier, données externes, tables liées)
3) A partir de ta base vide lie les tables de ta seconde base

Automatiquement Access va nommer les tables ayant un nom identique dans la seconde base nomTable1

Après crée un nouveau module dans ta nouvelle base.
Moi je travail toujours en DAO donc dans ton module tu vas sur Outils, Référence et tu vérifie que Microsoft DAO 3.6 Object Library est cochée

Pour des raisons de simplicité mon code suppose que tu as autant de tables dans les deux bases et qu'elles portes le même nom.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
private sub ComparerToutesTables()
   dim db as database : set db=current db
   dim t as tabledef
   for each t in db.tabledefs
     if not t.name like "MS*" and not t.name like "*1" then
       call ComparerTable(t.name)
     end if
   next t
   db.close : set db=nothing
end sub
 
private sub ComparerTable(pmrNomTable as string)
   dim db as database : set db=current db
   dim t0 as tabledef
   dim t1 as tabledef
   dim f0 as field
   dim f1 as field
   set t0=db.tabledefs(prmNomTable)
   set t1=db.tabledefs(prmNomTable & "1")
   for each f0 in t0.fields
       debug.print t0.name & "." & f0.name;
       for each f1 in t1.fields
          if f0.name = f1.name then
             debug.print " aussi dans " & t1.name
             exit for
       next
      debug.print
   next 
 
   for each f1 in t1.fields
       debug.print t1.name & "." & f1.name;
       for each f0 in t0.fields
          if f0.name = f1.name then
             debug.print " aussi dans " & t0.name
             exit for
       next
      debug.print
   next 
 
   db.close : set db=nothing
end sub

A+

[loufab]

Bonjour à tous,

Bonjour toi tout seul !

(sur Access que je découvre!).,

ça tombe bien c'est notre sujet principal de discussion...

je dois comparer les champs de 2 bases de données
Le but est de lister tous les champs communs à ces deux bases de données ainsi que le nom des tables correspondantes.

comparer les noms de champs, type, longueur, etc ?
VBA et tabledefs c'est la meilleure solution.

je voulais créer une seule bdd et faire une requête ou utiliser la fonction "relations"...

Pour comparer des données oui, pour comparer les structures non.

mais je ne peux ni exporter les bases de données ni exporter les tables

Pourquoi ? et l'attachement non plus ?