to hihihi :由于没安装VB,你发的实例不能运行,但也谢谢你,以后有空安装VB后再研究.

在网上和WINCC的帮助里找了些例子,修改后还是运行不起来,有时在数据库的所在目录出现了锁定文件,但消失后还是没保存记录,望各位大侠抽空指教一下
Option Explicit
Function action
Dim objconnection
Dim strconnectionstring
Dim a
Dim b
Dim c
Dim d
Dim strsql
Dim objcommand
Dim test
test=HMIRuntime.Tags("test").Read
If test=1 Then
strconnectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False"
a=HMIRuntime.Tags("a").Read
b=HMIRuntime.Tags("b").Read
c=HMIRuntime.Tags("c").Read
d=HMIRuntime.Tags("d").Read
strsql="INSERT INTO test(a,b,c,d) values ("&a&","&b&","&c&","&d&");"
Set oBjconnection=CreateObject("ADODB.Connection")
objconnection.connectionString=strconnectionstring
objconnectIon.Open
Set objCommand=CreateObject("ADODB.COmmand")
With objcommand
.ActiveConnection=objconnection
.CommandTexT=strsql
End With
objcommand.execute
Set objcommand=Nothing
objconnection.Close
Set objconnection=Nothing
test.value=0
test.write
End If
End Function