Discussion :

[SOPSOU]

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 :

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

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!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[evarisnea]

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.

tu devrais faire quelque chose comme ça :

Code SQL :

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

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 SQL :

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

1
2
3
4
5
6
7
UPDATE
  PERSONNE
SET
  NOM_PRENOM = :NOM_PRENOM,
  PROFESSION = :PROFESSION
WHERE
  NUM_PERS = :OLD_NUM_PERS

[SOPSOU]

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 :

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

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.
Pourquoi cela????
C'est aussi pareil lorsque je fais un delete

Code :

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

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 :

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

1
2
3
4
 
read_committed
rec_version
nowait

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

COrdialement.

[evarisnea]

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.
Pourquoi cela????
C'est aussi pareil lorsque je fais un delete

Code :

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

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 :

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

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 ?

[SOPSOU]

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 :

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

1
2
3
4
5
6
 
try
ibtransaction.CommitRetaining;
except
ibtransaction.RollbackRetaining;
end;

C'est tout ce que je fais.

[evarisnea]

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 ?