Bonjour,
J'ai un souci pour réaliser un Commit après un Update sur une base Firebird ; mon update fonctionne correctement car quand je sors de mon appli et que je reviens je constate que la requette a fait son boulot.j'utilise des TIBquery et Donc des TibTransaction , voici le code:
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
 
var
Qry:TIBquery;
no_facture,mt_ttc:string;
_database:TIBDatabase;
Transaction1:TIBTransaction;
 
begin
 
 
 MessageDlg('test2', mtWarning, [mbOK], 0);
 DMTactile.NewQry(Qry);
 
 with qry do
         begin
          if Active then close;
         SQL.Clear;
         SQL.Add('update ENTETES_RESA set CDE_ACTIF= ''N'' '
         + ' where cde_codresa = :codresa and cde_noenreg = :noenreg and cde_nbnuits =:nbnuits ') ;
              ParamByName('codresa').AsFloat := codresa_;
              ParamByName('noenreg').Asinteger := noenreg_;
              Parambyname('nbnuits').AsInteger := nbnuits_ ;
         //ParamByName('cde_actif').AsString:=tactif;
         ExecSQL;
         MessageDlg('Essai commit', mtWarning, [mbOK], 0);
          Transaction1.Commit;
          //Commit;
         Close;
 
 
 end;
         DMTactile.DestroyQRY(Qry)
 
end;
j'ai un message m'indiquant une violation d'accés.
Merci pour votre aide .

Ah au fait est ce que quelqu'un peut me dire comment ajouter un avatar à mon profil avec une image perso.