Library.PISummariesDataDialog

This property accesses the PI Summary Data dialog via automation.

Syntax Parameters Return Value 
ReadOnly Property Library.PISummariesDataDialog( _
    ByRef Servers As Variant, _
    ByRef Users As Variant, _
    ByRef Pwds As Variant, _
    ByRef Tags As Variant, _
    ByRef StartDate As Variant, _
    ByRef StopDate As Variant, _
    ByRef SampItvlFlag As Boolean, _
    ByRef SampItvl As String, _
    ByRef Obs As Long, _
    ByRef SummaryType As Long, _
    ByRef CalculationBasis As Long, _
    ByRef GoodOnly As Boolean) As Boolean
  • Servers [in,out]

Type: Variant

  • Users [in,out]

Type: Variant

  • Pwds [in,out]

Type: Variant

  • Tags [in,out]

Type: Variant

  • StartDate [in,out]

Type: Variant

  • StopDate [in,out]

Type: Variant

  • SampItvlFlag [in,out]

Type: Boolean

  • SampItvl [in,out]

Type: String

  • Obs [in,out]

Type: Long

  • SummaryType [in,out]

Type: Long

  • CalculationBasis [in,out]

Type: Long

  • GoodOnly [in,out]

Type: Boolean

Default value: True

Boolean

SVB Example

Querying data from PI databases: 

Option Base 1
Option Explicit
Sub Main
    Dim ss As Spreadsheet
    Set ss = Application.PICompressedData("piserver","pidemo","""","BA:ACTIVE.1","9/16/2013 5:14:55 PM","9/17/2013 5:15:03 PM",3,"",0,True,False)
    ss.Visible = True

    'Query for PI compressed data using a start date, direction, and number of points
    Dim ss2 As Spreadsheet
    Set ss2 = Application.PICompressedDataNP("piserver","pidemo","""","BA:ACTIVE.1","9/16/2013 5:18:34 PM",10,0,3,"",0,True,False)
    ss2.Visible = True

    'Query for PI interpolated data using a date range and a number of observations
    Dim ss3As Spreadsheet
    Set ss3As = PIInterpolatedDataObs("piserver","pidemo","""","BA:ACTIVE.1","9/10/2013 5:20:34 PM","9/17/2013 5:20:34 PM",10,"",0,True)
    ss3As .Visible = True

    'Query for PI summaries data using a date range and a number of observations
    Dim ss4 As Spreadsheet
    Set ss4 = Application.PISummariesDataObs("piserver","pidemo","""","BA:ACTIVE.1","9/15/2013 5:32:16 PM","9/17/2013 5:32:16 PM",50,5,2,True)
    ss4.Visible = True

    'Query for PI snapshot data as it is added to the system
    Application.PISnapshotData("piserver","pidemo","""","BA:ACTIVE.1",1000,5,True)
    Wait 22
    Dim ss5 As Spreadsheet
    Set ss5 = PIStopSnapshotData()
    ss5 .Visible = True
End Sub