Discussion :

[iam]

je travaille avec delphi 7 et une base de données access, j'utilise pour cela le composant ADO, j'ai deux tables mouvement(maitre) et detail_mouvement (detail), je veux inserer un mouvement après j'insère son détail, je prèfère réaliser ça avec une transaction, comment je procède, est ce que je fait ça dans access après j'appele la transaction dans delphi et je l'execute ou comment? quel est la syntaxe de la transaction?

[Rayek]

Voici un exemple, à toi d'adapter

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
35
36
37
38
39
40
41
42
 
With AdoConnection1 do
begin
  BeginTrans; // Debut de la transaction
  With AdoTable1 do
  begin
    Append;
    FieldByName('Field1').asString := Edit1.text;
    FieldByName('Field2').asString := Edit1.text;
    ...
    FieldByName('FieldX').asString := EditX.text;
     Try // Si il y a un pb avec le post
      Post;
    Except on E:Exception do
      begin
        RollBackTrans; // Annule la transaction
        Showmessage(E.Message); // affiche l'erreur
        Exit; // quitte la procé"dure sans passer par le Commit à la fin
      end;
    end; // try
  end; // with
 
  With AdoTable2 do
   begin
     Append;
     FieldByName('Field1').asString := Edit1.text;
     FieldByName('FieldB').asString := Edit3.text;
     ...
     FieldByName('FieldX').asString := EditX.text;
      Try
       Post;
     Except on E:Exception do
       begin
         RollBackTrans;
         Showmessage(E.Message);
         Exit;
       end;
     end; // try
   end; // with
 
  CommitTrans; // valide la transaction
end;