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