PixxUI.PIConnection

Description

Open a PI server connection

Parameters

Server As String User As String Password As String

Return Value

Success As Boolean

SVB Example

' References required
 ' PixxAddin 1.0 Type Library (1.0)
 ' PISDK 1.3 Type Library (1.0)
 ' PISDKCommon 1.0 Type Library (1.0)

Option Base 1
 Const g_nItems = 2
 Sub Main

Dim PiConn As PixxUI
 Set PiConn = AddIns.AddIn("PixxAddin.PixxUI.1")

Dim Srvr As String
 Dim User As String
 Dim Pwd As String

Srvr = "PISERVER"
 User = "piadmin"
 Pwd = ""

Dim Success As Boolean

On Error Resume Next
 Success = PiConn.PIConnection(Srvr,User,Pwd)

If Err.Number <> 0 Then

MsgBox Err.Description

Exit Sub

End If

End Sub