Discussion :

[hocine]

Bonjour, j'ai une base de de données access protégée par mot de passe. Un utilisateur a le mot passe. Je souhaite gérer le message d'erreur "mot de passe incorrect" quand l'utilisateur entre un mauvais mot de passe, pour pouvoir l'orienter vers la fiche de saisie de mot de passe de la base de données.
Je développe avec delphi 7.
Mes sincères remerciements.

[Ph. B.]

Bonjour,

Bonjour, j'ai une base de de données access protégée par mot de passe. Un utilisateur a le mot passe. Je souhaite gérer le message d'erreur "mot de passe incorrect" quand l'utilisateur entre un mauvais mot de passe, pour pouvoir l'orienter vers la fiche de saisie de mot de passe de la base de données.

Si le message d'erreur est la conséquence d'une exception, alors un bloc try ... except ... end devrait faire l'affaire. Voir ci-après un squelette de code, à adapter et vérifier bien sur !

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
var
  NbEssai : Integer;
  Ok: Boolean;
// ...
  NbEssai := 3;
  repeat 
    try
      Ok := False;
      // Connexion
      //...
      Ok := True;
    except
      // On considère que l'on travaille avec le BDE... 
      on E:EDBEngineError do
      begin
        if E.ErrorCode = 10015 then
        begin
          NbEssai := NbEssai - 1;
          ShowMessage(E.message + Format('Il vous reste %d essai(s)', [NbEssai]));
      end
      else
      begin
        ShowMessage(Format('Erreur %d : %s', [E.ErrorCode, E.Message]));
        NbEssai := 0;
      end;
    end;
  until Ok or (NbEssai =0);
  //
  if not OK then
  begin
    // Traitement suite à non connexion
  end;

Je développe avec delphi 7.

Il manque la version d'Access (7, 2000, autre ?), la bibliothèque de gestion (BDE, ADO, autre ?) et le pilote (Ole, ODBC).