IPrimaryMsSqlSPLD.Database

Fore Syntax

Database: String;

Fore.NET Syntax

Database: String;

Description

The Database property determines identifier of the database on the MS SQL server, in which repository data is stored.

Comments

If the Microsoft SQL Server 2008 DBMS type is used and if the user schema is used in database, a value of the Database property is viewed as: <database>.<schema in database>.

Fore Example

To execute the example, add the Metabase system assembly to the module.

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;

A new description of the repository is created after executing this example. The schema, to which the connection is established is located on the Test_MS server, on which the MS SQL Server 2008 DBMS is used.

Fore.NET Example

The specified procedure is an entry point for the .NET assembly.

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;