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语句是没有用,我只是想试试能不能取道数据,没有把它删掉。再次谢过!

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc277024.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