Discussion :

[kase74]

Bonjour, j'ai developpe avec delphi6 des relations maitre-detail qui fonctionnaient tres bien !
J'ai porte mon appli vers Delphi7. Et depuis, j'ai des soucis avec mes relations maitres detail.

Je schematises :
J'ai trois TTables : Maitre, Detail1 et Detail 2
Detail 1 et Detail2 sont lies a Maitre par un champ IDMaitre de type integer.
J'ai code l'evenement Maitre.Onscroll pour mettre a jour les tables Detail1 et Detail2 en faisant Refresh.

Tout cela fonctionne correctement quand j'ouvre mes tables. Mais des que je fais un scroll sur Maitre, si il se trouve que Detail1 ou Detail2 est vide car aucun enregistrement n'existe avec la contrainte Detail#_IDMaitre = Maitre_IdMaitre alors la boum, j'ai droit au message d'erreur :

Le projet xxxxxx a provoque une classe d'exception EVariantArrayLockedError avec le message 'Le variant ou le tableau est verouille'. Processu stoppe. ...

Je precise que je n'ai pas de champ Tableau dans mes tables !
En travaillant pas a pas, j'ai constate que c'est sur Detail#.Refresh que ca plante.

(Je travaille avec Delphi7, l'nvirronement CLX, DBExpress et Firebird 1.5)

Est ce que quelqu'un a connaissance de ce probleme ?
Merci d'avance pour votre aide.

[kase74]

Alors, j'ai reetudie la question. Il s'avere que c'est bien le fait de faire Refresh alors que le resultat est vide qui fait planter les DataSet Detail.
Pour resoudre le probleme, j'ai du implementer les evenements du DataSet Maitre comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Procedure Maitre.AfterRefresh(...);
Begin
  Detail1.Refresh;
  Detail2.Refresh;
End;
 
Procedure Maitre.AfterScroll(...);
Begin
  Detail1.Close; Detail1.Open;
  Detail2.Close; Detail2.Open;
End;

Ce qui, n'est pas extremement genant, HORMIS un petit laps de temps d'ouverture/fermeture des DataSet !
Est ce que quelqu'un a une meilleure solution ?

Ca m'amene aussi a poser une question subsidiaire :
Suite a mon probleme, j'ai cherche minutieusement dans l'aide et les tutos, et je crois avoir compris que les relations maitre-details se mettent a jour toute seule ! C'est a dire, que le fait de scroller dans la table maitre raffraichi les tables details sans avoir besoin de l'implementer dans Maitre.AfterScroll et Maitre.AfterRefresh. Mais chez moi, je ne constates pas ce comportement : si je ne l'implemente pas, mes tables details reste dans leur etat initiale !!!
Alors est ce seulement chez moi, ou est ce normale ? Est ce du au fait que je travail avec la CLX et non VCL ? (Je n'ai jamais developpe avec VCL)
Merci pour vos reponses.

[e-ric]

Salut

Il me paraît bizarre que tu utilises des composants TTable dans une application DBExpress.
Les TTable ne sont pas recommandés avec des bases SQL telles que FireBird.

cdlt

e-ric

[kase74]

Exact ! Excuse moi, c'est pâs des TTable mais des TSQLTable.