Discussion :

[jeffbarre]

Bonjour,

Je travaille depuis 7-8 ans avec une base SQL Server 2000 et plusieurs postes avec Access 2000.
J'ai pu développer toute ma gestion de production de cette façon. Aujourd'hui une dizaine de postes se connectent quotidiennement sur un serveur en windows xp pro via des informations stockées dans un fichier udl. Chaque poste (windows xp pro / 7 (64bits)) possède une copie d'un .adp.

Je cherche a faire évoluer les fonctionnalités tout en "rajeunissant" le soft en passant sous access 2010.
J'ai donc installé access 2010 sur un poste windows 7 (64bits).
Si le test du fichier .udl pour la connexion sur le serveur xp pro / sql server 2000 fonctionne, il m'est impossible de connecter un projet adp à cette base de données via les propriétés des liaisons de données disponibles sous access 2010.

Merci de votre aide.

[alassanediakite]

Salut
A quel niveau il y a problème? Quel est le message d'erreur?
Par ailleurs je ne savais pas que les ADP utilisent des fichiers udl pour la connexion à SQL server. Comment le faites-vous?
@+

[alassanediakite]

Salut
J'ai trouvé ça
@+

[jeffbarre]

Bonjour,

Grâce à la macro autoExec je lance le code suivant :

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
Public Function ConnectionBase()
Dim conn As New ADODB.Connection
 
On Error GoTo ErrCo
conn.Open "FILE NAME=" & CurrentProject.Path & "\Connection.UDL"
If conn.State = adStateClosed Then
    conn.Close
    Set conn = Nothing
    GoTo ErrCo
End If
conn.CommandTimeout = 240
If InStr(1, conn.ConnectionString, "Integrated Security=SSPI", vbTextCompare) > 0 Then 'Secu NT
    CurrentProject.OpenConnection conn.ConnectionString
ElseIf conn.Properties("Password") = "" Then
    CurrentProject.OpenConnection conn.ConnectionString, conn.Properties("USER ID"), conn.Properties("Password")
Else
    CurrentProject.OpenConnection conn.ConnectionString, conn.Properties("USER ID")
End If
Exit Function
ErrCo:
    MsgBox "Impossible de se connecter" & vbCrLf & "L'application va se terminer" & vbCrLf & "Vérifiez le fichier '" & CurrentProject.Path & "\Connection.udl'", vbOKOnly + vbExclamation, "Fermeture"
    Application.Quit
End Function

En gros j'ouvre la connection avec le .udl et si ça marche je fais de même avec la currentproject.connection.
L'avantage c'est que ca me permet de tester la connection hors access.

Dans mon cas, le .udl fonctionne et la connection avec la base SQL server 2000 est bonne.
C'est l'affectation de cette connection au currentproject.connection qui ne marche pas.

Hélas.

[alassanediakite]

C'est l'affectation de cette connection au currentproject.connection qui ne marche pas.

Il ne suffit pas de dire "... ne marche pas" il faut ajouter la ligne qui provoque l'erreur et le message d'erreur.
Par ailleurs, je ne comprend pas le mot de passe vide ici...

ElseIf conn.Properties("Password") = "" Then
CurrentProject.OpenConnection conn.ConnectionString, conn.Properties("USER ID"), conn.Properties("Password")

@+

[jeffbarre]

Bonjour,

En fait ce code fonctionne pour access 2000 et je n'ai pas d'erreur.
Avec Access 2010, le délai de réponse du serveur est trop long.
L'erreur qui arrive est donc "impossible de se connecter vérifier que le serveur existe"
Quant au mot de passe vide : tu peux très bien avoir un mot de passe vide avec l'utilisateur sa pour SLQ Serveur 2000.
Voila.

[alassanediakite]

Salut
La machine qui porte access 2010 arrive-t-elle a communiquer avec celle qui porte SQL Server 2000 sur le réseau?
@+

[jeffbarre]

Bonjour,

Bien sur puisque le test de connexion via le .udl est ok.