Bonjour,
Je me trouve confronté à un problème que je n'ai jamais rencontré et qui sur les sites que j'ai pu visiter ne correspond pas à mes recherches.
Un message d'erreur du type :



L'erreur se situe au moment du try Open; (en rouge)
Je précise que j'ai une fenêtre juste avant et celle-ci est crée a partir d'un menu de la première fenêtre et permet à partir d'une identification sur la BDD (Firebird) de passer à une autre fenêtre et modifier des paramètres de Port.

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
procedure TForm2.btConnectClick(Sender: TObject);
begin
   with ZQuery1 do
      Begin
        Close;
        SQL.Clear;
        SQL.add('SELECT Login, Password FROM COMPTE WHERE Login = '+ ''''+ eUser.Text + '''' +' AND Password = '+ ''''+ ePass.Text + '''' +'');
        try Open;
          except ShowMessage('Erreur');
        end;
      //Si la requete est 'vide'
      if IsEmpty then
        Begin
          //Affiche erreur
          ShowMessage('Le mot de passe ou le nom utilisateur saisie est incorrect');
          //Reset du champ texte ePass pour resaisir un mot de passe
          ePass.Clear;
        end
      //Sinon lancement du formBaseDeDonnée
      else
        begin
         // On ferme la fiche de connection
         fiche.close;
         // On fait pointer la variable fiche sur nil (rien)
         fiche:=nil;
         // on libère la mémoire
         fiche.free;
         // On créé l'espace mémoire pour la fiche de paramètre COM
         fiche2:=TForm3.create(application);
         // On affiche la fiche de paramètre COM de manière modale
         fiche2.showmodal;
         end;
      end;
end;
Lors de mes recherches, je retrouve souvent que cette erreur apparaît lors d'une mauvaise initialisation ou d'une libération d'un objet déjà libéré. Chose que je pense avoir bien fait ??

Merci de toute aide à venir de votre part =)