Erreur aléatoire sur une fonction

**defluc** · 10/09/2007, 14h30

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.

**abdelghani_k** · 10/09/2007, 15h40

Bonjour,

Apparement dans ton IBQuery tu as ajouté les champs et par la suite tu as changé carrement ta requête ce qui te donne champ inexistant.

exemple :
si un IBQuery contient dans son SQL le texte suivant :

Code :

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

1
2
 
SELECT COUNT(*) FROM FACTURE

En rajoutant les champs à IBQuery me donne COUNT comme champ.
et si veux utiliser IBQuery pour une autre requette :

Code :

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

1
2
3
4
 
IBQuery.close;
IBQuery.sql.text:='SELECT SUM(TTC) FROM FACTURE';
IBQuery.Open; // à ce moment le programme génére IBQuery:champ COUNT non trouvé.

le programme ne génère pas une erreur si on maintient le même nom de champ:

Code :

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

1
2
3
4
IBQuery.close;
IBQuery.sql.text:='SELECT COUNT(*) FROM LIVRAIS';
IBQuery.Open; // à ce moment le programme génére IBQuery:champ COUNT non trouvé.

**Cl@udius** · 10/09/2007, 15h45

Salut

Un ExecSQL et un Active := True en même temps cela me parait bizarre !
Je ferais plutot ceci, un Open sur une instruction Select suffit:

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function TableExists(TableName : String): Boolean;
begin
  with ZQuery do
  begin
    SQL.Clear;
    SQL.Add('SELECT COUNT(*) AS COMBIEN');
    SQL.Add('FROM RDB$RELATIONS');
    SQL.Add('WHERE RDB$RELATION_NAME = ' + QuotedStr(TableName));
    Open;
    result := FieldByName('COMBIEN').AsInteger > 0;
    Close;
  end;
end;

Perso j'aurais posé cette question dans le forum Delphi - Bases de données.
Pas grand chose à voir avec IB/FB.

@+ Claudius

**defluc** · 10/09/2007, 16h04

Perso j'aurais posé cette question dans le forum Delphi - Bases de données.

tu as raison mais j'ai cru un moment que c'était une faille de la requête.
Pour le reste, j'avais résolu le problème en fermant la requête qui précédait l'utilisation de ma fonction.

Merci quand même pour ta source plus propre et élégante que la mienne.

**Cl@udius** · 10/09/2007, 16h12

Envoyé par defluc

Merci quand même pour ta source plus propre et élégante que la mienne.

Avec plaisir

Dans ce type de fonction, je veille toujours à ce que la requête soit immédiatement refermée une fois que j'ai récupéré l'info, voir en plus un p'tit Commit pour conclure.

@+ Claudius.