搬家第15天-184.Wincc V7.3 Vbs脚本ADO方式向ACCESS数据表添加纪录
前面一篇博客介绍了如何把Access内容取出显示在表格控件上的脚本,今天实验了一下如何定时向Access数据表添加纪录。
在Access数据库MyDB下新建一个数据表Mytable2,字段结构如下:
新建一个全局vbs脚本如下:
Option Explicit
Function action
Dim flow1,flow2,flow3,flow4
Dim conn
Dim ors
flow1=Second(Now)*10+1
flow2=Second(Now)*10+2
flow3=Second(Now)*10+3
flow4=Second(Now)*10+4
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=d:\wincc_access\MyDB.mdb"
conn.open
Set ors=CreateObject("ADODB.RecordSet")
ors.open "select flow1,flow2,flow3,flow4 from Mytable2" ,conn,3,3
ors.AddNew
ors.fields("flow1")=flow1
ors.fields("flow2")=flow2
ors.fields("flow3")=flow3
ors.fields("flow4")=flow4
ors.update
Set ors=Nothing
conn.close
Set conn=Nothing
End Function
设定该脚本2秒触发一次,在计算机属性中勾选启用全局脚本选项。
在页面放置一个MSHFGrid控件,放置一个脚本,脚本添加鼠标点击事件的vbs脚本(参考上一例),最终可以看到这个效果