lier table SQL

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

Bonjour,

Citation:

---

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

---

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

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.

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.

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:

---

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.:cry:
Sur les autres postes il y a une erreur type .....impossible de se connecter sur serveur\invité 8O
mais j'ai pourtant bien creer un compte utilisateur sous sql.
auriez-vous un exemple de retablissement de liaison ?

cordialement

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:

---

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:

---

RetablirLiaisons("DSN = NomDuDSN")

---

Bonjour,

Nickel ça fonctionne