Option Explicit

Function action

  Dim a,b,c,d,e

  Dim y(70)

  'If HMIRuntime.Tags("@RM_MASTER").Read(1)=1 And HMIRuntime.Tags("@RM_MASTER_NAME").Read(1)=HMIRuntime.Tags("@RM_SERVER_NAME").Read(1) Then

  Set a=HMIRuntime.Tags("Alarm1.Nr")

  a.Read

  Set c=HMIRuntime.Tags("Alarm1.Stat")

  c.Read

  'Set a=HMIRuntime.Tags("Alarm1.Stat")'状态

  'a.Read

  Dim strcn,conn,rs,sSQLString,oCom

strcn = "Driver={SQL Server};Server=10.10.156.19;uid=sa;pwd=123456;database=PMC" ''record是你的数据库名称 addr是远程数据库的地址，如192.168.1.100等等

Set conn = CreateObject("ADODB.Connection")

'  If (a.value=1) Then

  'Set b=HMIRuntime.Tags("Alarm1.Text")'报警消息

  'b.Read

  'Set c=HMIRuntime.Tags("Alarm1.Nr")'TagID

  'c.Read

'Set rs =CreateObject("ADODB.Recordset")

'Set oCom = CreateObject("ADODB.Command")

conn.ConnectionString = strcn

conn.Open

sSQLString = "spInputAlarmCall " & a.Value & "," & c.Value

' sSQLString = "INSERT INTO [PMC].[dbo].[DataLog](AlarmStat,AlarmText,AlarmNr) VALUES("& a.Value &",'" & b.Value & "'," & c.Value & ")"

conn.execute sSQLString

    conn.close

    Set conn=Nothing

    'End If

End Function