Bonjour,

Je souhaiterai me connecter à un serveur SQL depuis Access2000. Pour tester la connection j'ai écrit le script 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
 
Private Sub TestConnection_Click()
 
Dim cnx As New ADODB.Connection
 
Set cnx = New ADODB.Connection
 
cnx.ConnectionString = "Provider = sqloledb ; Data Source = NomServer ; Initial catalog = NomBase ; User ID = MonID ; Password = MonPWD ;" 
 
cnx.Open 
 
If cnx.State = adStateOpen Then
    MsgBox ("Connexion OK")
    Else
    MsgBox ("Erreur")
End If
 
End Sub
Cela me retourne " Login failed for user ".

Au départ je pensais qu'il s'agissait des enderscores du mot de passe alors j'ai fait changer ce dernier mais j'ai toujours la même erreur. Sachant qu'en plus j'ai les droits d'Administrateur sur la base SQL Server.