Discussion :

[seb7710]

Bonjour,

Je développe des applications en Delphi 7. Celles-ci sont connectées à des bases de données en Firebird 2.1.
Certaines tables contiennent des champs calculé via une procédure stockée.

D'un point de vue base de données, ca a l'air OK: lorsque je consulte les table via un logiciel style EMS sql manager, je vois bien que des valeurs ont été calculées pour ces champs.

Par contre, il arrive que dans Delphi, un Select champ_calculé from ma table where id = 'xx' ne retourne plus rien alors que le champs calculé n'est pas vide à la ligne dont l'id = 'xx' et qu’auparavant, il n'y avait pas de problème pour récupérer la valeur de ce champs calculé.

En apparence, ce bug est apparu d'un plein coup dans un programme.

Celui-ci contient un composant TIBOQuery où j'ai un
select champs_1, champs_2, ... champs_n, champs_calc_1, champs_calc_2
FROM
MaTable
Where ID = arametre;

Dans delphi, lorsque j'utilise l'éditeur de query, où je prépare la query, puis lui passe les même paramètres que ceux passé lors de l'exécution du programme, et enfin affiche le résultat, je vois les valeurs calculées!

Dans le programme on a une DBGrid liée au résultat de la query. Pour l'instant, elle n'affiche plus la valeur de champs_calc_2 .. par contre pas de problème pour champs_calc_1 (remarque : ces 2 champs sont calculé via une même procédure stockée).

J'ai bien vérifié que la propriété Fieldname de la colonne du dbGrid a bien pour valeur "champs_calc_2", si je change en mettant "champs_calc_1" des valeurs apparaissent évidemment mais concernant "champs_calc2" ca a l'air vide (j'ai fais une boucle sur le resultat de la requete où j'affiche via un showMessage la valeur du champs, et il ne met rien valeur = '' ...).

Anciennement cela s'était déja produit pour le même programme mais cette fois là, cela concernait "champs_calc1" et "champs_calc2".
La solution d'urgence trouvée avait été de créer 2 champs data supplémentaire mis à jour lorsque la valeur du champs calculé était modifiée .. puis de modifier le select pour récupérer la valeur du champs data et non plus du champs calculé..

Dans notre service, on a une base de données par année, et lorsqu'une année se clôture, on recopie la base de données en la renommant en fonction de la nouvelle année, on vide des tables, (etc..) puis on re-compile les programmes sur cette nouvelle base de données pour fournir de nouveaux programmes aux utilisateur.

Suite à un nouveau programme, le bug "champs_calc1" et "champs_calc2" vide avait disparu ... et puis là, paf c'est revenu pour une raison que j'ignore, et cette fois pour "champs_calc2" uniquement.

De mon point de vue, le code du programme est ok et du coté de la base de données, il y a bien des valeurs dans ces champs calculé.

Se pose la question du pourquoi ca ne fonctionne pas ... plus.. (enfin à moitié cette fois!!)...

Remarque: le serveur Firebird était anciennement sur un serveur Windows 2003 server, et il est depuis cette année sur windows server 2008.
La version du serveur Firebird n'a pas changé (2.1.3.18185).

Avez-vous déjà rencontré ce type d'erreur?
Avez-vous des pistes à me suggérer??

Merci d'avance pour les pistes que vous pourrez me donner.
Sébastien

[ShaiLeTroll]

Lorsque tu parles de champs calculés, cela a-t-il un apport avec OnCalcFields ou InternalCalcField
OnCalcFields étant interne à Delphi
InternalCalcField indiquant que le champ est issu d'une formule genre "A + B as C" et non directement un champ de la DB

Comment fais-tu le lien entre ces champs et les procédures stockées, c'est directement dans le SELECT ou tu appels manuellement les procédures stockées dans OnCalcFields

Le TDBGrid contient des colonnes prédéfinies ou c'est générer à la volée lors de l'ouverture du Query ?

le TIBOQuery contient des champs persistants ou ils sont construit lors du Open ?
TIBOQuery est bien différent du TIBQuery (Interbase Express) qui n'est pas conseillé pour FB dont on recommande l'accès avec UIB (si il n'existe pas déjà autre chose de mieux depuis)

[seb7710]

Lorsque tu parles de champs calculés, cela a-t-il un apport avec OnCalcFields ou InternalCalcField
OnCalcFields étant interne à Delphi
InternalCalcField indiquant que le champ est issu d'une formule genre "A + B as C" et non directement un champ de la DB

Comment fais-tu le lien entre ces champs et les procédures stockées, c'est directement dans le SELECT ou tu appels manuellement les procédures stockées dans OnCalcFields

Le champ est calculé directement au niveau de la base de données:
dans la structure de la table j'ai deux champs computed by Select(Val_1) from MaProcedureStockee(arg1).

Au niveau de la query dans delphi, j'ai donc uniquement
Select MonChampCalculé from ma_table.

Le TDBGrid contient des colonnes prédéfinies ou c'est générer à la volée lors de l'ouverture du Query ?

Les colonnes sont prédéfinies à l'avance.

le TIBOQuery contient des champs persistants ou ils sont construit lors du Open ?

Je ne suis pas tout à fait sûr de comprendre le sens de cette question.
Je regarderais demain dans les propriétés des champs si je vois quelque chose car j'ai fermé le pc avec delphi et cela fais 1h30 que je devrais déjà être parti :p ce qui fait que je ne le rallumerais pas aujourd'hui.

Voila comment on fait pour les champs :
On ecrit la requête dans le composant TIBOQuery
On double clique sur le composant pour voir la liste des champs.
Cette liste est vide au départ.
Clic droit sur la liste ; ajouter les champs ; on les prend tous, puis ok et donc sont crées les champs MaQueryMonChampCalculé1 et MaQueryMonChampCalculé2 .
Je regarderais demain de plus près à cette notion de champs persistant.

TIBOQuery est bien différent du TIBQuery (Interbase Express) qui n'est pas conseillé pour FB dont on recommande l'accès avec UIB (si il n'existe pas déjà autre chose de mieux depuis)

Oui, il s'agit d'un autre composant.
voici l'adresse du site officiel des composants que nous utilisons pour se connecter à nos bases de données Firebird: http://www.ibobjects.com/

Merci pour ta réponse, et bonne soirée.
Sébastien

[SergioMaster]

S'il s'agit de champ de type COMPUTED BY , il faut se pencher sur les valeurs= NULL .

si A ou B = NULL alors C COMPUTED BY (A+B) = NULL
mais C COMPUTED BY (COALESCE(A,0)+COALESCE(B,0))=0

- le passage par par paramètre 'corrige' le null surtout s'il y a un parambyname('P').asInteger <- null devient 0
-il est possible que le 'logiciel style EMS sql manager' fasse la même chose via un COALESCE


le mieux serait d'avoir le source de la procedure et/ou de la table

[seb7710]

La table TABLE1 où se trouve les 2 champs calculé à une clef primaire de type integer que je nomme ici ID_INTEGER_TABLE1.

Voici comment est calculé ces 2 champs calculé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  POURCENTAGE_1 COMPUTED BY (
  (
    select
      cast(POURCENTAGE_1 as decimal(4, 1))
    from
      CALC_POURCENTAGE_1(MaTable. ID_INTEGER_TABLE1))));
 
 
  POURCENTAGE_2 COMPUTED BY (
  (
    select
      cast(POURCENTAGE_2 as decimal(4, 1))
    from
      CALC_POURCENTAGE_2(MaTable. ID_INTEGER_TABLE1))));

Voici le code pour créer les 2 procédures stockée dans Firebird qui calculent les 2 pourcentages

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
CREATE PROCEDURE CALC_POURCENTAGE_1 (
  ID_INTEGER INTEGER)
RETURNS(
  POURCENTAGE_1 DECIMAL(18, 1))
AS
begin
  select
    case
      when sum(coalesce(PC.EVALUATION_1 * 0, 1)) <> 0 then null  
      else
        cast(
          sum(cast(PC.EVALUATION_SESS_1 * C.COEFFICIENT_IMPORTANCE as double precision))
            / sum(C.COEFFICIENT_IMPORTANCE) as decimal(4, 1))
    end
  from
    TABLE2 PC
    join TABLE3  C on (PC.ID_TABLE3 = C.ID_TABLE3) and (PC. ID_INTEGER_TABLE1 = :IDENTIFIANT)
  where
    C.PRENDRE_EN_COMPTE_CALCUL_POURCENTAGE = 'T'
  into
    : POURCENTAGE_1;
 
  suspend;
end;

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
CREATE PROCEDURE CALC_POURCENTAGE_2 (
  ID_INTEGER INTEGER)
RETURNS(
  POURCENTAGE_2 DECIMAL(18, 1))
AS
begin
  select
    case
      when sum(coalesce(PC.EVALUATION_2 * 0, 1)) <> 0 then null  
      else
        cast(
          sum(cast(PC.EVALUATION_2 * C.COEFFICIENT_IMPORTANCE as double precision))
            / sum(C.COEFFICIENT_IMPORTANCE) as decimal(4, 1))
    end
  from
    TABLE2 PC
    join TABLE3 C on (PC.ID_TABLE3 = C.ID_TABLE3) and (PC. ID_INTEGER_TABLE1 = :IDENTIFIANT)
  where
    C.PRENDRE_EN_COMPTE_CALCUL_POURCENTAGE = 'T'
  into
    : POURCENTAGE_2;
 
  suspend;

remarque : j'ai ajouter COALESCE(champCalculé2, 0) dans mon composant TIBOQuery et dans la DBGrid liée à ce composant est bien apparu 0 à toute les lignes (alors que la plupart des lignes aurait du avoir une valeur pour le champ calculé2 ... je vois que pour certaine lignes, le champs calculé retourne tout de même null au niveau de la base de donnée, je vais modifier dans une bdd de test les donnée pour que le champs calculé de ces lignes soient toute à 0 pour voir si ce problème est dû à la présence de ligne où le champ calculé est Null.

Remarque 2 : super utile le coalesce dans Firebird

Merci pour vos commentaire, je vous tiens au courant de mon avancée pour la résolution de ce problème.

[seb7710]

Bingo, si je remplace :

Code :

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

1
2
when sum(coalesce(PC.EVALUATION_2 * 0, 1)) <> 0 then null

par

Code :

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

1
2
when sum(coalesce(PC.EVALUATION_2 * 0, 1)) <> 0 then -1

Je n'ai donc plus aucune ligne où la valeur du champ calculé est à NULL, et là toutes les valeurs calculées de mes lignes s'affichent bien.

Merci à tous pour vos commentaire,
Sébastien


Remarque: j'ai édité le message de départ en mettant [Résolu] au début du titre.. j'ai l'impression qu'il y avait un bouton quelque part pour signaler un message comme étant cloturé ou résolu ... je me trompe?