wincc不能写入access_关于wincc读取ACCESS的问题-工业支持中心-西门子中国

现有四个io域，io1，io2，io3用来显示access的score表中的3个字段值，io4用来输入进行查询，以下是代码：

Dim str

Dim cn

Dim rs

Dim mdata

Dim sql

Dim value1

Dim value2

Dim value3

Dim value4

Set value1=HMIRuntime.Tags("A")

Set value2=HMIRuntime.Tags("B")

Set value3=HMIRuntime.Tags("C")

Set value4=HMIRuntime.Tags("D").Read

Set str=CreateObject("ADODB.Connection")

Set rs=CreateObject("ADODB.Recordset")

sql="select * from score where 学号="& valuE4 &""

''sqL="select * from score"

cn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\学生数据库.mdb;Persist Security Info=False"

str.OPen cn

SEt rs=str.Execute(sQl)

Set Mdata=Scree