Discussion :

[lakhdar16]

Bonjour,

je reviens vers vous mes amis(es) afin de trouver de l'aide de votre part concernant comment connecté une database (mdb) sécurisée avec mot de passe via la méthode ADO.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim oCns As ADODB.Connection ' Connexion Source
 
 
' ** Ouverture Connexion Source **
'On Error GoTo erreurConnexion
Set oCns = New ADODB.Connection
oCns.CursorLocation = adUseClient
oCns.ConnectionTimeout = 60  ' Timeout connexion 1mn
oCns.CommandTimeout = 300    ' Timeout requête   5mn
oCns.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\monserver\sharedfolders$\test.mdb;Password=PassText;Persist Security Info=False;"
oCns.Open

à l’exécution du code je reçois l'erreur suivante:
-147217843(80040e4d) : Impossible de démarrer votre application. Le fichier d'informations du groupe de travail est absent ou ouvert en mode exclusif par un autre utilisateur.

j'ai fais quelques recherches sur Google et je me suis tombé sur les fichiers *mdw.

j'ai changé mon code en:

Code :

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

1
2
3
oCns.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\monserver\sharedfolders$\test.mdb;Jet OLEDB:System Database=\\monserver\sharedfolders$\SYSTEM.mdw;Password=PassText;Persist Security Info=False;"
oCns.Open

meme résultat

comment connaitre l'emplacement des fichier mdw par défaut et comment le créer et l'utiliser dans mon cas.

remarque: j'utilise Access 2007 pour me connecté à la database mdb(2003)
merci d'avance pour l'aide que vous pouvez m'apporter.

cordialement.

[lakhdar16]

Bonjour,

j'ai modifié le code en ajoutant le chemin du fichier MDW à utiliser comme suite:

Code :

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

1
2
3
4
5
6
 
oCns.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\monserver\sharedfolders$\test.mdb;" & _
"Jet OLEDB:System Database=C:\Documents and Settings\Ma.Session\Application Data\Microsoft\Access\System1.mdw;" & _ 'ficher mdw par defaut
"User ID=;Password=PassText;Persist Security Info=False;"
oCns.Open

mais là encore je reçois une autre erreur disant: compte ou mot de passe invalide!

j'ai désactivé le mot de passe et j'ai enlevé la dernière partie qui mentionne le Mot de Passe:

Code :

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

1
2
3
4
5
oCns.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\monserver\sharedfolders$\test.mdb;" & _
"Jet OLEDB:System Database=C:\Documents and Settings\Ma.Session\Application Data\Microsoft\Access\System1.mdw;" & _ 'ficher mdw par defaut
"Persist Security Info=False;"
oCns.Open

là ça marche, puis-je avoir une correction de votre part SVP.

Merci

[lakhdar16]

Bonjour,

c'est réglé http://www.connectionstrings.com/access

Code :

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

1
2
3
4
oCns.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\monserver\sharedfolders$\test.mdb;" & _
"Jet OLEDB:Database Password=PassTxt;Persist Security Info=False;"
oCns.Open

cordialement.