This procedure updates the current provider object as stored within Profile.
object.Save
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProvider interface |
Set a new code to the selected provider and save it.
Dim aProvider
Dim aCode
Dim aNewCode
aCode = "VE2"
aNewCode = "VE3"
set aProvider = Profile.LoadProvider(aCode)
aProvider.SetProviderCode(aNewCode)
aProvider.Save
set aProvider = Profile.LoadProvider(aNewCode)
Profile.MsgBox("The code of the provider " & aProvider.FullName &_
" was changed successfully")