This function returns the provider by ID.
object.LoadProviderById(anId)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
anId |
In, Required | int |
ID of the provider |
Display the code, full name and ID of the loaded provider.
Dim aProvider
Dim aId
Dim aCode
Dim aFullName
aID = Profile.CurrentUserId
Set aProvider = Profile.LoadProviderByID(aID)
aFullName = aProvider.FullName
aCode = aProvider.Code
Profile.MsgBox (aCode & " " & aFullName & " " & "(ID: " & aID & ")" )
In Profile Client v8 on User Interface Provider ID cannot be found, but Provider can be found in
.