Checks(TableName: String): IDalCursor;
TableName. Физическое имя таблицы, информацию об ограничениях которой необходимо получить.
Свойство Checks возвращает курсор с метаданными ограничений указанной таблицы.
Для выполнения примера в репозитории предполагается наличие базы данных с идентификатором DB. В базе данных имеется таблица с физическим именем TABLE_1
Добавьте ссылки на системные сборки: Dal, Db, Metabase.
Sub UserProc;
Var
MB: IMetabase;
DB: IDatabaseInstance;
Checks: IDalCursor;
Field: IDalCursorField;
Begin
MB := MetabaseClass.Active;
DB := MB.ItemById("DB").Open(Null) As IDatabaseInstance;
Checks := DB.Connection.Checks("TABLE_1");
While Not Checks.Eof Do
For Each Field In Checks.Fields Do
Debug.WriteLine(Field.Name + ": " + Field.Value);
End For;
Debug.WriteLine("");
Checks.Next;
End While;
Checks.Close;
End Sub UserProc;
При выполнении примера будет осуществлено подключение к серверу БД, на который настроена указанная база данных. В консоль среды разработки будет выведена системная информация об ограничениях таблицы.
См. также: