Bonjour
J'ai une fonction qui fonctionnait parfaitement depuis des lustres et depuis aujourd'hui, il arrive qu'elle me donne le message d'erreurVoici la fonction :Le projet Test.exe a provoqué une classe d'exception avec le message Zquery: champs '' non trouvé'Cette fonction est appelée plusieurs fois sans problème dans le programme.
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;
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.
Partager