Exemple : Transfert protégé entre deux comptes

Transfert entre deux comptes en SQL standard sous PostgreSQL

BEGIN;
UPDATE Compte1 SET Solde=Solde+100 WHERE Num=1;
UPDATE Compte2 SET Solde=Solde-100 WHERE Num=1;
COMMIT;
/

Transfert entre deux comptes en PL/SQL sous Oracle

CREATE OR REPLACE PROCEDURE myTransfC1C2
IS
BEGIN
 UPDATE Compte1 SET Solde=Solde+100 WHERE Num=1;
 UPDATE Compte2 SET Solde=Solde-100 WHERE Num=1;
 COMMIT;
END;
/

Transfert entre deux comptes en VBA sous Access

Sub myTransfC1C2
 BeginTrans
  CurrentDb.CreateQueryDef("", "UPDATE Compte1 SET Solde=Solde+100 WHERE Num=1").Execute
  CurrentDb.CreateQueryDef("", "UPDATE Compte2 SET Solde=Solde-100 WHERE Num=1").Execute
 CommitTrans
End Sub

AccueilCours > Fiabilité et transactions > Exemple : Transfert protégé entre deux comptes< PrécédentSuivant >