Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Acces access avec mdp

Acces access avec mdp

5 réponses
Avatar
Benoit
Bonjour toutes et tous,
Il y 3 ans.. et oui, d=E9j=E0, vous m'aviez aid=E9 pour ouvrir=20
une base de donn=E9es Access avec mot de passe via VB/VBA.
Voici ce qui =E0 tres bien marche pendant 3 ans.

Set db =3D OpenDatabase("\\BATAX350\Rapact\donnees.mdb",=20
False, False, "MS Access;PWD=3D1234").

Mais on est pass=E9 de win98 a win2000 et access 2000. J'ai=20
d=E8j=E0 r=E9gl=E9 tout les probl=E8mes d'un upgrade. Et =E7a marche=20
parfaitement. Sauf avec mot de passe.

Mais que faut t'il donc changer pour que =E7a marche ?
Une id=E9e ?
Merci,
Benoit,
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonsoir Benoît,


================================== Voici la ligne de commande pour ouvrir une base de données
avec DAO. Attention si la ligne de code est coupée par la
"messagerie".

Ma base de données : "C:Mes Documentsbd1.mdb"

Les 2 propriétés suivantes doivent correspondre à l'état de la base de données à ouvrir. En aucun temps, cette ligne de
commande peut modifier l'état de ces 2 propriétés.

Lorsque la table est ouverte : barre des menus / outils / options / onglet Avancé / Mode partagé ou exclusif
La base doit être ouvert en mode exclusif : True

Dans l'explorateur, un clic droit sur la base de données, propriétés : Est-elle en lecture seule ? True or false
La base n'est pas en lecture seule : false

La connexion : "MS Access;PWD=toto"
Le Mot de passe de ma base est : toto

Set db = OpenDatabase("C:Mes Documentsbd1.mdb", True, False, "MS Access;PWD=toto")

P.S. Je travaille sous office 2000

La bibliothèque qui doit être chargé est "Mcrosoft DAO 3.6 object library"
=========================================

Salutations!



"Benoit" a écrit dans le message de news:042801c3dd44$a82ecd60$
Bonjour toutes et tous,
Il y 3 ans.. et oui, déjà, vous m'aviez aidé pour ouvrir
une base de données Access avec mot de passe via VB/VBA.
Voici ce qui à tres bien marche pendant 3 ans.

Set db = OpenDatabase("BATAX350Rapactdonnees.mdb",
False, False, "MS Access;PWD34").

Mais on est passé de win98 a win2000 et access 2000. J'ai
dèjà réglé tout les problèmes d'un upgrade. Et ça marche
parfaitement. Sauf avec mot de passe.

Mais que faut t'il donc changer pour que ça marche ?
Une idée ?
Merci,
Benoit,
Avatar
Benoit
Cher michDenis.
Je me rappelle, c'est toi qui m'avais donné cettte info..
Il y a longtemps. Merciiiiii.
J'utilise toujours exactement la ligne de commande que tu
me repropose. Mais depuis Win2000 et Access 2000, ca ne
conviens plus.
C'est bien ça mon probleme.
Une idée ?
Merci, Benoit,


-----Message d'origine-----
Bonsoir Benoît,


======================== ===========
Voici la ligne de commande pour ouvrir une base de données
avec DAO. Attention si la ligne de code est coupée par la
"messagerie".

Ma base de données : "C:Mes Documentsbd1.mdb"

Les 2 propriétés suivantes doivent correspondre à l'état
de la base de données à ouvrir. En aucun temps, cette

ligne de
commande peut modifier l'état de ces 2 propriétés.

Lorsque la table est ouverte : barre des menus / outils /
options / onglet Avancé / Mode partagé ou exclusif

La base doit être ouvert en mode exclusif : True

Dans l'explorateur, un clic droit sur la base de
données, propriétés : Est-elle en lecture seule ? True or

false
La base n'est pas en lecture seule : false

La connexion : "MS Access;PWD=toto"
Le Mot de passe de ma base est : toto

Set db = OpenDatabase("C:Mes Documentsbd1.mdb", True,
False, "MS Access;PWD=toto")


P.S. Je travaille sous office 2000

La bibliothèque qui doit être chargé est "Mcrosoft DAO
3.6 object library"

======================== ==================


Salutations!



"Benoit" a écrit dans le
message de news:042801c3dd44$a82ecd60$

Bonjour toutes et tous,
Il y 3 ans.. et oui, déjà, vous m'aviez aidé pour ouvrir
une base de données Access avec mot de passe via VB/VBA.
Voici ce qui à tres bien marche pendant 3 ans.

Set db = OpenDatabase("BATAX350Rapactdonnees.mdb",
False, False, "MS Access;PWD34").

Mais on est passé de win98 a win2000 et access 2000. J'ai
dèjà réglé tout les problèmes d'un upgrade. Et ça marche
parfaitement. Sauf avec mot de passe.

Mais que faut t'il donc changer pour que ça marche ?
Une idée ?
Merci,
Benoit,




.



Avatar
Benoit
Oups, j'oubliais, Je suis bien passer a DAO 3.60 au lieu
du 3.51.
Benoit,


-----Message d'origine-----
Bonsoir Benoît,


======================== ===========
Voici la ligne de commande pour ouvrir une base de données
avec DAO. Attention si la ligne de code est coupée par la
"messagerie".

Ma base de données : "C:Mes Documentsbd1.mdb"

Les 2 propriétés suivantes doivent correspondre à l'état
de la base de données à ouvrir. En aucun temps, cette

ligne de
commande peut modifier l'état de ces 2 propriétés.

Lorsque la table est ouverte : barre des menus / outils /
options / onglet Avancé / Mode partagé ou exclusif

La base doit être ouvert en mode exclusif : True

Dans l'explorateur, un clic droit sur la base de
données, propriétés : Est-elle en lecture seule ? True or

false
La base n'est pas en lecture seule : false

La connexion : "MS Access;PWD=toto"
Le Mot de passe de ma base est : toto

Set db = OpenDatabase("C:Mes Documentsbd1.mdb", True,
False, "MS Access;PWD=toto")


P.S. Je travaille sous office 2000

La bibliothèque qui doit être chargé est "Mcrosoft DAO
3.6 object library"

======================== ==================


Salutations!



"Benoit" a écrit dans le
message de news:042801c3dd44$a82ecd60$

Bonjour toutes et tous,
Il y 3 ans.. et oui, déjà, vous m'aviez aidé pour ouvrir
une base de données Access avec mot de passe via VB/VBA.
Voici ce qui à tres bien marche pendant 3 ans.

Set db = OpenDatabase("BATAX350Rapactdonnees.mdb",
False, False, "MS Access;PWD34").

Mais on est passé de win98 a win2000 et access 2000. J'ai
dèjà réglé tout les problèmes d'un upgrade. Et ça marche
parfaitement. Sauf avec mot de passe.

Mais que faut t'il donc changer pour que ça marche ?
Une idée ?
Merci,
Benoit,




.



Avatar
michdenis
Bonjour Benoît,

Le code suivant a été testé à partir d'Access 2003 sur la base "Comptoir.mdb", issu du CD d'installation Access 2000.
Je ne rencontre aucune difficulté. Il faudrait que tu précises le problème que tu rencontres.

Mot de passe : toto
Base de données "Comptoir" : Mode exclusif : True
Base de données "Comptoir" : Lecture seulement : False

La bibliothèque "Mcrosoft DAO 3.6 object library" est chargée.

'------------------------------
Sub ouvrirBaseMdb()

Dim Db As DAO.Database
Dim rst As DAO.Recordset

Set Db = OpenDatabase("C:Mes Documentscomptoir.mdb", True, False, "MS Access;PWD=toto")

