* Close datasets before removing their transaction

git-svn-id: trunk@9072 -

packages/fcl-db/src/database.inc

@@ -367,6 +367,7 @@ Destructor TDBTransaction.Destroy;
 
 begin
   Database:=Nil;
+  CloseDataSets;
   RemoveDatasets;
   FDatasets.Free;
   Inherited;