Discussion :

[killua86]

bonjour tt le monde

j'ai crée un bloc de données (de type tabulaire) d'une table :employé(numero,nom,...), et j'ai défini la colonne 'numero' comme une case à cocher
comment procéder pour 'supprimer' les employés cochés avec un bouton "supprimer"

merci d'avance

[McM]

Tu parcoures sur ton block, et quand la ligne est cochée, tu fais un delete_record.
Attention, il y a un piège : quand tu fais un delete_record, le curseur passe sur la ligne suivante (donc faut pas faire de next_record dans ce cas)

Exemple simplifié (reste à gérer le changement de record sur le delete_record et le fait de supprimer le dernier enregistrement.

Code :

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

1
2
3
4
5
6
7
8
GO_BLOCK('mon_block');
First_Record;
LOOP
 IF checkbox_checked('mon_block.ck') THEN DELETE_RECORD; 
 END IF;
EXIT WHEN :system.last_record = 'TRUE';
NEXT_RECORD;
END LOOP;

[SheikYerbouti]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
GO_BLOCK('mon_block');
First_Record;
LOOP
   IF checkbox_checked('mon_block.ck') THEN DELETE_RECORD; 
   Else
      If  :system.last_record <> 'TRUE' Then
         Next_Record ;
      End if ;
   END IF;
   EXIT WHEN :system.last_record = 'TRUE';
END LOOP;

[McM]

Marche pas si les 2 dernières lignes sont cochées : Le delete record de l'avant dernière ligne passe à la dernière ligne, et tu sors.

Voici un code que j'avais fait (mais qui faisait d'autres calculs donc plus compliqué : Il ne fallait surtout pas revérifier une ligne, d'où le test sur la variable i)

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
FIRST_RECORD;
 
LOOP
	i := :SYSTEM.cursor_record;
 
IF NOT checkbox_checked('block2.ck')
THEN
 
  EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
  NEXT_RECORD;
 
-- Sinon, on delete la ligne			
ELSE
  DELETE_RECORD;	
  IF :SYSTEM.cursor_record < i THEN EXIT; END IF;
  IF :SYSTEM.LAST_RECORD = 'TRUE' AND NOT checkbox_checked('block2.ck')
  THEN EXIT;
  END IF;
END IF;
 
END LOOP;

[SheikYerbouti]

Le NEXT_RECORD n'est fait que si l'on ne DELETE pas, donc ça doit fonctionner dans tous les cas.

[McM]

Bein, non, j'ai testé justement

imagine 2 lignes cochées

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
GO_BLOCK('mon_block');
First_Record;
-- ligne1
LOOP
   IF checkbox_checked('mon_block.ck') THEN DELETE_RECORD; 
-- Ligne1 supprimée, le curseur passe à la ligne 2
 
 Else
-- On n'y passe pas
      If  :system.last_record <> 'TRUE' Then
         Next_Record ;
      End if ;
   END IF;
-- On sort, car on est sur la dernière ligne (ligne2 qui est devenue ligne1)
   EXIT WHEN :system.last_record = 'TRUE';
END LOOP;

Résultat il reste une ligne à l'écran (la ligne2) et elle est cochée.

[SheikYerbouti]

Effectivement.

[killua86]

merci d'avoir repondu

le code marche bien et supprime l'enregistrement concerné,
mais ne supprime pas depuis ma table

[SheikYerbouti]

Il faut commiter, ensuite, bien sur.
Si le block est basé, les lignes correspondantes doivent être supprimés dans la table.

[McM]

Attention, dans mon post (#4), j'ai un clear_record et pas un delete_record.
Je vais le corriger pour éviter les erreurs.

[killua86]

la valeur i est de quel type?

[McM]

De type NUMBER, faut surtout pas le mettre en VARCHAR .
Les variables :system renvoient toujours une chaine de caractère, mais là si tu testes '10' et '9', tu aura '10'<'9', alors qu'en NUMBER tu auras 9<10 (normal)

[killua86]

merci beaucoup
le deuxième code marche bien
j'ai juste ajouté deux lignes, pourque les enregistrements cochés puissent disparaitre et réexécuter à nouveau

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
GO_BLOCK('mon_block');
First_Record;
-- ligne1
LOOP
   IF checkbox_checked('mon_block.ck') THEN
begin
 DELETE_RECORD; 
standard.commit;
clear_block;
execute_query;
end;

-- Ligne1 supprimée, le curseur passe à la ligne 2
  
 Else
-- On n'y passe pas
      IF  :system.last_record <> 'TRUE' Then
         Next_Record ;
      End IF ;
   END IF;
-- On sort, car on est sur la dernière ligne (ligne2 qui est devenue ligne1)
   EXIT WHEN :system.last_record = 'TRUE';
END LOOP;

vous êtes toujours les meuilleurs

[McM]

Houla, c'est quoi ce bout de code rajouté ? Tu ne peux avoir qu'une seule case de cochée, parce qu'à la première trouvée, tu la supprime et tu réaffiches tout (donc il n'y a plus de lignes cochées)...

Normalement, ce code se met après le END LOOP.

Code :

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

1
2
3
commit;
clear_block;
execute_query;

[killua86]

vous avez raison
mais j'ai deux petit problèmes,
le premier, est que le code ne supprime pas le dernier enregistrement coché
(c-a-d: si j'avais 3 enregistrements 1,2,3 et je coche directement le 3 pour le supprimer, il ne le supprime pas)

deuxième problème :
est-il possible d'executer une requete LMD à ala place de : delete_record ?
exemple:

Code :

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

1
2
3
4
IF checkbox_checked('mon_block.ck') THEN

update employé set A=null;
commit;

merci

[SheikYerbouti]

Oui, dans votre boucle vous pouvez supprimer l'enregistrement dans la base avec Delete From...
En sortie de boucle, raffaichissez avec execute_query sur le bloc.

[McM]

j'ai deux petit problèmes,
le premier, est que le code ne supprime pas le dernier enregistrement coché
(c-a-d: si j'avais 3 enregistrements 1,2,3 et je coche directement le 3 pour le supprimer, il ne le supprime pas)i

Tu as lu mon post #4 ?

[killua86]

en fait le code cité dans le post #4 m'a crée des erreurs
il coche aléatoirement un des enregistrement (généralement l'avant dernier!)
et si j'essaye de le décocher il m'affiche cette boite de dialogue :

reservation de l'enregistrement impossible (2 essais) voulez vous continuer

et lorsque je consulte ma table dans un nouveau form, j'ai constaté que quelques valeurs de la colone "num" ont été changés par 'o' ou par 'n' qui sont les valeurs de la case à cocher (propriétés :valeur lorsque coché 'o', non coché 'n')
et si je retire ces deux valeurs de la propriétés de la case à coché
je ne peux pas executer, j'obtiens ce msg d'erreus : les valeurs coché et non cohé des case à cocher doivent être distincts

[Devlop++]

Au lieu d'utiliser la colonne "num" comme une case à cocher, ajoute une autre colonne à ton bloc qui sera de ce type, elle ne sera pas liée avec ta table et les valeurs 'o' & 'n' ne seront pas enregistrées dans cette dernière.
@+