Option Explicit
Function action
Dim gocn, gorsProductRecord
Set gocn = CreateObject("ADODB.Connection")
Set gorsProductRecord = CreateObject("ADODB.Recordset")
gocn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Report.mdb;Persist Security Info=False"
gorsProductRecord.open "SELECT ID , time, yali, sudu FROM Report1 ORDER BY ID"//ID为主键，其余为我的段名
Dim time
Dim yali
Dim sudu
time=Time(Now)//这是个Time函数得到当前系统时间
Set yali= HMIRuntime.Tags("yali")//yali为过程量
Set sudu = HMIRuntime.Tags("sudu")//sudu为过程量
gorsProductRecord.MoveLast
gorsProductRecord.AddNew
gorsProductRecord(1) =time
gorsProductRecord(2) = yali.Read
gorsProductRecord(3) = sudu.Read
gorsProductRecord.Update
gorsProductRecord.close
gocn.close
End Function
我用了wincc自带的模拟量工具模拟，让yali和sudu两个量分别从0增加到200，上面的全局动作5秒采集一次，但是数据库里面还是没有得到数据，问问高手，程序有问题吗，在线等！