Discussion :

[smail21]

Salam
j'ai un petit code pour supprimer des enregistrements dans une table maitre et deux tables détails!

donc j'ai un TEdit où y a la valeur de la clé à supprimer : numOT

la table maitre : ORT
tables détails : EquipOT, IntervOT

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
24
25
26
27
28
29
 
if (numOT.text<>'') then
begin
 
//supprimer les équipements de l'ORT
EquipOT.first;
while not EquipOT.eof do
begin
if (EquipOTnumOT.value=numOT.text) then EquipOT.delete;
 
EquipOT.next;
end;
 
//supprimer les intervenants de l'ORT
IntervOT.first;
while not IntervOT.eof do
begin
if (IntervOTnumOT.value=numOT.text) then   IntervOT.delete;
IntervOT.next;
end;
 
//supprimer l'ordre
ORT.First;
if ORT.locate('numord',numOT.text,[]) then
ORT.delete;
ORT.refresh;
end;
 
end;

alors le problème est:qu'il me laisse toujours un derniers enregistrement dans les tables détails, et quand j'ai débugué, j'ai vu que dans le dernier enregistrement, il le saute, il ne vérifie même pas la condition.

[atb]

Bonjour ,
Tu dis qu'il les sautes les lignes et ne test pas ,çad il ne verifie pas la condition du not eof ,cad que la table détail est maintenant vide ? t'es sure que tout les enregistrement sont bien relier en maitre detail avec la table maitre .
essay ce code :

Code :

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

1
2
3
4
EquipOT.last;
     While  not EquipOT.bof do
     begin
     EquipOT.Delete;

[Rayek]

J'ose même pas imaginer le temps que ca va mettre quand les tables seront lourdement chargées d'enregistrement.

Je te propose deux solutions :

Par requetes

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
 
With UnQuery do
begin
  Close;
  SQL.Clear;
  SQL.Add('delete from EquipOT');
  SQL.Add('Where numOT = ' + numOT.text);
  ExecSQL; // A vérifier avec le BDE, je suis pas sur de la commande
 
  Close;
  SQL.Clear;
  SQL.Add('delete from IntervOT');
  SQL.Add('Where numOT = ' + numOT.text);
  ExecSQL;
 
  Close;
  SQL.Clear;
  SQL.Add('delete from ORT');
  SQL.Add('Where numOT = ' + numOT.text);
  ExecSQL;
end;

Avec Locate

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
//supprimer les équipements de l'ORT
while EquipOT.locate('numOT',numOT.text,[loCaseInsensitive]) do
  EquipOT.delete;
 
 
//supprimer les intervenants de l'ORT
while IntervOT.locate('numOT',numOT.text,[loCaseInsensitive]) do
   IntervOT.delete;
 
//supprimer l'ordre
while ORT.locate('numord',numOT.text,[loCaseInsensitive]) do
  ORT.delete;

[smail21]

salam
merci malatar
j'ai essayé ton code et c'est super bien!
je voulais utiliser locate plusieurs fois(en boucle) et je ne savais pas comment
là j'ai appris une nouvelle technique
encore merci