This function returns the provider by the code.
object.LoadProvider(aProviderCode)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aProviderCode |
In, Required | string |
The code of the provider |
Display the code and full name of the loaded provider.
Dim aProvider
Dim aCode
Dim aFullName
Set aProvider = Profile.LoadProvider("ADMIN")
aFullName = aProvider.FullName
aCode = aProvider.Code
if aProvider.ID = 0 then
Profile.MsgBox ("There is no provider with the specified code")
else
Profile.MsgBox (aCode & vbTab & aFullName)
end ifIn Profile Client v8 on User Interface Provider can be found in .