AFListData.UpdateValues Method (IList(AFValue), AFUpdateOption, AFBufferOption)

Public Shared Function UpdateValues ( 
	values As IList(Of AFValue),
	option As AFUpdateOption,
	bufferOption As AFBufferOption
) As AFErrors(Of AFValue)

Dim values As IList(Of AFValue)
Dim option As AFUpdateOption
Dim bufferOption As AFBufferOption
Dim returnValue As AFErrors(Of AFValue)

returnValue = AFListData.UpdateValues(values, 
	option, bufferOption)

public:
static AFErrors<AFValue^>^ UpdateValues(
	IList<AFValue^>^ values, 
	AFUpdateOption option, 
	AFBufferOption bufferOption
)

static member UpdateValues : 
        values : IList<AFValue> * 
        option : AFUpdateOption * 
        bufferOption : AFBufferOption -> AFErrors<AFValue> 

' This example demonstrates how to update values to attributes with PIPoint data reference from different PIServers through AFListData.
' Note: For successul write through Buffer, PI Buffer Subsystem needs to be correctly pre-configured with PI Buffer Manager. 

' Get the Database and UOMs
Dim myPISystems As PISystems = New PISystems
Dim myPISystem As PISystem = myPISystems.DefaultPISystem
Dim myDB As AFDatabase = myPISystem.Databases.DefaultDatabase
Dim uomFoot As UOM = myPISystem.UOMDatabase.UOMs("foot")
Dim uomYard As UOM = myPISystem.UOMDatabase.UOMs("yard")

' Create Attributes and their new values
Dim attrList As AFAttributeList = New AFAttributeList
Dim newStartTime As AFTime = New AFTime("T-1d", CultureInfo.CurrentCulture)
Dim newValues As List(Of AFValue) = New List(Of AFValue)
Dim randomValues As Random = New Random

' Create Dynamic Attributes to a PIPoint (from different PIServers if possible) to Update
Dim piServers As List(Of PIServer) = New List(Of PIServer)
piServers.Add(OSIsoft.AF.PI.PIServers.GetPIServers.DefaultPIServer)
'ToDo: change "jcncpi390" to a valid (and accessible) piserver name available in KST, that is different than the default piserver
Dim secondServer As PIServer = OSIsoft.AF.PI.PIServers.GetPIServers()("jcncpi390")
If Not secondServer Is Nothing AndAlso Not String.Compare(secondServer.Name, piServers(0).Name, StringComparison.OrdinalIgnoreCase) = 0 Then
    piServers.Add(secondServer)
End If

Dim dataCount As Integer = 5 'Create 5 new values to update
Dim newTime As AFTime = newStartTime
For Each piServer As PIServer In piServers
    newTime = newStartTime
    Dim point As PIPoint = Nothing
    If Not PIPoint.TryFindPIPoint(piServer, "MyTestPoint#1", point) Then
        point = piServer.CreatePIPoint("MyTestPoint#1")
    End If

    Dim myAttribute As AFAttribute = New AFAttribute(String.Format(CultureInfo.InvariantCulture, "\\{0}\{1}", piServer.Name, point.Name))
    myAttribute.DefaultUOM = uomFoot
    myAttribute.ConfigString = (myAttribute.ConfigString + ";UOM=ft;ReadOnly=True")
    attrList.Add(myAttribute)
    For i As Integer = 1 To dataCount
        Dim newValue As AFValue = New AFValue(myAttribute, randomValues.NextDouble(), newTime, uomYard)
        newValues.Add(newValue)
        newTime = newTime.LocalTime.AddMinutes(10)
    Next
Next
Dim newEndTime As AFTime = newTime

' Get the Recorded Values for the Attributes
Dim totalRecordedValuesCount As Integer = 0
For Each myAttribute As AFAttribute In attrList
    Dim recordedValues As AFValues = myAttribute.Data.RecordedValues(New AFTimeRange(newStartTime, newEndTime), AFBoundaryType.Inside,
        myAttribute.DefaultUOM, Nothing, False)
    Console.WriteLine("Recorded Values:")

    For Each value As AFValue In recordedValues
        Console.WriteLine("  {0}: '{1} {2}' at '{3}'",
            value.Attribute, value.Value, value.UOM, value.Timestamp)
    Next
    totalRecordedValuesCount += recordedValues.Count
Next

' Get the Buffer Option
' Note: If not specified in AFSDK.config, the buffer option is defaulted to "BufferIfPossible". 
Console.WriteLine("Current Buffer Option: {0}", AFData.BufferOption)

' Set the Buffer Option to "Buffer" if it is not already, which will be valid throughout this client instance.
If Not AFData.BufferOption.Equals(AFBufferOption.Buffer) Then
    AFData.BufferOption = AFBufferOption.Buffer
    Console.WriteLine("Current Buffer Option for this instance has been changed to: {0}", AFData.BufferOption)
End If

'1. Update the Attribute Values and Display any Errors
Dim errorsWithBuffer As AFErrors(Of AFValue) =
    AFListData.UpdateValues(newValues, AFUpdateOption.InsertNoCompression) 'Insert or InsertNoCompression
Thread.Sleep(1000)

If Not errorsWithBuffer Is Nothing AndAlso errorsWithBuffer.HasErrors Then
    Console.WriteLine("Errors returned from AFListData.UpdateValues:")

    ' Display Value errors
    If Not errorsWithBuffer.Errors Is Nothing AndAlso errorsWithBuffer.Errors.Count > 0 Then
        For Each item As KeyValuePair(Of AFValue, Exception) In errorsWithBuffer.Errors
            Console.WriteLine("  AFValue '{0}': {1}", item.Key, item.Value)
        Next
    End If

    ' Display PI Data Archive error
    If Not errorsWithBuffer.PIServerErrors Is Nothing AndAlso errorsWithBuffer.PIServerErrors.Count > 0 Then
        For Each item As KeyValuePair(Of PIServer, Exception) In errorsWithBuffer.PIServerErrors
            Console.WriteLine("  AFValue '{0}': {1}", item.Key, item.Value)
        Next
    End If

    ' Display PI System errors
    If Not errorsWithBuffer.PISystemErrors Is Nothing AndAlso errorsWithBuffer.PISystemErrors.Count > 0 Then
        For Each item As KeyValuePair(Of PISystem, Exception) In errorsWithBuffer.PISystemErrors
            Console.WriteLine("  AFValue '{0}': {1}", item.Key, item.Value)
        Next
    End If
End If


'2. Alternatively, one can specify buffer option in the UpdateValues method
Dim errorsWithBufferIfPossible As AFErrors(Of AFValue) =
    AFListData.UpdateValues(newValues, AFUpdateOption.InsertNoCompression, AFBufferOption.BufferIfPossible)
Thread.Sleep(1000)

' Get the Updated Recorded Values for the Attributes
Dim totalRecordedValuesCountUpdated As Integer = 0
For Each myAttribute As AFAttribute In attrList
    Dim recordedValuesUpdated As AFValues = myAttribute.Data.RecordedValues(New AFTimeRange(newStartTime, newEndTime), AFBoundaryType.Inside,
        myAttribute.DefaultUOM, Nothing, False)
    Console.WriteLine("Updated Recorded Values:")

    For Each value As AFValue In recordedValuesUpdated
        Console.WriteLine("  {0}: '{1} {2}' at '{3}'",
            value.Attribute, value.Value, value.UOM, value.Timestamp)
    Next
    totalRecordedValuesCountUpdated += recordedValuesUpdated.Count
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.