Bonjour

J'ai une fonction qui fonctionnait parfaitement depuis des lustres et depuis aujourd'hui, il arrive qu'elle me donne le message d'erreur
Le projet Test.exe a provoqué une classe d'exception avec le message Zquery: champs '' non trouvé'
Voici la fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Function TableExist(TableName : String): Boolean;
Begin
 Zquery.SQL.Clear;
 ZQuery.SQL.Add('SELECT COUNT(*) AS COMBIEN FROM RDB$RELATIONS  WHERE RDB$RELATION_NAME = '+
                QuotedStr(TableName));
 Zquery.ExecSQL  ;
 Zquery.Active:=true;
if DataSourceZQuery.DataSet.FieldByName ('COMBIEN').asinteger > 0 then
                    Result := True
                                                                  else
                    Result := False;
End;
Cette fonction est appelée plusieurs fois sans problème dans le programme.
Elle plante quand le composant a été utilisé précédemment avec une autre requête.

Je serai reconnaissant envers celui qui m'apprendrais ce que je dois faire pour résoudre ce problème.