Intégration sql dans delphi

Version imprimable

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

Code:

DELETE FROM TableEtudiant WHERE matricule = 'Edit1.text'

après le then de ce code delphi
Code:

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 ?.

02/11/2005, 17h19
qi130

Citation:

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.

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

Code:

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 ? :(

02/11/2005, 19h44
qi130

Ca me parait correct...

Citation:

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 ?
04/11/2005, 09h50
the watcher

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

le close query je le où :?:
04/11/2005, 10h46
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 :faq: http://interbase.developpez.com/faq/?page=transaction