Discussion :

[Marc_27]

Bonjour à tous,

J'ai une application Access 2003 qu'utilise une base de donnés SQL Server.

Dans mon SQL Server, j'ai deux bases: BASE_prod (où sont stockées les tables de mon application) et une autre base BASE_test (la même base pour faire des tests).

Je demande donc s'il y aurait une façon de "relier" les tables de BASE_prod vers BASE_test par code VBA, sans être obligé d'ouvrir l'aaplication en mode d'édition et utiliser le menu Outils/Utilitaire de base de donnés/Gestionaire des tables liées.

Merci d'avance pour vos réponses,
Marc

[loufab]

Bonjour,
Effectivement tu peux faire les attaches via le code.

Il te faut utiliser DAO pour cela.

Regarde le tuto sur DAO et notamment l'objet Tabledefs.

Il te faut également la string de connection à mettre dans la propriété Connect.

Les string de connexion sont disponible ici
http://www.connectionstrings.com/

Tu peux également les avoir en interrogeant la même propriété.

Code :

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

currentdb.tabledefs("MatableAttachee").connect

Dans tout les cas le passage obligé c'est cet excellent tuto, véritable bible du DAO.

Cordialement,

[Marc_27]

Merci beaucoup loufab (encore une fois),


Je vais regarder le tuto...

[Marc_27]

Bonjour loufab,

J'ai lu le tuto DAO et j'ai utilisé aussi un post d'un autre forum. En fait je change la propriété Connect des tables de mon application via DAO. Cette propriété est dans la table MSysObjects.

Comme ça j'arrive à me basculer entre les bases de teste/ production sans avoir besoin de passer par le gestionaire des tables liées...

Voilà le code:

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
43
44
45
46
47
48
49
50
51
52
Dim strErrMsg As String
Dim mode As Integer
mode = InputBox("1. prod >>> dsv" & vbNewLine & "2. dsv >>> prod")
If mode <> 1 And mode <> 2 Then
    strErrMsg = "Option invalide"
    GoTo QUIT
End If
 
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Set oDb = CurrentDb
'Pour chaque table
For Each oTbl In oDb.TableDefs
 
    If oTbl.Attributes And dbAttachedODBC Then
 
 
        Dim db As DAO.Database, td As DAO.TableDef
        Dim strTable As String
        Dim errX As DAO.Error
 
        strTable = oTbl.Name
 
        Set db = CurrentDb
        On Error Resume Next
        Set td = db.TableDefs(strTable)
        On Error GoTo 0
        If td Is Nothing Then
           strErrMsg = "La Table '" & strTable & "' est introuvable"
           GoTo QUIT
        End If
 
        ' Si la table est bien une table liée ODBC
        If td.Attributes And dbAttachedODBC <> 0 Then
 
           Select Case mode
            Case 1
                td.Connect = Replace(td.Connect, "=Outils_Gestion;", "=Outils_Gestion_DSV;")
            Case 2
                td.Connect = Replace(td.Connect, "=Outils_Gestion_DSV;", "=Outils_Gestion;")
           End Select
           MsgBox strTable & " a été actualisée"
 
           On Error GoTo ERRH
           td.RefreshLink
        Else
           strErrMsg = "La Table '" & strTable & "' n'est pas une table liée ODBC"
        End If
 
    End If
 
Next oTbl

Merci encore une fois