Suppression en cascade des lignes dans un Dbgrid

Version imprimable

Salut tout le monde;

Je voudrai supprimer une ligne selectionner dans un Dbgrid en comparant ça clé qui est en relation avec table1
la suppresion ce fait juste au niveau de la Dbgrid.dataset mais pas dans la table1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TFSUPMANDAT.BitBtn3Click(Sender: TObject);
begin
table1.open;
 
 
  if DbGrid1.Datasource.Dataset.RecordCount = 0 then
   Exit;
  if DbGrid1.Datasource.Dataset.RecNo >= 0 then
 
 
 
      if MessageDlg('Voulez vous vraiment supprimer cet enregistrement ?',
                          MtConfirmation, MbOkCancel, 0) = mrOk then
 
      if DBGrid1.DataSource.DataSet.FieldByName('Nummdt').value =table1.FieldByName('Nummdt').AsString then
       if DBGrid1.DataSource.DataSet.FieldByName('Nligne').value =table1.FieldByName('Nligne').AsString then
 
      DbGrid1.Datasource.DataSet.Delete;
      table1.delete;

21/09/2015, 14h53
Ph. B.

Bonjour,
Je ne vois pas trop le rapport entre le titre de votre message "Suppression en cascade" et ce que vous décrivez...:weird:

Citation:

Envoyé par bastion

la suppresion ce fait juste au niveau de la Dbgrid.dataset mais pas dans la table1

Est ce que DbGrid1.Datasource.Dataset = Table1 ?
Au quel cas, le code va supprimer 2 lignes dans l'ensemble de données... :(

Est ce que Table1 est un ensemble de données détail de celui pointé par DBGrid1 ?
Au quel cas (et suivant le moteur de base de données), la suppression se fait-elle dans l'ordre voulu (détails puis maitre) ?

Sinon, un commit après l'opération a-t-il été exécuté ?

Plus de questions que de réponses à votre problème donc...:?
21/09/2015, 15h44
bastion

Citation:

Envoyé par Ph. B.

Bonjour,
Je ne vois pas trop le rapport entre le titre de votre message "Suppression en cascade" et ce que vous décrivez... :weird:

Est ce que DbGrid1.Datasource.Dataset = Table1 ?
Au quel cas, le code va supprimer 2 lignes dans l'ensemble de données... :(

Est ce que Table1 est un ensemble de données détail de celui pointé par DBGrid1 ?
Au quel cas (et suivant le moteur de base de données), la suppression se fait-elle dans l'ordre voulu (détails puis maitre) ?

Sinon, un commit après l'opération a-t-il été exécuté ?

Plus de questions que de réponses à votre problème donc...:?

pardonne moi pour le titre j'ai mal interprété
je travail sous le moteur B.D paradox

En effet je possède 2 table qui sont en relation
mon but, est lorsque je supprime une ligne du Dbgrid il faut que dans l'autre table1 le champ qui correspond soit supprimé aussi
DbGrid1.Datasource.Dataset = table2
21/09/2015, 16h33
SergioMaster

Bonjour,

personnellement je passerai par une bonne vieille query paramétrée et ,puisque il s'agit certainement de BDE qui est utilisé, l’évènement BeforeDelete de la Table Maitre
(table1, table2 je m'y perd !)
21/09/2015, 19h24
bastion

Citation:

Envoyé par SergioMaster

Bonjour,

personnellement je passerai par une bonne vieille query paramétrée et ,puisque il s'agit certainement de BDE qui est utilisé, l’évènement BeforeDelete de la Table Maitre
(table1, table2 je m'y perd !)

Franchement vous avez raison ça ma échappé et surtout que que je l'ai déjà fait auparavant.... alors merci pour cet rappel à l'ordre.