I have a development in VB for PI Datalink 4.1.1 to connect to a PI Server and update some values. But it doesn't work in PI Datalink 2014.
This is the code:
Dim srv As Server Dim PITag As PIPoint Dim Inicio As Integer Dim Fin As Integer Set srv = Servers("10.29.12.21") If srv.Connected Then Call srv.Close End If Call srv.Open("UID=pimanual;PWD=PImanual") Inicio = 6 Fin = 29 Set PITag = srv.PIPoints(CStr(Cells(6, 1).Text)) For I = Inicio To Fin Call PITag.Data.UpdateValue(Cells(I, 3).Text, Cells(I, 2).Text) Next I
The failure is in the UpdaValue instruction but I'm not sure that the pi server is connected properly in the open statement