Discussion :

[Triton972]

Bonjour,

J'ai une application en ACCESS 2007 qui est liée avec une base chiffrée avec un Password. Dans la routine de mise à jour des liaisons j'ai intégré ce mot de passe ce qui permet aux utilisateurs de se connecter "proprement" si ils ont la base avec le bon mot de passe.
Par contre j'ai un problème : Si la base ne comporte pas de mot de passe je peux quand même me connecter et je voudrais interdire cela.
Est-ce possible d'interdire la connexion avec une base dorsale qui n'A PAS de mot de passe ?
Merci de votre contribution

[LedZeppII]

Bonjour,

Tu peux tester si la base à laquelle t'attacher est protégée ou non avec DAO.

Par exemple si je crée une fonction comme celle-ci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function PeutOuvrirBDD(strDB As String) As Long
Dim db As DAO.Database, lRetval As Long
 
On Error GoTo ErrH
Set db = OpenDatabase(strDB, False, True)
db.Close
lRetval = 0
 
Exit_Func:
Set db = Nothing
PeutOuvrirBDD = lRetval
Exit Function
 
ErrH:
lRetval = Err.Number
Resume Exit_Func
End Function

Je peux l'exploiter ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim strDB As String, lErrNum As Long
 
' on suppose que le chemin complet de la base de données à tester
' est dans la variable strDB
 
lErrNum = PeutOuvrirBDD(strDB)
Select Case lErrNum
    Case 0
        ' BDD peut être ouverte sans mot de passe
 
    Case 3031
        ' BDD protégée par mot de passe
 
    Case Else
        ' Une erreur s'est produite lors de la tentative d'ouverture
End Select

A+

[Triton972]

Merci LedZeppII,

Ta technique est astucieuse et marche parfaitement, je te remercie.
J'ai un dernier souci dans la même veine et j'espère que tu pourras me donner un coup de main :
Je dois fabriquer une base et ajouter des tables spécifiques, pour ce faire j'utilise le code suivant :

Code :

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

1
2
3
 
Set acApp = New Access.Application
acApp.OpenCurrentDatabase stBase2, True, ";PWD=" & stPassword

mais ACCESS me demande néanmoins d'entrer le mot de passe pour pouvoir activer la commande.
Comment dois-je faire, ou ai-je loupé quelque chose ?

Merci de votre aide

[LedZeppII]

Bonsoir,

Il n'y a pas besoin de ";pwd=".

Le dernier argument est simplement le mot de passe.

Code :

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

1
2
Set acApp = New Access.Application
acApp.OpenCurrentDatabase stBase2, True, stPassword

A+

[Triton972]

Merci LedZeppII, tu m'enlève mes problèmes 1 par 1
Un de mes derniers soucis est dans le code ci dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Set acApp = New Access.Application
acApp.OpenCurrentDatabase stBase2, True, stPassWord
 
DoCmd.SetWarnings False
 
With acApp
 
Set DbPermanent = DBEngine.OpenDatabase(stBase1) 'Base permamente
 
For Each tdf In DbPermanent.TableDefs
  If (tdf.Attributes And dbSystemObject) = 0 Then     ' enlève les tables systèmes
    stTab0 = tdf.Name
    acApp.DoCmd.TransferDatabase acImport, "Microsoft Access", stBase1, acTable, stTab0, stTab0
    Debug.Print tdf.Name
  End If
Next
 
stSQL = "DELETE * FROM T_MOD " _
    & " WHERE C_MOD_NMOD not IN " _
    & " (SELECT C_RMI_NMOD FROM T_RRE;);"
.DoCmd.RunSQL stSQL
 
....
 
End With
 
...
Erreur:
Traite_Table = -3
DoCmd.SetWarnings True
Set acApp = Nothing
 
End Function

Je réintègre des tables de stBase1 vers stBase2 puis, je "nettoie" certaines des tables intégrées avec une requête SQL.
Malheureusement l'action est interrompue et le code erreur est 2501 = "L'action RunSQL a été annulée."

As-tu une idée pour régler ce problème ?
Merci par avance.

[micniv]

Enlève les ; dans la requete ( : 2 c'est déjà 1 de trop)
Enlève le . à

Code :

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

.DoCmd.RunSQL stSQL

[Triton972]

Merci micniv
Je suis d'accord pour les ";" mais moins pour le "." devant "DoCmd".
Je veux en effet exécuter le code SQL sur l'autre instance de ACCESS ouverte (acApp) avec la base stBase2, c'est pour cela que j'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
acApp.OpenCurrentDatabase stBase2, True, stPassWord

With acApp
stSQL = "DELETE * FROM T_MOD " _
    & " WHERE C_MOD_NMOD not IN " _
    & " (SELECT C_RMI_NMOD FROM T_RRE)"
.DoCmd.RunSQL stSQL

End With

sinon j'applique la requête à la base active et ce n'est pas ce que je veux ...
Apparemment ce code semblait marcher avant que je rajoute les accès avec mot de passe. Peut être que cette technique n'est pas la meilleure avec cette contrainte ?