FileName: String;
FileName: String;
Свойство FileName определяет путь и наименование файла, в котором хранятся данные репозитория.
Для выполнения примера подключите системную сборку Metabase.
Sub UserProc;
Var
MbMan: IMetabaseManager;
MbDefs: IMetabaseDefinitions;
MbDef: IMetabaseDefinition;
SQLiteSPLD: IPrimarySQLiteSPLD;
Begin
MbMan := MetabaseManagerFactory.Active;
MbDefs := MbMan.Definitions;
MbDef := MbDefs.Add;
MbDef.DriverId := "SQLITE";
MbDef.Id := "SQLITE_REPO";
MbDef.Name := "SQLITE_REPO";
MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
SQLiteSPLD := MbDef.LogonData As IPrimarySQLiteSPLD;
SQLiteSPLD.FileName := "C:\Work\sqlite_repo";
MbDef.Save;
End Sub UserProc;
После выполнения примера будет создано новое описание репозитория. Репозиторий, к которому будет осуществляться подключение, создан на базе СУБД SQLite и располагается в указанном локальном файле.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Public Shared Sub Main(Params: StartParams);
Var
MbManClass: MetabaseManagerFactoryClass = New MetabaseManagerFactoryClass();
MbMan: MetabaseManager;
MbDefs: IMetabaseDefinitions;
MbDef: IMetabaseDefinition;
SQLiteSPLD: IPrimarySQLiteSPLD;
Begin
MbMan := MbManClass.Active;
MbDefs := MbMan.Definitions;
MbDef := MbDefs.Add();
MbDef.DriverId := "SQLITE";
MbDef.Id := "SQLITE_REPO";
MbDef.Name := "SQLITE_REPO";
MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
SQLiteSPLD := MbDef.LogonData As IPrimarySQLiteSPLD;
SQLiteSPLD.FileName := "D:\Work\sqlite_repo";
MbDef.Save();
End Sub;
См. также: