Discussion :

[libremax]

Bonjour,
j'ai un petit prg (sous access 2003) qui tourne sur un poste ou il y a sql serveur express2005
J'ai liées les tables en ODBC. le fichier s'appelle "Sql_Access_Test1"
sur ce poste tout est ok mais si je prend le prg et que je le met sur un autre poste, ça plante.
Normale me direz-vous car je dois relier a nouveau mes tables.
Mais là est le problème car je n'y arrive pas.
Quelqu'un pourrez m'expliquer ?
voici le detail du fichier ODBC
[ODBC]
DRIVER=SQL Server
UID=Service_Client
Network=DBMSSOCN
DATABASE=SQL_access
WSID=SERVEUR
APP=Microsoft Office 2003
SERVER=SERVEUR\SQLEXPRESS

Dans SQL j'ai mis un compte Service_Client avec les autorisations sur mes tables.

Merci pour l'aide que vous pourriez m'apporter

[mout1234]

Bonjour,

...Mais là est le problème car je n'y arrive pas....

Il serait bon de préciser ... quel comportement tu obtiens. quels messages....

[libremax]

D'abord merci de vous intéresser à mon petit problème.
jusqu'a present j'ai déja relier des tables en vba mais de access(frontale) à access(dorsale).
dans mon cas la base frontale est access et la dorsale est SQL
sur le poste ou j'ai fait l'application pas de problème.
maintenant si je déplace mon fichier frontale il y a un pb de connection.
type impossible de se connecteur au compte serveur\invité.
je pense que je dois relier a nouveau mes tables.
Si je le fait en manuelle par tables->liee tout est ok
mais des que je ferme, je dois tout refaire alors je voudrais le faire en vba en automatique.
Comment faire ?

avez-vous une idée ?

merci d'avance.

[mout1234]

il "suffit" de redéfinir la propriété Connect de tes tables liées.

Maintenant, pour identifier les tables à reconnecter, une solution consiste tout simplement à créer une table locale dans laquelle tu listes toutes les tables à attacher.

Tu peux d'ailleurs aussi attacher des vues de la même façon (mais il faut dans ce cas gérer aussi les informations d'index associées pour rendre les données de la vue modifiables).


Il te faut alors faire un recordset sur ta table locale, parcourir ce recordset et pour chaque table, modifier la propriété COnnect de l'objet Tabledef.

[libremax]

Re,
c'est là ou le bas blesse car je sais retablir les liens des tables liées de access à acces .
mais pas de access a sql.

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
 
Function RetablirLiaisons(ByVal strNouveauChemin As String) As Boolean
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
 
' Vérifier que la base dorsale existe
    If Dir(strNouveauChemin) = "" Then
        MsgBox "La base '" & strNouveauChemin & "' n'existe pas.", vbExclamation, "Assistant Liaisons"
        RetablirLiaisons = False
        Exit Function
    End If
 
    Set db = CurrentDb()
 
    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbSystemObject) = 0 Then
            If tdf.Connect <> "" Then
                tdf.Connect = ";DATABASE=" & strNouveauChemin
                tdf.RefreshLink
            End If
        End If
    Next
    Set db = Nothing
    Set tdf = Nothing
    RetablirLiaisons = True
End Function

j'ai essayé plein de truc avec la fonction connect mais cela ne marche que sur le poste ou est installer sql.
Sur les autres postes il y a une erreur type .....impossible de se connecter sur serveur\invité
mais j'ai pourtant bien creer un compte utilisateur sous sql.
auriez-vous un exemple de retablissement de liaison ?

cordialement

[mout1234]

Le code que tu proposes n'est valable que pour une connexion à un fichier de données Access.

En l'adaptant à SQL, cela pourrait donner qq chose du genre:

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
 
Function RetablirLiaisons(ByVal sCon As String) As Boolean
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
 
    Set db = CurrentDb()
 
    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbSystemObject) = 0 Then
            If tdf.Connect <> "" Then
                tdf.Connect = "ODBC;" & sCon & ";TABLE=dbo." & t(i)
                tdf.RefreshLink
            End If
        End If
    Next
    Set db = Nothing
    Set tdf = Nothing
    RetablirLiaisons = True
End Function

où sCon doit recevoir la chaine de connexion au serveur. Si tu utilises un DSN et une authentification Windows, il suffira de lui attribuer "DSN = ...."

Code :

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

RetablirLiaisons("DSN = NomDuDSN")

[libremax]

Bonjour,

Nickel ça fonctionne