|
Dim DBPath
DBPath = "c:\sample.fdb"
CreateDB(DBPath)
OpenDB(DBPath)
Set ug = AddUsergroup("UserGroup1", CatalogDB.CatalogRoot)
ApplyAll
IsOK = DeleteCatalogItem(ug)
If IsOK Then MsgBox "The execution of DeleteCatalogItem Function is successful!"
ApplyAll |