OVH Cloud OVH Cloud

accès à une base externe avec mot de passe

2 réponses
Avatar
Yves
Bonjour,
J'utilise du code ADO pour accéder à une base externe avec mon application.
La base externe a un mot de passe (défini avec l'option Outil => Sécurité =>
Définir le mot de passe)

Mais pb, le code n'arrive pas à l'ouvrir , voici ce que je tape : (le mot de
passe est toto)

Dim cnn1 As New ADODB.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn1.Open "Data
Source=c:\basequicketiq.mdb;userid=Administrateur;password=toto"


L'erreur renvoyée est : "le fichier d'information du groupe de travail est
absent" ; je ne sais pas ce qu'est ce fichier?

merci

2 réponses

Avatar
Benoit Compoint [MS]
Bonjour,

Vous pouvez utiliser la syntaxe suivante pour ouvrir votre base sécurisée
par le mot de passe toto :
cnn1.Open "Data Source=c:basequicketiq.mdb;" & _
"Jet OLEDB:Database Password=toto"

Rappel des deux lignes de code VBA précédentes :
Dim cnn1 As New ADODB.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.4.0"

Le fichier d'information du groupe de travail est généralement nommé
System.mdw.
Il serait nécessaire de le préciser dans la chaîne de connexion si vous
exploitiez la sécurité "au niveau utilisateur" offerte par le moteur Jet.

Benoît Compoint

"Yves" wrote in message
news:btgqv3$je8$
Bonjour,
J'utilise du code ADO pour accéder à une base externe avec mon
application.

La base externe a un mot de passe (défini avec l'option Outil => Sécurité
=>

Définir le mot de passe)

Mais pb, le code n'arrive pas à l'ouvrir , voici ce que je tape : (le mot
de

passe est toto)

Dim cnn1 As New ADODB.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn1.Open "Data
Source=c:basequicketiq.mdb;userid­ministrateur;password=toto"


L'erreur renvoyée est : "le fichier d'information du groupe de travail est
absent" ; je ne sais pas ce qu'est ce fichier?

merci




Avatar
Yves
Merci Benoit, ça marche parfaitement
"Benoit Compoint [MS]" a écrit dans le
message de news:
Bonjour,

Vous pouvez utiliser la syntaxe suivante pour ouvrir votre base sécurisée
par le mot de passe toto :
cnn1.Open "Data Source=c:basequicketiq.mdb;" & _
"Jet OLEDB:Database Password=toto"

Rappel des deux lignes de code VBA précédentes :
Dim cnn1 As New ADODB.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.4.0"

Le fichier d'information du groupe de travail est généralement nommé
System.mdw.
Il serait nécessaire de le préciser dans la chaîne de connexion si vous
exploitiez la sécurité "au niveau utilisateur" offerte par le moteur Jet.

Benoît Compoint

"Yves" wrote in message
news:btgqv3$je8$
Bonjour,
J'utilise du code ADO pour accéder à une base externe avec mon
application.

La base externe a un mot de passe (défini avec l'option Outil =>
Sécurité


=>
Définir le mot de passe)

Mais pb, le code n'arrive pas à l'ouvrir , voici ce que je tape : (le
mot


de
passe est toto)

Dim cnn1 As New ADODB.Connection
cnn1.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn1.Open "Data
Source=c:basequicketiq.mdb;userid­ministrateur;password=toto"


L'erreur renvoyée est : "le fichier d'information du groupe de travail
est


absent" ; je ne sais pas ce qu'est ce fichier?

merci