Problème avec TIBQuery de Delphi

Bonjour à tous,
Voulant quitter le standard de Delphi c'est à dire utiliser un TIBTABLE avec un TDBNavigator pour la gestion d'une table(Ajout, Supprimer, Refresh, Enregistrer,etc...). Moi, j'ai conçu mes propres boutons(Modifier, Enregistrer, etc.) avec un TIBQuery. Mon problème se trouve sur la propriété ModifySQL du TIBQuery. En fait j'ai placé dans cette propriété le code suivant

Code:

---

1 2 3 4 5 6 7

UPDATE PERSONNE SET NUM_PERS = :NUM_PERS, NOM_PRENOM = :NOM_PRENOM, PROFESSION = :PROFESSION

---

Mon Enchainement: Dès que tu cliques sur le bouton Modifier, je fais un IBQuery.Edit et après pour valider la modification, clique sur le bouton enregistrer(IBQuery.Post).

Mais dès que je fais ça, j'ai un méssage d'erreure clé primaire comme si j'enregistrai une ligne déjà existante.
Question: C'est ou, j'ai flanché car je comprends pas l'erreure puisque je modifie et non une insertion!!!!!!!!!!!!!!!!!!!!!!!!!!!!

:salut:

le problème vient de ta requête qui est incomplète! elle devrait comporter une clause where, car sinon tu fais l'update de tous les enregistrements de ta table PERSONNE. si NUM_PERS est bien la clé primaire, l'update va donc essayer de lui donner la même valeur pour tous les enregistrements d'où l'erreur. :aie:

tu devrais faire quelque chose comme ça :

Code:

---

1 2 3 4 5 6 7 8

UPDATE PERSONNE SET NUM_PERS = :NUM_PERS, NOM_PRENOM = :NOM_PRENOM, PROFESSION = :PROFESSION WHERE NUM_PERS = :OLD_NUM_PERS

---

ou alors ceci si la clé primaire ne doit pas être updatable :

Code:

---

1 2 3 4 5 6 7

UPDATE PERSONNE SET NOM_PRENOM = :NOM_PRENOM, PROFESSION = :PROFESSION WHERE NUM_PERS = :OLD_NUM_PERS

---

Bonjour,
Après correction de mon code avec la condition WHERE que j'omettais et qui me donnait le méssage d'erreure de CONSTRAINT PRIMARY KEY, j'ai plus reçu d'erreure.

Code:

---

1 2 3 4 5 6 7 8 9

UPDATE PERSONNE SET NUM_PERS = :NUM_PERS, NOM_PRENOM = :NOM_PRENOM, PROFESSION = :PROFESSION WHERE NUM_PERS = :OLD_NUM_PERS

---

Mais en jétant un coup d'oeil dans ma base de données interbase, je remarque que la modification n'est pas prise en compte. :roll:
Pourquoi cela????
C'est aussi pareil lorsque je fais un delete

Code:

---

1 2 3 4 5

DELETE PERSONNE WHERE NUM_PERS = :OLD_NUM_PERS

---

Pareil aussi pour le rafraîchissement des données
NB: Dans le composant TIBTransaction, je mets ce bout de code dans sa propriété Params:

Code:

---

1 2 3 4

read_committed rec_version nowait

---

Ce code doit permettre de voir les valeurs validées par les autres transactions

COrdialement.

Citation:

---

Envoyé par SOPSOU

Mais en jétant un coup d'oeil dans ma base de données interbase, je remarque que la modification n'est pas prise en compte. :roll:
Pourquoi cela????
C'est aussi pareil lorsque je fais un delete

Code:

---

1 2 3 4 5

DELETE PERSONNE WHERE NUM_PERS = :OLD_NUM_PERS

---

Pareil aussi pour le rafraîchissement des données
NB: Dans le composant TIBTransaction, je mets ce bout de code dans sa propriété Params:

Code:

---

1 2 3 4

read_committed rec_version nowait

---

Ce code doit permettre de voir les valeurs validées par les autres transactions

COrdialement.

---

avec quel outil effectues-tu la consultation ? lorsque tu fermes l'application les changements ne sont toujours pas pris en compte ?

Bonjour,
Je vérifie directement si les données sont dans Interbase 7 (IBCONSOLE).
Aussi, en quittant ma fiche, je mets dans l'évènement OnClose:

Code:

---

1 2 3 4 5 6

try ibtransaction.CommitRetaining; except ibtransaction.RollbackRetaining; end;

---

C'est tout ce que je fais.

excuse moi de reposer la même question, mais lorsque tu referme ton application, et actualise les données sous IBConsole (fermeture et ré-ouverture de la table) les données ne sont toujours pas modifiées ?

salut,
OUI, moi même je suis étonné de voir cela.
Je me suis dit que c'est peut être une erreure dans ce que je fais, donc je suis reparti au tutoriel qui m'a permis de savoir utiliser le TIBDataSet, télécharger le code source pour exécuter le code voir si les modifications sont prises en compte et à ma grande surprise, rien n'est fait dans la BD,
Je te donne le lien, le code y ait. Tu pourras donc voir de toi même.
Dans le code, ils utilisent un TDBNavigator et moi j'utilise des boutons simples
Pour modifier: TIBDataSet.Edit
Pour save: TIBDataSet.Post

Salut,
Merci à ceux qui ont bien voulu me guider .....
Voila, après plusieurs heures de tractation et de recherche, j'avais opté pour une solution de TIBQuery + TIBUpdateSQL que j'ai éssayé et qui faisait ce que je voulais.
Voir lien ci dessus sur utilisation de TIBQuery + TIBUpdateSQL
http://teamb-fr.developpez.com/jjm/interbase/D6etIB.pdf

C'est dans ce tuto, j'ai appris qu'il était possible avec la version Entreprise de renseigner les SQL Modification, Rafraichissment, Suppression automatiquement simplement en renseignant les champs et les clés puis clic sur générer SQL.
A partir de là, je suis reparti sur mon composant TIBDataset et j'ai juste insérer ma requête SQL de selection dans sa propriété SelectSQL puis j'ai fait juste un clic droit sur mon composant puis générer SQL.
J'ai testé mon application et tout ce qui marchait pas avant, marche sans problème(modification, suppression, rafraichissement)....

Cordialement. :roll:

:ccool: