Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1505 connectés 

  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  OpenCurrentDatabase avec Password

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

OpenCurrentDatabase avec Password

n°1018318
kilimanjar​o
Palm à 6000
Posté le 19-03-2005 à 13:11:12  profilanswer
 

Bonjour
 
Je dois sous VBA excel lancer une macro dans une base access munie d'un password
 
la commande OpenCurrentDatabase ne semble pas accepter le passage d'un password.
 
ainsi :
SUB LANCE
    Dim acApp As New Access.Application
    Set acApp = New Access.Application  
    acApp.OpenCurrentDatabase "D:\MABASE.mdb" , false , "MONPASSWORD"
    acApp.Run "MISE_A_JOUR_SAISIE"
    acApp.Quit
    Set acApp = Nothing
end sub
 
ne fonctionne pas (nombre d'arguments incorrect pour OpenCurrentDatabase)
 
Quelqu'un peut il m'aider ? (pour info cela marche sous Access2003 mais je suis sous Access2000)

Message cité 1 fois
Message édité par kilimanjaro le 20-03-2005 à 17:12:19
mood
Publicité
Posté le 19-03-2005 à 13:11:12  profilanswer
 

n°1019083
moi23372
Posté le 20-03-2005 à 17:34:46  profilanswer
 

normal que ça ne soit pas la connexion courante. La connexion courante signifie connexion à Excel lui même. Faut que tu ouvres différemments.  
 
je te conseille d'utilisé ADO pour faire la connexion, normalement tu as une chaine de connexion avec l'outil: "microsoft jet".  
 
J'espère t'avoir aider un peu. je ne saurais pas t'en dire plus, ça fais longtemps que je n'y ai plus touché.

n°1019261
kilimanjar​o
Palm à 6000
Posté le 20-03-2005 à 20:00:45  profilanswer
 

Merci, mais le probléme n'est pas là (sans mot de passe sur la base tout marche parfaitement bien) . Le probléme est de trouver comment passer le paramétre de mot de passe (il semble  qu'une piste soit de passer par un shell). Si quelqu'un a une idée ...

n°1019770
FlorentG
Unité de Masse
Posté le 21-03-2005 à 14:44:21  profilanswer
 

Marrant, y'a le bon nombre de paramètre :??:
Y'aurait pas un problème avec :

Dim acApp As New Access.Application
Set acApp = New Access.Application


:??:
Faudrait pas plutôt faire :

Dim acApp As Access.Application
Set appAccess = CreateObject("Access.Application" )


Message édité par FlorentG le 21-03-2005 à 14:44:43
n°1256776
Joyrock
Posté le 01-12-2005 à 13:23:53  profilanswer
 

kilimanjaro a écrit :

Bonjour
 
Je dois sous VBA excel lancer une macro dans une base access munie d'un password
 
la commande OpenCurrentDatabase ne semble pas accepter le passage d'un password.
 
ainsi :
SUB LANCE
    Dim acApp As New Access.Application
    Set acApp = New Access.Application  
    acApp.OpenCurrentDatabase "D:\MABASE.mdb" , false , "MONPASSWORD"
    acApp.Run "MISE_A_JOUR_SAISIE"
    acApp.Quit
    Set acApp = Nothing
end sub
 
ne fonctionne pas (nombre d'arguments incorrect pour OpenCurrentDatabase)
 
Quelqu'un peut il m'aider ? (pour info cela marche sous Access2003 mais je suis sous Access2000)


 
T'as trouvé la solutin à ton pb ? j'ai le même pb.

n°1294317
kilimanjar​o
Palm à 6000
Posté le 29-01-2006 à 18:49:36  profilanswer
 

Voilà ce que j'ai fait  
    Dim strDbName As String
    Dim MaTable As DAO.Recordset
    strDbName = "d:\CHEMIN\TOTO.mdb"
    Set labase = OpenDatabase(strDbName, False, False, "MS Access;PWD=MONMOTPASSE" )


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  OpenCurrentDatabase avec Password

 

Sujets relatifs
[MYSQL] PASSWORDlogin et password ne marche qu'une fois
type password avec target ?Password
accéder au login et au password de W2000myphpadmin password
Password : cryptage ou po cryptage ?!password sur site en php ou ASP
password active directory[ASP 3.0] Pb de connexion + encodage PassWord
Plus de sujets relatifs à : OpenCurrentDatabase avec Password


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR