问如何从Kepware服务器读取数据

EN

Imports OpcLabs.EasyOpc
Imports OpcLabs.EasyOpc.DataAccess

Public Class Demand
    Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ReadPLCvalue()
    End Sub

    Private Sub ReadPLCvalue()
        Dim objClient As New EasyDAClient
        Dim sValue As Object

        Try
            sValue = objClient.ReadItemValue(KepwareServerMachineName, KepwareServerID, PLCTagName)
        Catch ex As OpcException

        End Try

        StoreToDB(sValue)
    End Sub

    Private Sub StoreToDB(ByVal source As Object)
      'Database operations to store the value.
    End Sub
End Class