Modification du chemin des tables liées

Version imprimable

16/01/2008, 12h21
KonTiKI

Modification du chemin des tables liées

Bonjour à tous,

J'utilise une application access (2003) dans laquelle les données sont dans une bdd sur le serveur (données.mdb), et les interfaces sont sur chaque poste.
Jusque là rien que de très classique.

Lorsque je prends mon portable, je fais une copie de la base des données sur le disque dur.

Evidemment, toutes les tables pointent vers \\serveur dans les applis.

Je galère donc pour utiliser ma table en locale et suis obligé de passer par le gestionnaire de tables liées et de mettre à jour toutes les attaches, procédure relativement pénible d'autant qu'il y en a environ cinquante et que pour chacune, il redemande le chemin sur le disque dur.

Y aurait-il possibilité de modifier le chemin en modifiant directement la valeur du champ database dans la table système MSysObjects où par un autre moyen ?

Merci de votre aide

salut,
il y a à boire et à manger dans le code, mais c'est tout moi qui l'ai fait :)
en parametre, les noms sont assez explicites en principe ;)

il faut que tu fournisses en entrée le nouveau path de connection (peu importe l'ancien en fait).

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Function MajLienODBC(PathBaseAModifier As String, TitreTableAModifier As String, Connect As String, TitreTableSource As String) As Boolean
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim temp As Boolean
Dim tables As DAO.TableDef
Dim relation As DAO.relation
Dim rel As DAO.relation
Dim chp As DAO.Field
Dim a As DAO.Property
Dim position As Long
    On Error GoTo fin
    MajLienODBC = False
    temp = False
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase(PathBaseAModifier)
    For Each tables In db.TableDefs
        If tables.Name = TitreTableAModifier Then
            temp = True
            Exit For
        End If
    Next
 
    ' Création d'un nouvel objet TableDef.
    Set tbl = db.CreateTableDef(TitreTableAModifier & "_piou")
    ' Définition des propriétés pour créer le lien
 
    tbl.Connect = Connect
    tbl.SourceTableName = TitreTableSource
    'Ajout de la nouvelle table
    db.TableDefs.Append tbl
    db.TableDefs.Refresh
    If temp Then
        'Création des relations identiques à l'ancienne table
        For Each relation In db.Relations
            If relation.table = TitreTableAModifier Then
                Set rel = db.CreateRelation(tbl.Name & relation.ForeignTable, tbl.Name, relation.ForeignTable)
                rel.Attributes = relation.Attributes
                Set chp = rel.CreateField(relation.Fields(0).Name) ' Fournit le nom du champ clé externe.
                chp.ForeignName = relation.Fields(0).ForeignName
                rel.Fields.Append chp
                db.Relations.Append rel
                db.Relations.Refresh
            End If
            If relation.ForeignTable = TitreTableAModifier Then
                Set rel = db.CreateRelation(relation.table & tbl.Name, relation.table, tbl.Name)
                rel.Attributes = relation.Attributes
                Set chp = rel.CreateField(relation.Fields(0).Name) ' Fournit le nom du champ clé externe.
                chp.ForeignName = relation.Fields(0).ForeignName
                rel.Fields.Append chp
                Debug.Print rel.Name
                db.Relations.Append rel
            End If
        Next
        'Suppression des relations de l'ancienne table
        For Each relation In db.Relations
            If relation.table = TitreTableAModifier Or relation.ForeignTable = TitreTableAModifier Then
                db.Relations.Delete relation.Name
            End If
        Next
        'Suppression de l'ancienne table
        db.TableDefs.Delete TitreTableAModifier
        'Renommage de la nouvelle table
        db.TableDefs(TitreTableAModifier & "_piou").Name = TitreTableAModifier
        ' Renommage des relations sans le _piou
        For Each relation In db.Relations
            If Replace(relation.Name, "_piou", "") <> relation.Name Then
                Set rel = db.CreateRelation(Replace(relation.Name, "_piou", ""), Replace(relation.table, "_piou", ""), Replace(relation.ForeignTable, "_piou", ""))
                rel.Attributes = relation.Attributes
                Set chp = rel.CreateField(relation.Fields(0).Name) ' Fournit le nom du champ clé externe.
                chp.ForeignName = relation.Fields(0).ForeignName
                rel.Fields.Append chp
                Debug.Print rel.Name
                db.Relations.Delete relation.Name
                db.Relations.Append rel
                db.Relations.Refresh
            End If
        Next
        MajLienODBC = True
    End If
    db.Close
    Exit Function
fin:
End Function

16/01/2008, 13h38
KonTiKI

Merci beaucoup jpcheck. cela m'a été très utile.

A bientôt

Sur le même principe, avec un code un peu moins long..
voila ce que j'utilise...

fevec

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
28
29
 
Function ModifAttache(strDBPath)
' Modification simple des attaches
' sur le modèle de fGetLinkPath de Dev Ashish
' 21/07/2005
    Dim vieuxnom As String, stPath As String
    Dim loTd As TableDef
    Dim dbs As Database
    Dim I, nb As Integer
    I = 0
    CurrentDb.TableDefs.Refresh
    ' nb de table
    nb = CurrentDb.TableDefs.Count
    For Each loTd In CurrentDb.TableDefs
        On Error Resume Next
       stPath = dbs.TableDefs(loTd.Name).Connect
       If stPath = Null Then
        Else
            I = I + 1
            vieuxnom = fGetLinkPath(loTd.Name)
            loTd.Connect = ";Database=" & strDBPath
            loTd.RefreshLink
        Debug.Print loTd.Name; " "; fGetLinkPath(loTd.Name); " à la place de : "; vieuxnom
         End If
    Next loTd
    Set loTd = Nothing
    CurrentDb.TableDefs.Refresh
    MsgBox "Terminé." & vbCrLf & I & " tables attachées pointent désormais vers la base de données " & strDBPath, vbOKOnly, "Procédure terminée avec succés"
End Function