diff --git a/MiniREST.SQL.SQLDb.pas b/MiniREST.SQL.SQLDb.pas index daeb0bc..abec99f 100644 --- a/MiniREST.SQL.SQLDb.pas +++ b/MiniREST.SQL.SQLDb.pas @@ -531,7 +531,7 @@ procedure TMiniRESTSQLConnectionSQLDb.SetMiniRESTSQLParamToSQLParam(AMiniRESTSQL function TMiniRESTSQLConnectionSQLDb.InTransaction: Boolean; begin CheckConnectionIsValid; - Result := FSQLConnection.Transaction.Active; + Result := FInExplicitTransaction and FSQLConnection.Transaction.Active; end; function TMiniRESTSQLConnectionFactorySQLDb.GetConnectionsCount: Integer;