vbs mysql 读数据库_vbs读取Access数据库

我编写了vbs脚本读取Access数据库，代码如下：Dim path,ssql,cnn,rst,a,b

set cnn=WScript.CreateObject("ADODB.Connection")

set rst=WScript.CreateObject("adodb.recordset")

path="d:\student.mdb"

cnn.connectionstring="driver={Microsoft Access Driver (*.mdb)};dbq=" &path

cnn.open

ssql="select * from 学生情况"

rst.open ssql,cnn

rst.MoveFirst

if rst.eof then

rst.close

else

rst.MoveFirst

do while not rst.eof

a=rst("学号")

b=rst("姓名")

HMIRuntime.Tags("access1").Write a

HMIRuntime.Tags("access2").Write b

rst.movenext

loop

rst.close

end if

为什么在vbs中运行没有问题，但是导入到wincc中就取不到数据呀，请高手指点一下，谢谢！

最佳答案

不要使用WScript.CreateObject("ADODB.Connection")，WinCC不存在WScript对象，直接用CreateObject("ADODB.Connection")语句就可以了。

另外你的do while 语句好像没什么意义啊？变量access1、access2的值总是记录的最后一条。

提问者对于答案的评价：

谢谢，我把WScript对象去掉候能行了。上面的代码中do while语句是没有用，我只是想试试能不能取道数据，没有把它删掉。再次谢过！