Discussion :

[94340DB]

Bonjour,
J’ai besoin de vos lumières
Dans une base de données sous delphi Je souhaite supprimer une liste d’élèves selon l’année ou session.
La table élèves est liée à la table session
La table session contient les sessions 2012 et 2013. La table élève contient les enregistrements ou la liste des élèves 2012 et 2013 selon ID de la table session.

La connexion s’effectue sans aucun problème ci-joint une partie du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 DM.QuerySessions.Close;
 DM.QuerySessions.SQL.Clear;
 DM.QuerySessions.SQL.Add('select * from Tbl_Sessions');
 
 QueryEleves.Close;
 QueryEleves.SQL.Clear;
 QueryEleves.SQL.Add('Select * from Tbl_Eleves where Eleve_ID=:SES_ID');
 QueryEleves.Parameters[0].DataType:=ftInteger;
 QueryEleves.Parameters[0].Direction:=pdInput;
 QueryEleves.Parameters[0].Attributes:=[paNullable];
 QueryEleves.Parameters[0].Name:='SES_ID';
 QueryEleves.DataSource:=DSSessions;

Voici ma requête delete qui supprime malheureusement les deux sessions à savoir : 2012 et 2013 dans la table élèves

Code :

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

1
2
3
DM.QueryEleves.SQL.Clear;
DM.QueryEleves.SQL.Add('delete  Tbl_Eleves_ ');
DM.QueryEleves.ExecSQL;

Je souhaite supprimer dans la table élève une liste d’élèves sans détruire l’autre.
ex: session 2012. Je me retrouve à chaque fois avec les deux sessions effacées?
Merci infiniment pour votre aide.

[ShaiLeTroll]

Dans une base de données sous delphi Je souhaite supprimer une liste d’élèves selon l’année ou session.

Cela commence mal !
Tu as probablement voulu dire que tu utilisais Paradox via le BDE au sein de ton application Delphi
Si ce n'est ni Paradox ni BDE, merci de preciser le SGBD et le layer utilisé

Code :

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

1
2
3
4
5
6
QueryEleves.SQL.Add('Select * from Tbl_Eleves where Eleve_ID=:SES_ID');
 QueryEleves.Parameters[0].DataType:=ftInteger;
 QueryEleves.Parameters[0].Direction:=pdInput;
 QueryEleves.Parameters[0].Attributes:=[paNullable];
 QueryEleves.Parameters[0].Name:='SES_ID';
 QueryEleves.DataSource:=DSSessions;

Le code ci-dessus utilise une relation maitre-détail, pour le SELECT c'est très pratique pour le DELETE, je ne l'ai jamais pratiqué, est-ce même possible

Sache que l'on peut aussi écrire tout simplement

Code :

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

1
2
QueryEleves.SQL.Add('Select * from Tbl_Eleves where Eleve_ID=:SES_ID'); // Eleve_ID à mon avis devrait être SES_ID 
QueryEleves.ParamByName('SES_ID').AsInteger := SessionID;

SessionID un nombre fourni par un TEdit par exemple ou via un AfterScroll sur Session

Par contre Eleve_ID=:SES_ID me semble peut convaincant !
Il y a un mélange des Clés, si Eleve est attaché à une session, il devrait y avoir un SES_ID dans la table elève

j'utiliserais un QueryElevesSup sans DataSource pour ne perturber QueryEleves

Code :

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

1
2
3
4
5
6
7
8
9
10
 
DM.QueryEleves.Close();
 
DM.QueryElevesSup.Close();
DM.QueryElevesSup.SQL.Clear;
DM.QueryElevesSup.SQL.Add('delete  Tbl_Eleves where SES_ID = :SES_ID ');
DM.QueryElevesSup.ParamByName('SES_ID').AsInteger := SessionID;
DM.QueryElevesSup.ExecSQL;
 
DM.QueryEleves.Open(); // Relit les données !

[94340DB]

Bonjour et merci ShailTroll pour la réponse.
En ce qui concerne le SGBD j’utilise ADO (moteur de base de données Microsoft Jet avec un curseur côté client).

En ce qui concerne la procédure de connexion elle fonctionne parfaitement. Je l’ai ajouté uniquement pour éclairer ma question de base à savoir : supprimer une liste d’élèves selon la session. Néanmoins je prends acte de vos conseils, je tenterai une connexion ADO avec moins de lignes.

En ce qui concerne les règles de nommage des clefs primaires et externes je savais qu’il fallait faire des modifications. Cependant, j’ai irrité de cette base de données qui contient déjà une vingtaine de tables toutes liées dans un DATAMODULE, je n’ai pas eu le temps de toucher au guêpier, mais je le ferai pendant les vacances.

Grace à vos orientations et vos conseils j’ai réussi à créer une requête me permettant de supprimer une session sans endommager les autres. Cependant, j’ai procédé à quelques modification, puisque
Cette partie de la procédure ne fonctionne pas chez moi :
DM.QueryElevesSup.Parameters.ParamByName('SES_ID ').asInteger := ne fonctionne pas, erreur sur AsInteger ;

Voici la requête qui a fonctionnée mais attention n’ayant pas assez de recul je ne sais si elle est conforme et stable ?

Code :

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

1
2
3
4
DM.QueryElevesSup.Close();
DM.QueryElevesSup.SQL.Clear;                        
DM.QueryElevesSup.SQL.Add('DELETE FROM Tbl_Eleves ');
DM.QueryElevesSup.SQL.Add('Where Eleve_ID =: SES_ID '); DM.QueryElevesSup.ExecSQL;

je vous remercie infiniment pour votre aide.

[Ph. B.]

Bonjour,

En ce qui concerne le SGBD j’utilise ADO (moteur de base de données Microsoft Jet avec un curseur côté client).
...
Cependant, j’ai procédé à quelques modification, puisque
Cette partie de la procédure ne fonctionne pas chez moi :
DM.QueryElevesSup.Parameters.ParamByName('SES_ID ').asInteger := ne fonctionne pas, erreur sur AsInteger ;

ParamByName renvoie un TParameter dont on peut affecter la valeur par la propriété Value de type OleVariant.

Ce qui donne en reprenant votre code :

Code :

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

1
2
3
4
5
6
DM.QueryElevesSup.Close();
DM.QueryElevesSup.SQL.Clear;                        
DM.QueryElevesSup.SQL.Add('DELETE FROM Tbl_Eleves');
DM.QueryElevesSup.SQL.Add('Where Eleve_ID = :SES_ID');
DM.QueryElevesSup.Parameters.ParamByName('SES_ID').Value := SessionID;
DM.QueryElevesSup.ExecSQL;

[94340DB]

Merci à tous