Discussion :

[ddaime]

Bonsoir à tous.

J'utilise Lazarus avec ZeosLib pour accéder à une base de données Firebird. Je n'ai pas trouvé beaucoup de documentation sur l'utilisation de cette librairie.
J'ai déposé sur une fiche un composant TZConnection, un TZTable, un TDatasource, un DBGrid et un DBNavigator. Jusque là pas de problème, je charge bien ma table dans le DBGrid et je peux ajouter, modifier ou supprimer mes enregistrements. J'aimerais maintenant autoriser ou annuler les changements du DBGrid dans ma base, en gros j'aimerais que, lorsque je ferme ma fiche par exemple, ou que je clique sur les boutons Post ou Cancel du DBNavigator, je revienne à l'état initial de ma table.
Je ne demande pas d'exemple de code mais la façon d'y parvenir.
Merci.

[tintinux]

Bonjour

Tu dois encadrer les instructions de DbConnection.StartTransaction et DbConnection.Rollback

Il faut faire attention à ne pas laisser de transaction non fermée, ni même trop longtemps active quand on est en mode multi-utilisateur. Pour éviter que cela ne survienne suite à une erreur, un bloc try/finally est en général nécessaire. Et il faut éviter d'attendre une action utilisateur pour fermer la transaction.

Copier dans une table temporaire ou en mémoire est une autre solution, parfois plus sûre et plus simple.

[ddaime]

J'ai trouvé une solution de substitution en activant le cache d'un TZTable

Code :

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

dmOstrea.Calibre.CachedUpdates := true;

Ensuite j'ai deux bouton, Ok et Annuler avec les événements suivants pour charger les changements en base ou bien les annuler.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfrmCalibre.btnCaClick(Sender: TObject);
begin
  dmOstrea.Calibre.CancelUpdates;
end;
 
procedure TfrmCalibre.btnOkClick(Sender: TObject);
begin
  dmOstrea.Calibre.ApplyUpdates;
end;

J'aimerai utiliser une solution en utilisant la gestion des transactions (Rollback et Commit) mais mes tentatives n'ont pas abouti.
Le code suivant ne fonctionne pas, mes changements dans le DBGrid sont automatiquement répercuté en base dés que je change de ligne sur le DBGrid.

Code :

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

1
2
3
4
]procedure TfrmCalibre.btnCaClick(Sender: TObject);
begin
  dmOstrea.FbConnexion.Rollback;
end;