ReflectObjectsRights: UpdateReflectObjectsRightsType;
The ReflectObjectsRights property determines a method for transferring repository object permissions.
Executing the example requires that the repository contains two tables with the TABLE_1 and TABLE_2 identifiers.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
Update: IMetabaseUpdate;
Root: IMetabaseUpdateFolderNode;
TableObj: IMetabaseUpdateDataObjectNode;
Begin
MB := MetabaseClass.Active;
Update := MB.CreateUpdate;
Root := Update.RootFolder;
TableObj := Root.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;
TableObj.Object := MB.ItemById("Table_1");
TableObj.UpdatePart :=MetabaseObjectUpdatePart.DataMetadataSD;
TableObj := Root.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;
TableObj.Object := MB.ItemById("Table_2");
TableObj.UpdatePart :=MetabaseObjectUpdatePart.DataMetadataSD;
Update.ReflectObjectsRights:= UpdateReflectObjectsRightsType.Ask;
Update.SaveToFileNF("c:\Table.pefx");
End Sub;
After executing the example a new update is created. Two tables are included in the update. Data, metadata and access permissions are updated for the tables. When applying update, a query to update access permissions for the tables on the DBMS level is displayed.
See also: