AFCollectiveMembers Class

Public NotInheritable Class AFCollectiveMembers
	Inherits AFNamedCollection(Of AFCollectiveMember)

Dim instance As AFCollectiveMembers

public ref class AFCollectiveMembers sealed : public AFNamedCollection<AFCollectiveMember^>

[<SealedAttribute>]
type AFCollectiveMembers =  
    class
        inherit AFNamedCollection<AFCollectiveMember>
    end

' This example demonstrates how to create and remove a collective.

' Add the PISystem to be used as the primary
Dim myPISystems As New PISystems
Dim primary As PISystem = myPISystems.Add(primaryName)
primary.Connect()

' Check if primary is already a collective
If primary.Collective IsNot Nothing Then
    Throw New InvalidOperationException(String.Format("Primary '{0}' is already a collective.", primary.Name))
End If

' Add the PISystem to be used as the secondary
Dim secondary As PISystem = myPISystems.Add(secondaryName)
secondary.Connect()

' Check if secondary is already a collective
If secondary.Collective IsNot Nothing Then
    Throw New InvalidOperationException(String.Format("Secondary '{0}' is already a collective.", secondary.Name))
End If

' Create the collective
Dim collective As AFCollective = primary.CreateCollective()
primary.Name = "Test-Collective"           ' Change the collective name
primary.Description = "The Collective"     ' Change the collective description

' Add members to the collective
Dim primaryMember As AFCollectiveMember = collective.FindPrimary()
If (primaryMember Is Nothing) Then
    Throw New InvalidOperationException("Could not find primary.")
End If
primaryMember.Description = "The Primary Member"
Dim secondaryMember As AFCollectiveMember = collective.Members.Add(secondary)
secondaryMember.Description = "The Secondary Member"
collective.ApplyChanges()

' Initialize replication of the database on the primary
primaryMember.StartReplication()

' Wait until the primary is ready before starting replication
'  on the secondaries.
collective.Refresh()
While (primaryMember.SyncStatus <> AFSyncStatus.NoConfiguredSubscriptions)
    System.Threading.Thread.Sleep(TimeSpan.FromSeconds(30))
    collective.Refresh()
End While

' Initialize replication of the database on the secondaries
For Each member As AFCollectiveMember In collective.Members
    If (member.ServerRole <> AFServerRole.Primary) Then
        member.StartReplication()
    End If
Next

' Display Collective Information
Console.WriteLine("Name of Collective = {0}", primary.Name)
Console.WriteLine("Description = {0}", primary.Description)
For Each CurMember As AFCollectiveMember In primary.Collective.Members
    Console.WriteLine("  Name of Member = {0}", CurMember.Name)
    Console.WriteLine("  Description = {0}", CurMember.Description)
    Console.WriteLine("  IsAvailable = {0}", CurMember.IsAvailable)
    Console.WriteLine()
Next

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.