Views: IDatabaseViews;
Свойство Views возвращает объект, содержащий коллекцию всех представлений, хранящихся на сервере БД.
Sub Main;
Var
MB: IMetabase;
DBInst: IDatabaseInstance;
Views: IDatabaseViews;
ViewsName: IStringList;
Begin
MB := MetabaseClass.Active;
ViewsName := New StringList.Create;
DBInst := MB.ItemById("BD").Open(Null) As IDatabaseInstance;
Views := DBInst.Views;
While Not Views.Eof Do
ViewsName.Add(Views.ViewName);
Views.Next;
End While;
End Sub Main;
После выполнения примера в массиве «ViewsName» будут содержаться физические имена всех представлений, хранящихся на сервере БД, на который настроена база данных репозитория с идентификатором "BD".
См.также: