前面一篇博客介绍了如何把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脚本（参考上一例），最终可以看到这个效果