Hello Support,
in the menatime I did a search on documentation finding the following link:
opclabs.doc-that.com/files/onlinedocs/QuickOpc/Latest/User%2...mps%20and%20status%20code.html
Applied and tested :
Private Sub Command1_Click()
Screen.MousePointer = vbHourglass
Rem This example shows how to write data (a value, timestamps and status code)
Rem into a single attribute of a node.
'Public Sub Write_Main_Command_Click()
OutputText = ""
Const GoodOrSuccess = 0
' Instantiate the client object
Dim Client As New EasyUAClient
' Modify data of a node's attribute
Dim StatusCode As New UAStatusCode
StatusCode.Severity = GoodOrSuccess
Dim AttributeData As New UAAttributeData
AttributeData.SetValue 12345
Set AttributeData.StatusCode = StatusCode
AttributeData.SourceTimestamp = Now()
' Perform the operation
On Error Resume Next
Call Client.Write(txtServer.Text, txtNodeId.Text, AttributeData)
' or "opc.tcp://opcua.demo-this.com:51210/UA/SampleServer"
If Err.Number <> 0 Then
risp = MsgBox(OutputText & "*** Failure: " & Err.Source & ": " & Err.Description & vbCrLf, vbCritical)
Exit Sub
Else
risp = MsgBox("Scrittura eseguita...", vbInformation)
End If
On Error GoTo 0
'End Sub
Screen.MousePointer = Default
End Sub
but unsuccessfully: see attachment "
This email address is being protected from spambots. You need JavaScript enabled to view it."
Where I'm wrong, again ?
Thanks+BR
Alberto