Discussion :

[QAYS]

Bonjour,

Je susi en train de refondre une application (delphi7 paradox) et j'ai un probl_ème avec une MaTable.post j'ai le message suivant :

"Violation de clé", le message est claire mais je ne comprends pas pourquoi il se produit.
en effet il me sembe que je suis en edit (modification et pas en insert )

PS: habiltuelement j'utilise SQL pour faire de ces manip (c'est plus souple) mais dans ce programme il utilise que les composants TTable , TDatSource

voici le code :

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
 
  TRDV := TTable.Create(self);
  TRDV.Active := false;
  TRDV.DatabaseName := session.NetFileDir;
  TRDV.TableName := 'TR_RDV.db';
  TRDV.Active := true;
  if EdidRdv.text ='' then TRDV.Append
  else TRDV.Edit;
  TRDV['UTIL'] :=  CBATraiterPar.Text;
  TRDV['HEUREDEB'] :='08:00:00';
  TRDV['HEUREFIN'] :='08:00:00';
  TRDV['DATDEB'] := DBEADatDebut.Text;
  TRDV['DATFIN'] := DBEADatFin.Text;
  TRDV['TYP'] := DBCBAOBJET.text;
  TRDV['LIEU'] := DBEAImm.text;
  TRDV['NOTES'] := DBMNOTES.text;
  TRDV['IMM'] := FMajTravaux.Code;
  TRDV['FVU'] := false;
  TRDV['ALARME'] := '00:30:00';
  TRDV['IDTRAVAUX'] := idRdv;
  TRDV.Post;
  FreeAndNil(TRDV);
  result  := idRdv;

Si vous avez une idée je suis prenneur

Pour info la clés d ela table est :

Code :

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

1
2
3
4
5
UTIL
DATDEB
DATFIN
HEUREDEB
JOUR

Cordialement
Qays

[Cl@udius]

Salut

Code :

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

1
2
3
4
5
6
7
 
  // ...
  if EdidRdv.text ='' then TRDV.Append
  else TRDV.Edit;
  TRDV['IDTRAVAUX'] := idRdv;
  // ...
  TRDV.Post;

Je suppose que la clé primaire de ta table est IDTRAVAUX. Non ?

Lors d'une édition tu ne te positionnes pas sur l'enregistrement à modifier !!?
Un locate sur IDTRAVAUX me semble nécessaire avant d'effectuer une édition.

@+ Claudius

[QAYS]

Merci de votre réponse, En fait non, il ne fait du tout parti de la clé(c'et une nouvelle colonne), effectivement je ne suis pas positionné sur le record (vielle habitude de la gestion pas SQL)

je vais essayer de faire le locate

Merci

[QAYS]

A y est, j'ai fait le locate,

Merci