Discussion :

[looping]

bonsoir,

je voudrais effacer toute les enregistrements d'une table sous condition comme indiqué dans l'exemple ci dessous:

tous les enregistrements dont le champ "numfac" egale la variable "numedit" doivent etre effacés

Code :

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

1
2
3
4
5
6
7
8
 
table1.First;
while not table1.EOF do
begin
 
if table1numfac.Value=numedit then table1.delete;
table1.Next;
end;

le problème c'est que ce code ne fonctionne pas : il faut que je l'active plusieurs fois pour que tous les enregistrements concernés soit effacés


merci
a+

[SergioMaster]

bizarre, cela devrait fonctionner. Comment peut-tu affirmer que non ? quel test fait la verification ?

serait-t'il pas plus simple de passer par un un SQL ? +Simple et +Rapide

Code :

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

DELETE FROM TABLE1 WHERE NUMFAC=:NUMEDIT

[Cl@udius]

Salut

Je verrais plus ceci:

Code :

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

1
2
3
4
5
6
7
8
9
 
  table1.First;
  while not table1.EOF do
  begin
  if table1numfac.Value=numedit then 
    table1.delete
  else
    table1.Next;
  end;

Mais Sergio a raison, passer par une requête sera beaucoup plus efficace.

@+ Claudius

[looping]

bonsoir,

le dernier code fonctionne


merci

[abdelghani_k]

Bonjour tout le monde,

Looping, je t'explique pourquoi tu active le code plusieurs fois (tu sais pour combien de fois : c'est une suite arithmétique à base 2).

Code :

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

1
2
3
4
5
6
7
 
table1.First;
while not table1.EOF do
begin
if table1numfac.Value=numedit then table1.delete;
table1.Next;
end;

Il faut juste éliminer l'instruction table1.Next; car aprés la suppression table1.delete le pointeur d'enregistrement pointe sur le suivant automatiquement et si tu fais table1.Next tu va looper un enregistrement donc sur 10 ca sera 5 qui seront supprimés et il faut activer une seconde fois et sur 5 il y aura 3 supprimés etc... (suite arithmétique d'activation).

Voici ton code qui fonctionne en une seule fois :

Code :

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

1
2
3
4
5
6
 
table1.First;
while not table1.EOF do
begin
if table1numfac.Value=numedit then table1.delete;
end;

Sergio a dit :
bizarre, cela devrait fonctionner...

Mon intervention était pour donner une explication c'est le pourkoi de la chose.

Mais l'idéal comme a dit Sergio :

serait-t'il pas plus simple de passer par un un SQL ? +Simple et +Rapide
Code :

Code :

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

1
2
 
DELETE FROM TABLE1 WHERE NUMFAC=:NUMEDIT

[Cl@udius]

Salut

Voici ton code qui fonctionne en une seule fois :

Code :

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

1
2
3
4
5
6
 
table1.First;
while not table1.EOF do
begin
if table1numfac.Value=numedit then table1.delete;
end;

Et si ton 1° enregistrement (ou un autre) ne correspond pas au critère, comment tu sort de la boucle ?

Mais l'idéal comme a dit Sergio :

serait-t'il pas plus simple de passer par un un SQL ? +Simple et +Rapide
Code :

Code :

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

1
2
 
DELETE FROM TABLE1 WHERE NUMFAC=:NUMEDIT

Là nous sommes tous d'accord.

@+ Claudius

[abdelghani_k]

Je resterai dans la boucle.

Tu as raison Cl@udius.

[looping]

bonsoir,

j'ai adoptée cete solution qui semble fonctionner

Code :

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

1
2
3
4
5
6
 
table1.First;
while not table1.EOF do
begin
if table1numfac.Value=numedit then table1.delete else table1.next;
end;

A+