Discussion :

[the watcher]

Salut les amis.
Je voudrais intégrer ce code sql :

Code :

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

DELETE FROM TableEtudiant WHERE matricule = 'Edit1.text'

après le then de ce code delphi

Code :

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

1
2
3
4
5
6
7
8
9
10
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
     .......
end;

j'ai essayé mais je suis entrain de me demander s'il ne faut pas utiliser le composant IBQuery.
Qu'en pensez-vous ?.

[qi130]

j'ai essayé mais je suis entrain de me demander s'il ne faut pas utiliser le composant IBQuery.
Qu'en pensez-vous ?.

Oui, c'est bien cela.

[the watcher]

Voici ce que j'ai essayer de concocter.
Mais ça semble ne pas marcher

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
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
    DM1.IBQEtudiant.SQL.Clear;
    DM1.IBQEtudiant.SQL.Add('DELETE FROM ETUDIANT WHERE MATRICULE = :MATRICULE');
    DM1.IBQEtudiant.Params[0].AsString:= EditMatric.Text;
    DM1.IBQEtudiant.ExecSQL;
 
end;

est-ce qu'il est fameux mon code ?

[qi130]

Ca me parait correct...

Mais ça semble ne pas marcher

C'est à dire ?

Ca ne fait pas le delete ? ça "plante" ?


Il manque peut-être un Close du query.....et un commit ?

[the watcher]

ça ne fais pas le delete. C'est c'que je veux dire.

le close query je le où :

[qi130]

De suite après l'ExecSQL.

Par contre, et avant que tu ailles plus loin, il serait bon de "protéger" les accès à la base dans un bloc try....except.

Cela permet de trapper les erreurs et d'éventuellement procéder à un roolback en agissant au sein d'une transaction.

Un petit papier sur les transactions: http://hcesbronlavau.developpez.com/Transactions/

et la http://interbase.developpez.com/faq/?page=transaction