Set rst = Db.OpenRecordset("Clients", dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
MsgBox rst.RecordCount

Set rst = Nothing
Set Db = Nothing

End Sub
'------------------------------


Salutations!






"Benoit" a écrit dans le message de news:041901c3ddaf$352a8460$
Oups, j'oubliais, Je suis bien passer a DAO 3.60 au lieu
du 3.51.
Benoit,


-----Message d'origine-----
Bonsoir Benoît,


================================== >Voici la ligne de commande pour ouvrir une base de données
avec DAO. Attention si la ligne de code est coupée par la
"messagerie".

Ma base de données : "C:Mes Documentsbd1.mdb"

Les 2 propriétés suivantes doivent correspondre à l'état
de la base de données à ouvrir. En aucun temps, cette

ligne de
commande peut modifier l'état de ces 2 propriétés.

Lorsque la table est ouverte : barre des menus / outils /
options / onglet Avancé / Mode partagé ou exclusif

La base doit être ouvert en mode exclusif : True

Dans l'explorateur, un clic droit sur la base de
données, propriétés : Est-elle en lecture seule ? True or

false
La base n'est pas en lecture seule : false

La connexion : "MS Access;PWD=toto"
Le Mot de passe de ma base est : toto

Set db = OpenDatabase("C:Mes Documentsbd1.mdb", True,
False, "MS Access;PWD=toto")


P.S. Je travaille sous office 2000

La bibliothèque qui doit être chargé est "Mcrosoft DAO
3.6 object library"

========================================= >

Salutations!



"Benoit" a écrit dans le
message de news:042801c3dd44$a82ecd60$

Bonjour toutes et tous,
Il y 3 ans.. et oui, déjà, vous m'aviez aidé pour ouvrir
une base de données Access avec mot de passe via VB/VBA.
Voici ce qui à tres bien marche pendant 3 ans.

Set db = OpenDatabase("BATAX350Rapactdonnees.mdb",
False, False, "MS Access;PWD34").

Mais on est passé de win98 a win2000 et access 2000. J'ai
dèjà réglé tout les problèmes d'un upgrade. Et ça marche
parfaitement. Sauf avec mot de passe.

Mais que faut t'il donc changer pour que ça marche ?
Une idée ?
Merci,
Benoit,




.



Avatar
Benoit
Salut,
Effectivement, suite a ton message et des essais je suis
tombé sur un equivalemnt qui fonctionne.


Set db = DBEngine(0).OpenDatabase(sPath)
Set rs = db.OpenRecordset("TblRapport")
Set Data1.Recordset = rs
Set db = OpenDatabase("BATAX350Rapactdonnees.mdb",
False, False, "MS
Access;PWD34")

Merci, Benoit,

-----Message d'origine-----
Bonjour Benoît,

Le code suivant a été testé à partir d'Access 2003 sur la
base "Comptoir.mdb", issu du CD d'installation Access 2000.

Je ne rencontre aucune difficulté. Il faudrait que tu
précises le problème que tu rencontres.


Mot de passe : toto
Base de données "Comptoir" : Mode exclusif : True
Base de données "Comptoir" : Lecture seulement : False

La bibliothèque "Mcrosoft DAO 3.6 object library" est
chargée.


'------------------------------
Sub ouvrirBaseMdb()

Dim Db As DAO.Database
Dim rst As DAO.Recordset

Set Db = OpenDatabase("C:Mes Documentscomptoir.mdb",
True, False, "MS Access;PWD=toto")


Set rst = Db.OpenRecordset("Clients", dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
MsgBox rst.RecordCount

Set rst = Nothing
Set Db = Nothing

End Sub
'------------------------------


Salutations!






"Benoit" a écrit
dans le message de news:041901c3ddaf$352a8460

$
Oups, j'oubliais, Je suis bien passer a DAO 3.60 au lieu
du 3.51.
Benoit,


-----Message d'origine-----
Bonsoir Benoît,


======================== ===========
Voici la ligne de commande pour ouvrir une base de
données


avec DAO. Attention si la ligne de code est coupée par la
"messagerie".

Ma base de données : "C:Mes Documentsbd1.mdb"

Les 2 propriétés suivantes doivent correspondre à l'état
de la base de données à ouvrir. En aucun temps, cette

ligne de
commande peut modifier l'état de ces 2 propriétés.

Lorsque la table est ouverte : barre des menus / outils /
options / onglet Avancé / Mode partagé ou exclusif

La base doit être ouvert en mode exclusif : True

Dans l'explorateur, un clic droit sur la base de
données, propriétés : Est-elle en lecture seule ? True or

false
La base n'est pas en lecture seule : false

La connexion : "MS Access;PWD=toto"
Le Mot de passe de ma base est : toto

Set db = OpenDatabase("C:Mes Documentsbd1.mdb", True,
False, "MS Access;PWD=toto")


P.S. Je travaille sous office 2000

La bibliothèque qui doit être chargé est "Mcrosoft DAO
3.6 object library"

======================== ==================


Salutations!



"Benoit" a écrit dans le
message de news:042801c3dd44$a82ecd60$

Bonjour toutes et tous,
Il y 3 ans.. et oui, déjà, vous m'aviez aidé pour ouvrir
une base de données Access avec mot de passe via VB/VBA.
Voici ce qui à tres bien marche pendant 3 ans.

Set db = OpenDatabase("BATAX350Rapactdonnees.mdb",
False, False, "MS Access;PWD34").

Mais on est passé de win98 a win2000 et access 2000. J'ai
dèjà réglé tout les problèmes d'un upgrade. Et ça marche
parfaitement. Sauf avec mot de passe.

Mais que faut t'il donc changer pour que ça marche ?
Une idée ?
Merci,
Benoit,




.




.