Mise en page du modèle relationnel

**arundel** · 04/10/2017, 13h55

Bonjour à tous,

Lorsque la structure d'une base de donnée devient conséquente, le modèle relationnel affiché par Access tend à ressembler à un plat de spaghettis qu'il faut essayer de déméler manuellement.
Peu de chance que Microsoft développe une option d'optimisation du graphe mais on peut s'en sortir en utilisant un outil gratuit comme Graphviz qui fait cela très bien et dont le résultat peut servir de guide.

J'en viens à mon contexte : j'ai une base fractionnée avec un front-end unique et un back-end par année. Le travail ci-dessus devient alors fastidieux.

Voici ma question : connaissez-vous un moyen de répliquer une mise en page satisfaisante dans autres bases _be ?

Merci de suggestions

**marot_r** · 04/10/2017, 20h48

Bonjour.

Autant que je sache, les outils dont on dispose sont assez limité.
Personnellement j'utilise l'utilitaire développé par Stephen Lebans (http://www.lebans.com/) sur sa page http://www.lebans.com/saverelationshipview.htm
Le fichier http://www.lebans.com/DownloadFiles/...Layoutver9.zip

Il permet d'enregistrer la position des tables dans une table et de se servir de cette table pour restaurer les positions.

Attention, il est prévu pour une version en anglais et le code s'attend à trouver une fenêtre "Relationships" et il faut le changer pour "Relations".

Je m'en suis servi sous toutes les versions de 2003 à 2010 sans problème.

Note les autres fonctions proposées (autre que la sauvegarde/restauration) ne semblent pas fonctionner mais je n'ai pas cherché plus loin car je n'en avais pas besoin.

A+

**arundel** · 05/10/2017, 16h41

Bonjour et merci pour cette information.

J'ai donc téléchargé l'outil et modifié "relationships" en "relations" où il convenait et ajouté ".accdb" dans la boite de sélection de la base de données à prendre comme modèle de dessin des relations.

Comme ma base est "externe" à l'outil j'ai choisi l'onglet "Restore Layout form External MDB" puis j'ai sélectionné ma database puis cliqué sur "Select a Database containing the desired Relationship Window". La table "tblRelationshipViews" de l'outil est bien chargée et avec mon modèle relationnel référencé par "Admin".

Ensuite rien ne va plus, quand je clique sur ""Restore the selected Relationship View" ça m'affiche pour résultat la base de test de l'outil (customer_1, etc ...).

Bref je n'ai pas compris tout le film. Peux-tu m'expliquer la marche à suivre pour réappliquer la mise en forme du modèle stp ?

Merci d'avance.

**marot_r** · 05/10/2017, 16h52

Désolé.

Je ne m'en suis jamais servis comme un outil externe.
J'importe les morceaux dans ma BD et je l'utilise là.
Et j'ai constaté que cela fonctionnait mieux si la fenêtre des relations est ouverte et ses ascenseurs en haut à droite.

A+

**arundel** · 06/10/2017, 19h04

J'ai un peu avancé dans l'utilisation de l'outil mais je n'ai pas été convaincu de son efficience, du coup j'ai fait le travail à la main (5 bases).

Si je peux donner un conseil à ceux qui liront cet échange, c'est de :
- lister les relations par une boucle en VBA avec debug.print
- coller ce résultat dans les paramètres de Graphviz (outil gratuit qui optimise le dessin de graphes, c-à-d avec un minimum de croisements)
- se servir du résultat comme guide pour corriger le modèle relationnel

A titre d'exemple je mets en pièce jointe mes fichiers Graphviz : GrapheRelations.zip
- un .bat pour lancer Graphviz
- un .txt qui contient les paramètres pour Graphviz
- un .pdf qui montre le résultat obtenu : les lignes en pointillé représentent les intégrités de type UpdateCascade et celles en trait plein DeleteCascade.

Salutations.

**marot_r** · 06/10/2017, 19h38

Bonjour.

Merci Arundel, c'est toujours intéressant d'avoir d'autres outils sous la main.

Je n'ai sans doute pas été clair quand aux limitations de l'outil de Stephen Lebans.
Il est seulement utile pour avoir les positions actuelles dans la fenêtre des relations.
Il ne fait rien quand à la disposition des tables.

A+

**arundel** · 08/10/2017, 11h15

Tant qu'à faire autant être complet, j'ajoute donc la procédure qui génère les paramètres pour Graphviz.
Je précise que les contraintes d'intégrité les plus nombreuses étant en UpdateCascade plutôt qu'en DeleteCascade, j'ai mis les arcs du graphe en pointillé par défaut afin de moins charger le .txt

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
'Génère les directives pour Graphviz dans la fenêtre d'exécution
Sub GV_Directives()
 Dim dbc As dao.Database: Set dbc = CurrentDb
 Dim rel As dao.Relation
 Dim strAttrib As String, strRelName As String
 Dim lngNbRel As Long, lngNbDel As Long, lngDeb As Long
 For Each rel In dbc.Relations
  strAttrib = vbNullString
  lngDeb = InStr(1, rel.Name, "tbl")
  If lngDeb > 0 Then 'C'est une table utilisateur
   strRelName = Mid$(rel.Name, lngDeb) 'Shunt du préfixe si recherche dans back-end à partir du front-end
   lngNbRel = lngNbRel + 1 'Compteur de relations
   If rel.Attributes >= dbRelationDeleteCascade Then
    strAttrib = " [style=filled]"
    lngNbDel = lngNbDel + 1 'Compteur des contraintes ayant l'option Delete
   End If
   Debug.Print rel.Table & " -> " & rel.ForeignTable & strAttrib
  End If
 Next rel
 
 MsgBox lngNbRel & " relations dont " & lngNbDel & " DeleteCascade"
 
 dbc.Close: Set dbc = Nothing
End Sub

Avec le fichier de commande Graphviz mis à jour : GrapheRelations.txt

**marot_r** · 10/10/2017, 16h16

Merci.

Il y a longtemps que je cherchai un truc du genre.
J'avais essayer de bricoler cela en Excel et en Visio mais il manquait la possibilité de réorganisation des tables ou alors les résultats n'était pas terrible.
Graphiz semble assez prometteur dans ce domaine.

Sais-tu si il est capable de "retourner" les coordonnées des tables dans le graphique résultat ?
Si oui, en le combinant avec l'outil Stephen Lebans on pourrait peut-être réorganiser les tables dans la fenêtre des relations.

A+

**arundel** · 10/10/2017, 19h40

Bonsoir,

Je pense qu'il est possible d'extraire des coordonnées bien que n'ayant pas moi-même poussé très loin sur le sujet.

Je ci-joint le contenu de l'annexe B du dotguide.pdf qui parle de cela : DotGuide_Annexe_B.pdf

Je te suggère d'installer le produit et de faire le test.

Bien cordialement.