Discussion :

[curt]

Bonsoir à tous,

Ma question est la suivante : j'ai une base (frontal sur poste et dorsal sur serveur) qui devrait être déployée sur plusieurs sites. Le problème est que l'architecture de chaque site peut être différente... Est-il possible de définir le chemin des tables liées au moment de l'installation du runtime sur les postes clients ou bien, tout est défini "en dur" par le développeur sur son poste équipé d'Access avant l'empaquetage ?

Bonne soirée et bon week-end à tous.

Curt

[marot_r]

Tu peux le faire par programme mais il faut le prévoir.

Je fait généralement un petit formulaire où je demande à l'utilisateur de me dire où sont les données puis je boucle sur la collection TableDefs et je mets à jour la propriété .Connect des objet TableDef qu'elle contient.

Ça marche trés bien.

A+

[cheveche]

Je crois qu'il faut ajouter un .refreshlink après le .connect.
Sinon, la liaison n'est pas mise à jour.

Enfin, c'est ce que je fais et cela fonctionne,

[curt]

Bonjour à tous, et merci à Cheveche et Marot_r pour les infos.

Auriez-vous un exemple ou un tuto pour expliquer tout ça?
Je serais preneur et peut être d'autres développeurs également.

Encore merci.

Curt

[marot_r]

Oui, cheveche, tu as raison il faut faire un refreshlink. Mon explication était partielle.

Voilà un peu bout de code qui fait cela.

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
 
Public Function RelinkerTables(prmNomBaseLiee As String, prmCheminBaseLiee As String) As Boolean
    Dim relinkReussi As Boolean: relinkReussi = True
 
    Dim t As TableDef
    Dim db As Database: Set db = CodeDb
    Dim NomBaseLiee As String
 
    If BaseLieeExiste(prmNomBaseLiee, prmCheminBaseLiee) Then
            relinkReussi = True
 
            For Each t In db.TableDefs
 
                If t.Connect <> "" Then
                    NomBaseLiee = LireNomFichier(t.Connect)
 
                    If NomBaseLiee = prmNomBaseLiee Then
                        t.Connect = ";DATABASE=" & prmCheminBaseLiee & prmNomBaseLiee
                        t.RefreshLink
                    End If
 
                End If
 
            Next t
 
        Else
            relinkReussi = False
    End If
 
    db.Close: Set db = Nothing
 
    RelinkerTables = relinkReussi
End Function

Note il faut adapter le .Connect selon le type de base sur laquelle on se connecte. Celui-ci est pour une base Access.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Function BaseLieeExiste(prmNomBaseLiee As String, prmCheminBaseLiee As String) As Boolean
    BaseLieeExiste = (Dir(prmCheminBaseLiee & prmNomBaseLiee) <> "")
End Function