Discussion :

[NABIL74]

voilà,j'ai une table détail et je veux supprimer tous les enregistrements de cette table d'un seul coup.Comment faire svp?

[Andry]

Salut.
N'ayant pas connaissance du techno utilisé; je dirais que tu devrais execute cette requête sur cette table.

Code :

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

1
2
 
DELETE FROM TATABLE

Sinon, tu devrais parcourir ta table et exécuter la méthode Delete sur chaque enregistrement.

A+

[didier.cabale]

j'ai une table détail et je veux supprimer tous les enregistrements de cette table d'un seul coup.

S'il s'agit d'une TTable, je crains que çà ne soit pas possible.
En revanche s'il s'agit d'un TQuery, vous pouvez utiliser une instruction SQL du type 'delete from matable where condition'
Cordialement

[NABIL74]

voici le code que j'ai écrit:

Code :

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

1
2
3
4
DM.TNotes.Edit;
DM.TNotes.First;
DM.TNotes.Delete;
DM.TNotes.Next;

mais il ne supprime qu'un seul enregistrement c'est tout.

[Andry]

Essaie un peu ceci. Il fut quand même parcourir les enregistrements et les supprimer.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With DM.TNotes do
begin
    First;
    While Not eof do
    begin
        Delete;
        Next;
    end;
end;

[NABIL74]

voila tout mon code:
je fais d'abord un filtre sur la table "notes" et puis je supprime les enregistrements trouvés en suivant le filtre effectué:

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
DM.TNotes.Filtered:=false;
DM.TNotes.Filter:='Num_classe = '''+(DBEdit1.Text)+'''';
DM.TNotes.Filtered:=true;
 
if messageDlg('Etes-vous sûr de vouloir supprimer cette classe?',mtinformation,
[mbOK,mbCancel],0)=mrOK then begin
 
With DM.TNotes do
begin
First;
While Not eof do
begin
Delete;
Next;
end;
end;
end;
end;

mais il efface 2 enregistrements seulement!???

[Andry]

Je vais te donner ma methode :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With TQuery.Create(Nil) do
try
  //Ici paramétrage des connextion ou Alias
 //generation de la requête. Supposons que ta table s'appelle TNOTES
 SQL.Add('DELETE FROM TNOTES');
 SQL.Add('Where Num_classe = :PNUM_CLASSE');
 //Affectation du paramètre
 ParamByName('PNUM_CLASSE').AsString := DBEdit1.Text;
 //Execution de la requête
 ExecSQL;
finally
   Free;
End;

PS : Il faut ptet changer un ou deux trucs en fonction du composant Query utilisé vu que je n'ia pas Delphi sous la main .

A+

[Cl@udius]

Salut

mais il efface 2 enregistrements seulement!???

Simplement parce que le Next est en trop dans la boucle.

Mais la méthode la plus simple et surtout plus efficace est celle présentée par Andry via SQL.

Code sql :

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

DELETE FROM TA_TABLE WHERE Condition;

@+ Claudius

[NABIL74]

:yaisse2:
ça marche à merveille!

Merci beaucoup à vous tous surtout à toi Andy et à toi aussi Cl@udius.
bon courage mes amis!
a+

[rec82]

szalut .
malgrés cette discussion et marqué comme résolus,mais un petit ceci qui me casse la tete.j'ai tombé dans le meme probléme ,je veut vider la table entiere
mon code et le suivant:

Code :

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

1
2
3
4
5
6
7
8
begin
    t1.First;
    While Not (t1. eof )do
    begin
      t1. Delete;
      t1. Next;
    end;
end;

mais le message suivant s'affiche ,pourquoi ??je ne sais pas!! :
""trop de ligne sont affecté par la modification"
sachant que je veut vider ma table sans passé par le SQL comme au dessus,je veut le vider par code comme dans mon code.
merci beacoup pour vous aides.
cordialement rec82.

[Just-Soft]

Salut;

afin de supprimer les enregistrements d'une table et si tu fais ça dans une boucle tu n'as pas besoin du Next le Delete se positionne automatiquement sur l'enregistrement suivant sinon tu aura toujours "n/2" enregistrements supprimés en considérant que "n"est le nombre d'enregisrements de ta table.

Bonne chance.

[Andry]

Salut;

afin de supprimer les enregistrements d'une table et si tu fais ça dans une boucle tu n'as pas besoin du Next le Delete se positionne automatiquement sur l'enregistrement suivant sinon tu aura toujours "n/2" enregistrements supprimés en considérant que "n"est le nombre d'enregisrements de ta table.

Bonne chance.

Je l'ai remarqué aussi. D'ailleurs, je me demande pourquoi ils utilisent pas SQL au lieu de boucler.

[rec82]

salut .
j'ai essayé avec adoquery mais pas de resultat un message s'affiche:
"command text does not return a result set".
malgrés ma table n'est pas vide.
mon code est :

Code :

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

 delete * from recap

sachant que j'utilise delphi 6 et access 2003.
merccccccccccccccccccccccccccccci beacoup.
rec82 cordialement.

[Andry]

Dans le cas ou tu utilise un AdoQuery,
- utilise la methode ExecSQL dans le cas d'un Insert/Update/Delete.
- utilise Open pour ramener les records.
Mais dans ton cas, un ADoCommand suffit amplement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  with TADOCommand.Create(Nil) do
  try
    Connection := TonADOConnection;
    CommandText := 'Delete from recap';// pas Delete * from recap
    try
      Execute;
    except
      //Ici la gestion en cas d'erreur.
    end;
  finally
    Free;
  end;

Courage

[Just-Soft]

Je crois que Andry a bien fait preuve de puissance SQL et protection du code.

sauf si ta question est autre le code de Andry et plus que satisfaisant, tien nous au courant.

Bonne chance.

[rec82]

merciiiiiiiiiiiiiiiii beacoup andry,just-soft ça marche trés bien.

merci autre fois,a toute l'équipe developpez.com.
cordialement.

[Jeankiki]

Et pourquoi ne pas avoir fait tout simplement un EmptyTable sur la table

Code :

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

1
2
 
taTable.EmptyTable;

Jeankiki

[rec82]

salut.
ma table est une adotable,je pense que emptytable n'existe pas avc adotable.
cordialement.

[sandokhane]

ça ce qu'on appel un forum d'entre-aide ...vraiment je suis très ému..bravo tout le monde.

[ShaiLeTroll]

Pour rec82 en complément à la réponse de Claudius , la boucle s'écrit simplement

Code :

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

1
2
3
4
5
begin
    t1.First;
    While not t1.IsEmpty do
      t1.Delete; ///Passe au suivant et si c'est le dernier qui est supprimé cela mets BOF et EOF à True
end;

Mais le plus important, il faut mettre une clé primaire qui identifie de manière unique un enregistrement, indispensable pour un Delete via ADO ... sinon on a le message "trop d'enreg ..."

A part ça, le SQL c'est toujours mieux, et plus facile à tracer ...