OpenCurrentDatabase avec Password

OpenCurrentDatabase avec Password - SQL/NoSQL - Programmation

Marsh Posté le 19-03-2005 à 13:11:12    

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
Reply

Marsh Posté le 19-03-2005 à 13:11:12   

Reply

Marsh Posté le 20-03-2005 à 17:34:46    

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é.

Reply

Marsh Posté le 20-03-2005 à 20:00:45    

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 ...

Reply

Marsh Posté le 21-03-2005 à 14:44:21    

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
Reply

Marsh Posté le 01-12-2005 à 13:23:53    

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.

Reply

Marsh Posté le 29-01-2006 à 18:49:36    

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" )

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed