Discussion :

[the watcher]

Vérifiez ce bout de code pour moi les amis :

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
procedure TForm2.SpeedButton18Click(Sender: TObject);
var
  rep : integer;
begin
//  Code qui enclenche la procedure de suppression
    rep:=MessageBox(Handle,'Êtes-vous sûr de voir supprimer cet Etudiant ?',
    'Confirmation', MB_OKCANCEL or MB_ICONQUESTION);
    If (rep =IDOK) then
// suppression de l'enrégistrement : ETUDIANT
    DM2.IBQEtudSupprim.SQL.Clear;
    DM2.IBQEtudSupprim.SQL.Add('DELETE FROM ETUDIANT WHERE MATRICULE = :MATRICULE');
    DM2.IBQEtudSupprim.Params[0].AsString:= EditMatric.Text;
    DM2.IBQEtudSupprim.ExecSQL;
    DM2.IBQEtudSupprim.Close;
// suppression de l'enrégistrement : PARENT
    DM2.IBQParentSupprim.SQL.Clear;
    DM2.IBQParentSupprim.SQL.Add('DELETE FROM PARENT WHERE MATRICULE = :MATRICULE')
    DM2.IBQParentSupprim.Params[0].AsString:= EditMatric.Text;
    DM2.IBQParentSupprim.ExecSQL;
    DM2.IBQParentSupprim.Close;
 
    DM1.IBTableEtudiant.Refresh;
    DM1.IBTableParent.Refresh;
    DM1.IBQEtudiant.First;
    DM1.IBQueryParent.First;
    RemplirEtudiant.Execute;
    RequeteParent.Execute;
end;

J'ai l'impression qu'il ya un close query qui manque quelque part ?
Aidez-moi à le placer.

[qi130]

Il manque surtout un begin.....end !

en effet, seul

Code :

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

1
2
// suppression de l'enrégistrement : ETUDIANT 
    DM2.IBQEtudSupprim.SQL.Clear;

dépend du if

ensuite, oui, il est bon de clore la query, dès qu'on n'en a plus besoin

[e-ric]

Salut

La méthode Close n'a de sens que si la requête manipule un ensemble de données suite à un SELECT.

Les ordres de mises à jour tels que DELETE ne retourne pas de résultat sous forme d'ensemble de données. Les appels

Code :

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

1
2
 
DM2.IBQEtudSupprim.Close;

et

Code :

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

1
2
 
DM2.IBQParentSupprim.Close;

n'ont donc pas de sens.

Quel est le problème réel qui t'amène à poster ici ?

cdlt

e-ric

[the watcher]

Mon programme fonctionne comme je le souhaite c'est à dire qu'il fait le delete desiré. Seulement je voudrais surtout avoir l'avis des membres émerites comme vous pour me dire s'il ne manque pas quelque chose ou si mon code malgré qu'il fonctionne est bien redigé.

[edam]

il faut bien sur un begin ..end ou bien

Code :

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

If (rep <>IDOK) then exit;

ce que je fait moi
en plus si tu veux:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var s:string;
begin
....
If (rep <>IDOK) then exit;
s:='DELETE FROM :Table WHERE MATRICULE = '+quotestr(trim(EditMatric.Text));
if DM2.IBQEtudSupprim.active then DM2.IBQEtudSupprim.active:=false;
DM2.IBQEtudSupprim.SQL.Clear; 
    DM2.IBQEtudSupprim.SQL.Add(s); 
    DM2.IBQEtudSupprim.Params[0].AsString:= 'Etudiant'; 
    DM2.IBQEtudSupprim.ExecSQL;
// suppression de l'enrégistrement : PARENT 
    DM2.IBQParentSupprim.Params[0].AsString:= 'PARENT' ; 
    DM2.IBQParentSupprim.ExecSQL;