IPrimaryMsSqlSPLD.Database

Синтаксис Fore

Database: String;

Синтаксис Fore.NET

Database: String;

Описание

Свойство Database определяет идентификатор базы данных на сервере MS SQL, в которой хранятся данные репозитория.

Если на сервере используется тип СУБД Microsoft SQL Server 2008 и используется пользовательская схема в базе данных, то значение свойства Database представляется в виде: <база данных>.<схема в базе данных>.

Пример Fore

Для выполнения примера подключите к модулю системную сборку Metabase.

Sub UserProc;
Var
    MbMan: IMetabaseManager;
    MbDefs: IMetabaseDefinitions;
    MbDef: IMetabaseDefinition;
    MsSqlSPLD: IPrimaryMsSqlSPLD;
Begin
    MbMan := MetabaseManagerFactory.Active;
    MbDefs := MbMan.Definitions;
    MbDef := MbDefs.Add;
    MbDef.DriverId := "MSSQL2008";
    MbDef.Id := "Test_MSSQL";
    MbDef.Name := "Test_MSSQL";
    MbDef.Authentication := AuthenticationMode.Password;
    MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
    MsSqlSPLD := MbDef.LogonData As IPrimaryMsSqlSPLD;
    MsSqlSPLD.Server := "Test_MS";
    MsSqlSPLD.Database := "Test_Schema_MS";
    MbDef.Save;
End Sub UserProc;

После выполнения примера будет создано новое описание репозитория. Схема, к которой будет осуществляться подключение, расположена на сервере «Test_MS», на котором используется СУБД MS SQL Server 2008.

Пример Fore.NET

Указанная процедура является точкой входа для .NET-сборки.

Imports Prognoz.Platform.Interop.Metabase;

…

    Public Shared Sub Main(Params: StartParams);
    Var
        MbMan: IMetabaseManager;
        MbDefs: IMetabaseDefinitions;
        MbDef: IMetabaseDefinition;
        MsSqlSPLD: IPrimaryMsSqlSPLD;
        MF: IMetabaseManagerFactory;
    Begin
        MF := New MetabaseManagerFactoryClass();
        MbMan := MF.Active;
        MbDefs := MbMan.Definitions;
        MbDef := MbDefs.Add();
        MbDef.DriverId := "MSSQL2008";
        MbDef.Id := "Test_MSSQL1";
        MbDef.Name := "Test_MSSQL1";
        MbDef.Authentication := AuthenticationMode.amPassword;
        MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
        MsSqlSPLD := MbDef.LogonData As IPrimaryMsSqlSPLD;
        MsSqlSPLD.Server := "Test_MS";
        MsSqlSPLD.Database := "Test_Schema_MS";
        MbDef.Save();
    End Sub;

См. также: