Definition: IMetabaseDefinition;
The Definition property returns the current repository description, stored in repositories manager.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
MDef: IMetabaseDefinition;
Begin
MB := MetabaseClass.Active;
MDef := MB.Definition;
Debug.WriteLine(MDef.LogonData.ParamValue("SERVER"));
Debug.WriteLine(MDef.LogonData.ParamValue("SCHEME"));
End Sub UserProc;
After executing the example the development environment console displays a name of server and schema, to which the current connection is executed.
See also: