Discussion :

[bastion]

Salut tout le monde;
Voilà je n'arrive pas a supprimé des enregistrements avec condition;
j'ai une table situation (Maticule,Année,Mois) clé composé
je possede un CheckListBox relié à la table Situation contenant l'ensemble des enregistrements par Matricule, un combobox1 pour Année + combobox2 pour Mois:
ma procedure ce presente comme suit:

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
procedure TFficheselect.Button1Click(Sender: TObject);
 VAR
    nl,i: integer;
 
 begin
  table1.open;
   if messagedlg('Attention....Etes Vous Sure De Vouloir Supprimer',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
 
    nl:=clbox1.items.count-1;
    for i:= 0 to nl do
    begin
 
     while not table1.eof do
    begin
 
   if (table1.FieldByName('Mat').asstring)=copy(clbox1.items[i],0,4)then
   if (table1.fieldbyname('Annee').asstring=cb1.Text)then
   if (table1.fieldbyname('Mois').asstring=cb2.Text)then
     begin
 
     if clbox1.checked[i] then
     begin
     table1.Delete;
   end;
    end;
      end.

[aityahia]

c'est quoi comme condition .
en plus de tel traitement il préfferable de les mettres dans un l'évenement beforedelete

Code :

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

1
2
3
4
5
rocedure TForm1.Table1BeforeDelete(DataSet: TDataSet);
begin
if Not (MessageDlg('Voullez vous réellement supprimer ce bon',MtConfirmation,[MbYes,MbNo],0)=MrYes) then
  Abort;
end;

ton problemes et au niveau ta condition c'est pas tres claire.

[franck SEFIC]

if (table1.FieldByName('Mat').asstring)=copy(clbox1.items[i],0,4)then
if (table1.fieldbyname('Annee').asstring=cb1.Text)then
if (table1.fieldbyname('Mois').asstring=cb2.Text)then
.

Le mieux c'est une requette SQL avec les instructions suivantes:

Code :

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

1
2
 
delete from matable where mat:=lemat and annee:=lannee and mois:=lemois

avant d'executer la requette tu passe les parametres:

Code :

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

1
2
3
  query.ParamByName('leMat').asstring)=copy(clbox1.items[i],0,4);
  query.ParamByName('lAnnee').asstring=cb1.Text;
  query.ParamByName('leMois').asstring=cb2.Text   ;