Discussion :

[Mestoph]

Bonjour,

J'ai un petit problème concernant le listing d'une table d'association dans un DBGrid.

Si j'utilise un Query est un DataSource j'arrive parfaitement a afficher toutes les données dont j'ai besoin.

Le problème et quand utilisant une Query, si j'utilise un enregistrement et que je fais .Delete il efface des données dans ma table d'asso et hélas aussi dans les table contenant mes liste...

Y a-t-il un moyen pour ne pas toucher aux tables de liste et uniquement supprimer l'enregistrement dans ma table d'association?

Je vous remercie d'avance pour votre aide.

Bonne journée.

Edit : Désolé, j'ai oublié de vous donnez des informations capitales : J'utilise delphi 7.0, et j'utilise le composant TAdoQuery.

[Rayek]

Peux tu nous donner la requete que tu utilises pour récupérer la liste de ta table assos ?

[Mestoph]

Désolé pour cette oubli....

Code :

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

1
2
3
  Donnees.Query.SQL.Clear;
  Donnees.Query.SQL.Add('SELECT H.*, S.* FROM horaires_examens AS H LEFT JOIN sections AS S ON H.fk_section = S.pk_section ORDER BY S.nom ASC;');
  Donnees.Query.Open;

[Rayek]

Déjà qu'un delete passe sur une jointure c'est hallucinant car c'est normalement impossible.

Et ton problème est donc normal si le composants fonctionne comme je le pense, quand tu fais ton delete dans ta requete avec jointure, il te supprime l'integralité des données communes avec l'enregistrement de la table horaires_examens et les autres de la table sections

Normalement il n'est possible de travailler sur des requetes avec les delete/append/etc... que sur des requetes mono-table.
Donc je te conseil de faire une requete delete et de rafraichir après ta requete de base.

[Mestoph]

C'est ce que je pensé aussi, mais je suis venu sur le forum pour voir si une personne n'avais pas une astuce autre.

Mais avec ta réponse, je ne pense pas qu'il y ait une meilleure solution...

Si jamais je trouve une alternative, je la posterai.

Grand merci pour ta rapidité !

[Mestoph]

Voici un exemple de solution d'après les informations reçue par Malatar, j'epsère que celà aidera des membres du forum.

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
28
29
30
31
32
33
34
35
36
{===============================================================================
  Actualisation de l'affichage contenu dans la liste des données.
===============================================================================}
Procedure ActualisationDbGrid;
Begin
  Donnees.Query.Close;
  Donnees.Query.SQL.Clear;
  Donnees.Query.SQL.Add('SELECT H.*, S.* FROM horaires_examens AS H LEFT JOIN sections AS S ON H.fk_section = S.pk_section ORDER BY S.nom ASC;');
  Donnees.Query.Open;
End;
{===============================================================================
  Suppression d'un horaire dans la liste.
===============================================================================}
Procedure TFrmHoraires.BtnSupprimerClick(Sender: TObject);
  Var
    FkSection : String[15];
Begin
  // Si il y a des données dans les horaires
  If Donnees.Query.RecordCount <> 0 Then
    Begin
      If MessageDlg('Etes-vous certain de vouloir supprimer l''horaire : ' +
          Donnees.Query.FieldValues['nom'] + ' ?', mtConfirmation, [MbYes,MbNo], 0) = MrYes Then
        Begin
          // On sauvegarde l'identifiant avant de fermer le query
          FkSection := Donnees.Query.FieldValues['fk_section'];
          // On supprime la sélection
          Donnees.Query.Close;
          Donnees.Query.SQL.Clear;
          Donnees.Query.SQL.Add('DELETE FROM horaires_examens WHERE fk_section = ''' + FkSection + ''';');
          // On execute la requête sans demande de résultat.
          Donnees.Query.ExecSQL;
          // On actualise l'affichage de la liste des données
          ActualisationDbGrid;
        End;
    End;
End;