ODBCParamValue(Name: String): Variant;
ODBCParamValue[Name: String]: Object;
Name. Наименование параметра.
Свойство ODBCParamValue определяет значение для параметра с указанным наименованием.
Наименования параметров можно получить в документации по ODBC драйверу, с помощью которого осуществляется подключение.
В операционной системе должен быть установлен ODBC драйвер для Microsoft SQL Server. В сети имеется сервер с наименованием «MSSQLServer», на сервере создана схема «DataRepository».
Добавьте ссылку на системную сборку Metabase. В Fore.NET также добавьте ссылки на системную сборку WinForms.Utils.
Sub UserProc;
Var
MbMan: IMetabaseManager;
MbDefs: IMetabaseDefinitions;
MbDef: IMetabaseDefinition;
MssqlOdbcSPLD: IPrimaryMsSqlODBCSPLD;
Begin
MbMan := MetabaseManagerFactory.Active;
MbDefs := MbMan.Definitions;
MbDef := MbDefs.Add;
MbDef.DriverId := "MSSQL2012ODBC";
MbDef.Id := "MSSQL_ODBC";
MbDef.Name := "MSSQL_ODBC";
MbDef.Authentication := AuthenticationMode.Password;
MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
MssqlOdbcSPLD := MbDef.LogonData As IPrimaryMsSqlODBCSPLD;
MssqlOdbcSPLD.Server := "MSSQLServer";
MssqlOdbcSPLD.Database := "DataRepository";
MssqlOdbcSPLD.ODBCParamValue("MultiSubnetFailover") := "Yes";
MssqlOdbcSPLD.ODBCParamValue("ApplicationIntent") := "ReadWrite";
MbDef.Save;
End Sub UserProc;
Imports Prognoz.Platform.PiLibNet.Utils;
Imports Prognoz.Platform.Interop.Metabase;
Public Shared Sub UserProc();
Var
ManagerFactory: IMetabaseManagerFactory;
MbMan: IMetabaseManager;
MbDefs: IMetabaseDefinitions;
MbDef: IMetabaseDefinition;
MssqlOdbcSPLD: IPrimaryMsSqlODBCSPLD;
Begin
ManagerFactory := ComCreator.Instance.CoCreate<MetabaseManagerFactoryClass>();
MbMan := ManagerFactory.Active;
MbDefs := MbMan.Definitions;
MbDef := MbDefs.Add();
MbDef.DriverId := "MSSQL2012ODBC";
MbDef.Id := "MSSQL_ODBC";
MbDef.Name := "MSSQL_ODBC";
MbDef.Authentication := AuthenticationMode.amPassword;
MbDef.SecurityPackage := "STANDARDSECURITYPACKAGE";
MssqlOdbcSPLD := MbDef.LogonData As IPrimaryMsSqlODBCSPLD;
MssqlOdbcSPLD.Server := "MSSQLServer";
MssqlOdbcSPLD.Database := "DataRepository";
MssqlOdbcSPLD.ODBCParamValue["MultiSubnetFailover"] := "Yes";
MssqlOdbcSPLD.ODBCParamValue["ApplicationIntent"] := "ReadWrite";
MbDef.Save();
End Sub;
При выполнении примера будет создано новое описание для подключения к указанному репозиторию. При подключении используется ODBC драйвер с заданием дополнительных параметров подключения.
См. также: