TClientDataSet exception :"Opération non applicable."

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
j'ai un application ou il y a :
un sgbd firebird 4 table
3 dbgrids
3 TClientDatset

Veillez s'il vous plait regarder l'image "Datamodule.JPG " pour voir les composants présents : (si l'image n'apparait pas :) )

http://www.developpez.net/forums/att...atamodule.jpg/

Ces Dgrids sont liés via le maitre/esclave tel que sont lié dans le sgbd

Lorsque dans la table maitre(Personne) j'ajoute /je supprime ou je modifie
que se soit en cache ou le faire réellement les écritures/modification/suppression dans la base de données ne posent pas problème.

La ou j'ai un bug, c'est quant j'ajoute un enreg dans la table esclave (MAIL)
l'ajout en cache se fait bien cependant lorsque je quitte

j'ai ce message :

Citation:

Le projet a provoqué une classe d'exception EDBClient avec le message 'Opération non applicable.'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

souvent après j'ai une violation d’accès

Dans le destructeur de TDataModule j'avais mis du code celui faisait des close() des DataSet , j'ai complétement mis en commentaire ce code et re compilée (rebuild all) et j'ai toujours la même erreur

C'est toujours a ce moment la que se produit l'erreur

lorsque j'ajoute un élément dans la table maitre (Personne) pas de pb

Voici le code d'ajout table esclave MAIL :
Code:

1 2 3 DataModule1->CDSMail->Append(); DataModule1->CDSMail->FieldByName("MAIL")->AsString="toto@free.fr"; DataModule1->CDSMail->Post();
after Insert:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 void __fastcall TDataModule1::CDSMailAfterInsert(TDataSet *DataSet) { CDSMail->AggregatesActive=true; if(VarIsNull(CDSMail->Aggregates->Items[0]->Value())){ id=0; }else{ id=CDSMail->Aggregates->Items[0]->Value() ; // lit la valeur du champ en cours } _F_ID_MAX_MAIL=id+1 ; // var globale portée classe TDataModule memorise ID_MAIL CDSMail->FieldByName("ID_MAIL")->AsInteger=_F_ID_MAX_PERS; }
Code:

1 2 3 4 5 __fastcall TDataModule1::~TDataModule1() { //Destructeur : liberation de ressources //FreeDataModule(); }
Conclusion
si j'ajoute un ereng dans la table secondaire en cache , je quitte plantage

D’où peut venir cette exception ?

merci je tourne en rond :calim2:

en vous remerciant

16/01/2013, 14h19
ShaiLeTroll

Je n'ai pas pratiqué les Master\Detail depuis un bout de temps

je l'ai proposé pour faciliter un affichage avec 3 requêtes paramètrées chainées, sinon je n'en ai pas fait depuis plus de 6 ans sur DBase !

TClientDataSet, tu fais un ApplyUdpates pour valider les Post ?
Regarde le OnBeforeApply... j'ai plus le nom exacte, il te fourni un Delta sous forme d'un autre CDS, tu peux ainsi gérer manuellement tes requêtes UPDATE\INSERT\DELETE, utile pour les jointures

L'Exception c'est durant le Post ? Apply ? Close ? Free ?
As-tu penser à retirer le lien durant le Apply ?

Tu modifies directement depuis la DBGrid ?
En général, je préfère faire un formulaire de modification en lui passant la PK, il modifie dans son coin (ShowModal) puis l'appelant Grille fait un Refresh pour relire les données (modifiées par le formulaire et peut-être par une session d'un autre utilisateur)

De même, je n'utilise plus de DataModule, j'encapsule mes DataSet (TSQLQuery, TSimpleDataSet ou TClientDataSet) dans des objets métiers ainsi je peux avoir deux fenêtres sur la même table\requête\jointure, les modifications sur l'une (comme Master, Filter, Locate...) n'impacte le DataSet utilisée par l'autre fenêtre ou pas un autre objet

Actuellement, je n'ai QUE du ShowModal pour les formulaires de modification, cela simplifie la gestion du Refresh, seuls ces écrans utilisent directement du DataSet, on utilise pas le Post (juste AutoEdit), on utilise TSimpleDataSet comme tampon et un autre objet utilise des SQL prédéfinies ou alors génère les INSERT\UPDATE via RTTI (en gros cela évite le ApplyUpdates et OnBeforeApply...) pour mettre à jour la DB

Le reste de l'application (c'est un outil de monitoring temps-réel) utilise soit des struct C++ soit des DELPHICLASS selon qui a écrit le code, tout les SQL sont écrit à la main, cela donne une maitrîse totale de ce qui est écrit en DB (on peut ainsi loggué tout ce qui ce passe, le Post\ApplyUpdates lui c'est un peu obscure)
17/01/2013, 02h25
o_live

1 pièce(s) jointe(s)

Bonjour,

pour répondre a tes questions :

Citation:

TClientDataSet, tu fais un ApplyUdpates pour valider les Post ?

non pas du tout , c'est un procédure a par qui fait cela

Code:

TDataModule1::ApplyUpdatePers()

car j'aivais pas de diffcultés a faire un ApplUpdates

Citation:

L’exception c'est durant le Post ? Apply ? Close ? Free ?

l’exception est quant uniquement je remplie le seconde grille et que par le suite je veux quitter mon application , j'ai une exception qui se lève au niveau du destructeur de ma classe .Si je rempli qu'un seule table(maitre),alors il y a de problème

Code:

TDataModule1::~TDataModule1()

Citation:

As-tu penser à retirer le lien durant le Apply ?

non, je mis pas de temps a arriver la....je comptais faire un nouvelle procedure
du style

Code:

TDataModule1::ApplyUpdateMail()

et ApplyUpdateTel() pour le téléphone

ce seront ces procédure qui écriront directement dans la base

est ce comme cela qu'il faut faire?

comment ajouter ou détruire le lien dynamiquement par code?

Citation:

Tu modifies directement depuis la DBGrid ?

Oui je comptais faire ajout /supp/modif dans trois grille

que faire ????? :cry::cry::cry::cry::cry:

voila la gueule de mon appli:

http://www.developpez.net/forums/att...ihm.jpg/?stc=1

merci bien a toi pour toute l'aide
18/01/2013, 00h46
o_live

Bonjour,
personne peut m'aider ????

:pc::mur::scarymov:

d'avance un très GRANND merci :)
25/01/2013, 00h11
o_live

un petit up

help help help :arf:
27/01/2013, 22h40
o_live
Âpres avoir ajouté un enreg dans la table secondaire via ibexpert et non mon programme je ferme mon application je n'ai pas d’exception

pazr contre j' ajoute un autre en enreg en memoire
Code:

1 2 3 DataModule1->CDSMail->Append(); DataModule1->CDSMail->FieldByName("MAIL")->AsString="toto@free.fr"; DataModule1->CDSMail->Post();
et que je ferme j'ai l'exeption qui se déclenche ..

cependant je pense que c'est un histoire de lien maitre/esclave
entre les différent DataSource

question: comment faire pour mettre/supprimer un lien entre les TClientDataSet
par programmation ?(qui lie les different DbGrid)

merci
28/01/2013, 13h34
ShaiLeTroll

Affecte nil au MasterSource\DataSource du CDSMail
Puis réaffecte au CDSMail son maître DSPers

C'est ce que tu as du faire via l'IDE

Bonjour que je fasse ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 __fastcall TDataModule1::~TDataModule1() { //Destructeur : liberation de ressources CDSMail->MasterSource=NULL; CDSMail->MasterFields=" "; CDSTel->MasterSource=NULL; CDSTel->MasterFields=" "; }
ou cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 void __fastcall TFrmAnnu::MnuQuitterClick(TObject *Sender) { DataModule1->CDSMail->MasterSource=NULL; DataModule1->CDSMail->MasterFields=" "; DataModule1->CDSTel->MasterSource=NULL; DataModule1->CDSTel->MasterFields=" "; Application->Terminate(); }
J'ai toujours mon exception qui apparait ,elle se decleche sur le destructeur du TDataModule la je ne vois pas comment m'en sortir si quelqu’un a une piste autre....:cry:

merci

31/01/2013, 10h23
ShaiLeTroll

Code:

Application->Terminate();

C'est moche et brutal, ceci est une méthode plus douce :

Code:

Application->MainForm->Close();

D'ailleurs, suffit d'affecter une action standard (TWindowClose) à ton miQuitter pour fermer sans écrire de code

Tu as la VA si tu fais le Post et ton ApplyUpdatePers ou ApplyUpdateMail ?
ou juste le Post ?
As-tu jouer avec LogChanges ?

Normalement l'on veut personnaliser ApplyUpdate, il faut utiliser le Delta fourni par BeforeUpdateRecord, il n'est pas nécessaire de faire d'autres méthodes

Si tu ne lance pas de ApplyUpdate, faudrait peut-être l'annuler
Il existe une CancelUpdates ! non ?

As-tu essayé un CDS.Close() explicite ?

Salut

Citation:

Tu as la VA si tu fais le Post et ton ApplyUpdatePers ou ApplyUpdateMail ?
ou juste le Post ?

comme je te l'ai dis dans la seconde table je travaille encore dans la mémoire , je n'ai pas encore écrit de ApplyUdpateMail() , j’attends de régler ce problème avoir de coder ApplyUdpateMail() et ApplyUdpadteTel()

La seule méthode qui existe et fonctionne pour l'instant est ApplyUdpadePers()

Pour les grilles Tel et Mail pour l'instant en mémoire uniquement Post()
actuellement je travaille uniquement sur la grille Mail

Citation:

As-tu jouer avec LogChanges ?

non

Citation:

Si tu ne lance pas de ApplyUpdate, faudrait peut-être l'annuler
Il existe une CancelUpdates ! non ?

Sur un autre bt j'ai fait , après avoir fait un ajout avec le code cité dans l'autre fil:

Code:

DataModule1->CDSMail->CancelUpdates();

toujours pareil !

Voici la première version de mon destructeur qui soit codé ou pas j'ai toujours l'erreur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 void __fastcall TDataModule1::FreeDataModule() { IBQPers->Close(); CDSPers->Close(); IBQTel->Close(); CDSTel->Close(); IBQMail->Close(); CDSMail->Close(); IBTransaction1->Active=false; IBDatabase->Close(); }
Je me pose une question est les agrégats sur la table secondaire peuvent jour et faire planter?

J'aurais un question concernant les ApllyUpdate sur plusieurs tables
mais j'attends de résoudre de cela:scarymov:

bref la je ne voit plus comment faire

encore merci et je suis complétement bloqué !:cry::cry::cry: