ISProvider.FindVersions

Description

This function returns the versions of the provider loaded on the basis of the selected filter.

Syntax

object.FindVersions(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProvider	The `object` always implements the ISProvider interface
`aFilter`	In, Required	ISVersionFilter	The object that defines conditions for filtering

Return Value

ISCollection

Returns the collection of the provider's versions loaded on the basis of the selected filter.

Example

Display the number of the provider's versions.

Dim aFilter
Dim aPos 
Dim aProviders, aProvider
Dim aVersionFilter
Dim aProvidersVersions
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter

aFilter.Category = 2 'pcProvider
aFilter.Code = "AAAPROV"
 
set aProviders = Profile.LoadProvidersByFilter(aFilter) 

set aVersionFilter = Profile.CreateVersionFilter

aVersionFilter.FromDate = #01/01/2010#
aVersionFilter.ToDate = #06/12/2019# 

for each aProvider in aProviders 
  set aProvidersVersions = aProvider.FindVersions(aVersionFilter) 
  aMessage = aProvider.FullName & " has " & aProvidersVersions.Count &_
    "versions"
next 'aProvider

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Versions can be found in Report > Find Objects > Provider > Provider Version.

Version information