Analysis Services Programming
Count (CustomProperties Collection)
The Count property of a CustomProperties collection returns the number of items in the collection.
Data Type
Integer
Access
Read-only
Example
The following code example checks to see whether the CustomProperties collection of a database is empty:
Dim dsoServer As New DSO.Server
Dim dsoDB As DSO.Database
' Connect to local Analysis server.
dsoServer.Connect "LocalHost"
' Get reference to FoodMart 2000 database.
Set dsoDB = dsoServer.MDStores("FoodMart 2000")
' Check for custom properties.
If dsoDB.CustomProperties.Count > 0 Then
' There is at least one custom property in the
' CustomProperties collection.
End If
' Clean up.
Set dsoDB = Nothing
dsoServer.CloseServer