Discussion :

[Mysticalfx]

Bonjour à tous,

J'ai suivi un peu toutes les indications que j'ai pu trouver sur le net et étant novice j'ai réussi (notamment grâce à vous) à créer une connexion en vb sur access.

Mon code me connecte à un serveur distant en utilisant un dsn et rapatrie les tables sur ma machine. Tout fonctionne à merveille sauf un petit détail.

Lorsque j'ouvre access et que je lance ma macro, je reçois :

"ODBC -- Connection to 'x' failed.

J'enlève de mon code le fichier *.dsn et hop je recois une fenêtre de login remplie en ordre, je valide et mes tables s'importent. Là, je remet le dsn et relance mon code et pouf ça marche sans erreur, je ferme access, je relance et de nouveau je dois faire à nouveau le tout manuellement pour qu'après cela marche automatiquement.

J'ai contrôlé le fichier *.dsn tout est indiqué correctement. J'avoue être perdu et ne sait plus ou regarder.

Un grand merci d'avance pour votre aide ou conseils.



Bonne journée.

[LedZeppII]

Bonjour et bienvenue sur le forum.

Le problème peut se situer au niveau de la chaîne de connexion.

Si tu utilises un DSN fichier au lieu d'un DSN utilisateur ou système (qui sont, eux, enregistrés dans la base de registre)
il faut utiliser le mot-clé FILEDSN en lieu et place de DSN. Exemple

Si tu fais référence au fichier DSN avec FILEDSN=xxxx.dsn
il faut que le fichier xxxx.dsn soit dans le dossier approprié.
Voir dans l' Administrateur de source de données ODBC, onglet "Source de données fichier"

As-tu créé ton fichier DSN à la main, ou à l'aide d'un assistant ?

A quoi ressemble ta chaîne de connexion ?

A+

[Mysticalfx]

Bonjour et merci pour ta réponse.

J'ai testé avec les 2 méthodes DSN et FILEDSN mais cela génère toujours le même problème.

Voici le fragment de 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
 
 
Dim dsn As String
Dim uid As String
Dim srvr As String
Dim pwd As String
Dim DB As String
Dim odbcConnectStr As String
 
 
dsn = "C:\Program Files\Common Files\ODBC\Data Sources\sat2000.dsn"
uid = "x"
srvr = "y"
pwd = "z"
DB = "a"
 
odbcConnectStr = "ODBC;Filedsn=" & dsn & ";UID=" & uid & ";SRVR=" & srvr & ";DB=" & DB & ";PWD=" & pwd & ""
 
DoCmd.TransferDatabase acImport, "ODBC", odbcConnectStr, acTable, "dbo.dAgentBySkillsetStat", "dbo_dAgentBySkillsetStat", False

Encore merci pour ton aide et excellente journée.

[LedZeppII]

Bonjour,

ça fonctionne chez moi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim dsn As String
Dim uid As String
Dim pwd As String
Dim DB As String
Dim odbcConnectStr As String
 
dsn = "D:\Program Files\Fichiers communs\ODBC\Data Sources\SqlServer.dsn"
uid = "NomUtilisateur"
pwd = "MotDePasse"
DB = "BDD"
 
odbcConnectStr = "ODBC;Filedsn=" & dsn & ";UID=" & uid & ";Database=" & DB & ";PWD={" & pwd & "}"
 
DoCmd.TransferDatabase acImport, "ODBC", odbcConnectStr, acTable, "dbo.mm_chg_req", "dbo_mm_chg_req", False

Code SqlServer.dsn :

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

1
2
3
4
5
6
7
8
[ODBC]
DRIVER=SQL Server
Network=DBMSSOCN
SERVER=.\SQLEXPRESS
DATABASE=BDD
WSID=NOMORDI
APP=Système d'exploitation Microsoft® Windows®
Description=SQL Server SQLEXPRESS

Seule petites différences chez moi :
Je ne remets pas le nom du serveur car il déjà spécifié dans le fichier DSN.
J'utilise le mot-clé DATABASE au lieu de DB (mais ça fonctionne aussi avec DB).
Je mets mon mot de passe entre { et } car il contient un caractère interdit.

A+

[Mysticalfx]

Salut,

Un grand merci pour ton aide, au final il aura fallu que je réinstalle windows et que je recrée les dsn pour que cela passe tout seul....miracle de l'informatique moderne.

Une toute bonne journée