Discussion :

[PatrickLC]

Bonjour,

J'ai mis en serveur une base de données postgres et un front end access.
La connexion entre les 2 se passe plutôt bien, mais j'ai un problème avec la connexion paramétrée pour les procédures en vba.

Les procédures marchent très bien sur mon PC, mais elles en fonctionnent pas sur les PC de mes collègues. Voici le message d'erreur qu'ils ont sur leur PC :


Voici la ligne surlignée par le débogage :
connection_postgres.Open connection_postgres_str

Les différentes machines ont le même driver d'installé.

Voici des exemples de connexion que j'ai essayé :

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
 
'MARCHE SUR MON ORDINATEUR MAIS PAS SUR LES AUTRES :
'Public Const connection_postgres_str As String = _
    "DSN=PostgresCEM;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DSN=PostgresCEM;" & _
    "DRIVER={PSQLODBC.DLL};" & _
    "Server=10.27.180.7;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DSN=PostgresCEM;DATABASE=CEM;SERVER=10.27.180.7;PORT=5432;UID=user_name;PWD=pwd;CA=d;A6=;A7=100;B0=255;B1=8190;BI=0;C2=dd_;CX=1c2a1008b;A1=7.4-2"
'Public Const connection_postgres_str As String = _
    "DSN=PostgresCEM;" & _
    "UID=user_name;" & _
    "DRIVER={PostgreSQL ANSI};" & _
    "PWD=pwd;" & _
    "Server=10.27.180.7;" & _
    "Database=CEM"
 
 
'NE MARCHE NI SUR LE MIEN, NI SUR LES AUTRES :
'Public Const connection_postgres_str As String = _
    "DRIVER={PostgreSQL ANSI};" & _
    "DSN=PostgresCEM;" & _
    "Server=10.27.180.7;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER={PostgreSQL ANSI};" & _
    "Server=10.27.180.7;" & _
    "PWD=pwd;" & _
    "UID=user_name;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER={PSQLODBC.DLL};" & _
    "Server=10.27.180.7;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER={PSQLODBC35W.DLL};" & _
    "Server=10.27.180.7;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER=PSQLODBC35W.DLL;" & _
    "Server=10.27.180.7;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER={PSQLODBC35W.DLL};" & _
    "Server=10.27.180.7;" & _
    "DSN=PostgresCEM;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER={PSQLODBC30A.DLL};" & _
    "Server=10.27.180.7;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER=PSQLODBC30A.DLL;" & _
    "Server=10.27.180.7;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER={PSQLODBC30A.DLL};" & _
    "Server=10.27.180.7;" & _
    "DSN=PostgresCEM;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "DRIVER={PostgreSQL ANSI};" & _
    "Server=10.27.180.7;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER={PostgreSQL Unicode};" & _
    "Server=10.27.180.7;" & _
    "DSN=PostgresCEM;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
'Public Const connection_postgres_str As String = _
    "DRIVER={PostgreSQL Unicode};" & _
    "Server=10.27.180.7;" & _
    "UID=user_name;" & _
    "PWD=pwd;" & _
    "Database=CEM"
 
 
Sub test()
 
Dim connection_postgres As ADODB.Connection
Set connection_postgres = New ADODB.Connection
 
connection_postgres.Open connection_postgres_str
 
connection_postgres.Close
Set connection_postgres = Nothing
Stop
 
End Sub

C'est surtout le point que ça marche sur mon PC et pas sur les autres qui me tracasse, je n'arrive pas à comprendre pourquoi. Avez-vous des idées ? Mes recherches ont été vaines...

Merci d'avance,

Patrick

[PatrickLC]

Après avoir creuser, j'ai pu résoudre mon problème. Peut-être qu'il pourra en aider certains d'entre vous.
Il venait du fait que le dsn était mal paramétré.

Sur ma version d'access, les tables pointaient sur un fichier dsn ;
et la connexion ODBC dans les modules vba pointait vers un dsn enregistré sur ma machine.
Ce dernier dsn ne fonctionnait donc pas sur les autres machines.

Pour résoudre ce problème, je fais pointer ma connexion ODBC vba non plus vers un dsn mais vers un fichier dsn.
(Créé via l'administrateur ODBC et enregistré sur le réseau où tout le monde y a accès).

J'ai aussi eu un problème de compatibilité qui a été résolu en ré-installant chez tout le monde le pilote en 32bit et le dsn via l'administrateur ODBC 32bit.
Sur cette partie j'ai été un peu noyé, entre les versions d'access, de Windows et des bibliothèques vba des différents utilisateurs, les problèmes de compatibilité ont fini par s'envoler. Je ne sais pas trop quelle est l'action qui finalement eu raison de ce problème.

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
 
 
Public Const connection_postgres_str As String = _
    "FILEDSN=\\chemin complet\...\BDDCem.dsn;" & _
    "UID=nom_user;" & _
    "PWD=motdepasse;" & _
    "Database=bdd"
 
Sub test()
 
Dim connection_postgres As ADODB.Connection
Set connection_postgres = New ADODB.Connection
 
connection_postgres.Open connection_postgres_str
 
Stop
 
connection_postgres.Close
Set connection_postgres = Nothing
 
End Sub

Bonne soirée,

Patrick