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