Discussion :

[Monkey_D.Luffy]

Bonjour,

J'essaie de me connecter en Adodb à une base protégée par mot de passe.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'Connexion à la base
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
 
'Ouverture de la connexion
With cnx
    .Provider = "Microsoft.Jet.OLEDB.4.0;"
    .Properties("JET OLEDB:System Database") = "C:\Users\System.mdw"
    .Open "Data Source=C:\Users\MaBase.mdb;User ID=Admin;Password=pwd"
End With

Cela me renvoie l'erreur "Not a valid account or password"


Pourtant le password est le bon, et j'ai bien un compte Admin présent dans MaBase.mdb (Tools > Security > User and Groups permissions).

Comment corriger cela selon vous ?
Merci d'avance pour votre aide.

[Godzestla]

Bonjour,

peut-être comme ceci en décomposant le connect et l'open (mais je n'ai jamais fait d'ADO avec Access, alors je ne sais pas où ni comment caser ton paramètre properties

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Connexion à la base
Dim cn As New ADODB.Connection
Dim rs          As New ADODB.Recordset
Dim sConn       As String
 
sConn = "provider=Microsoft.Jet.OLEDB.4.0; Data source=C:\Users\MaBase.mdb;User ID=Admin;Password=pwd"
 
 
    'Open Connection
    cn.ConnectionString = sConn
    cn.Open