WINCC中读取ACCESS

经测试该代码在WinCC和.vbs文件中均可用可用

Dim objConn,objRs,strSql
Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=d:/student.mdb"
objConn.open
Set objRs = CreateObject("ADODB.RecordSet")
strSql = "Select count(*) from 学生情况"
objRs.open strSql,objConn,1,2
msgbox "学生情况表中共有" & objRs(0) & "条记录",8,"记录统计:"
objRs.close
Set objRs = nothing
objConn.close
Set objConn = nothing