Discussion :

[guidav]

Bonjour

J'utilise Access 2000, et j'ai dans la le menu outil/utilitaire de base de données une application Gestionnaire de table liées.
Je n'ai pas trouvé de documentation spécifique à cette fonctionnalité.
Existe-t-il une possibilité de mettre à jour une attache en spécifiant le DSN, l'UID, le PWD etc. en VBA ?

Merci d'avance

EDIT : je ne parle pas seulement de mettre à jour des attaches de tables access comme expliqué dans http://dolphy35.developpez.com/artic...eseaux/#LVII-A, mais aussi de mettre à jour des attaches oracle, mysql, sybase...

[marot_r]

Le plus simple est de faire l'attache à la main puis de lancer le petit code suivant dans un module.

Code :

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

1
2
 
debug.print currentdb.tabledefs("NomMaTableLiée").connect

cela va t'afficher la chaîne de connexion utilisée, aprés tu peux modifier cette valeur pour l'adapter et utiliser la méthode .refreshlink de l'objet tabledef.

Note tu peux changer de BD source mais pas de marque de BD (ex : tu ne peux pas passer d'une table Access à une table Oracle avec cette méthode.)

A+

[Kloun]

UN bout de code à adapter :

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
Function LiaisonTable(pStr_Repertoire) As Integer
Dim LinkTest As Integer
Dim Tabl As DAO.TableDef
 
    DoCmd.Hourglass True
    LiaisonTable = 1
    For Each Tabl In CurrentDb.TableDefs
        If Tabl.Connect <> "" Then
            If Tabl.Name = "tblVarianteOld" Then
                Tabl.Connect = ";DATABASE=" & pStr_Repertoire & "Appli - Interface - Old.mdb"
                On Error Resume Next
                Tabl.RefreshLink
                On Error GoTo 0
            Else
                On Error GoTo Erreur
                Tabl.Connect = ";DATABASE=" & pStr_Repertoire & "Appli - Data.mdb"
                Tabl.RefreshLink
            End If
        End If
    Next
    DoCmd.Hourglass False
    LiaisonTable = 0
    Exit Function
Erreur:
    DoCmd.Hourglass False
    LiaisonTable = 1
End Function

[guidav]

Merci beaucoup Kloun, mais ton code ne gère que les tables Access, j'en ai déjà un qui a cette possibilité.

Merci pour la piste marot_r.
Ca pose un petit problème pour les tables mysql, c'est que la création des tables attachées demande la confirmation du password et plante ensuite, ce qui n'est pas tellement compatible avec du batch.
Je pense que le problème vient surtout du driver mysql, je vais investiguer et tester ta solution de .refreshlink.

[marot_r]

Le code fourni en exemple peut-être utiliser quelque soit la source, c'est la ligne

Code :

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

1
2
 
Tabl.Connect = ";DATABASE=" & pStr_Repertoire & "Appli - Interface - Old.mdb"

qu'il faut adapter en fonction de la BD car c'est là que tu mets la chaîne de connexion.

A+