请问你知道wincc 怎样通过vbs脚本与mysql数据库建立链接吗？

如何wincc中使用VBS脚本读写SQLServer数据库文件

set cn = CreateObject("ADODB.Connection")

set rs = CreateObject("ADODB.Recordset")

cn.Open "Provider=SQLOLEDB.1Persist Security Info=Falsedata source=192.168.0.102User ID=saPassword=passwordInitial Catalog=DBName"

rs.Open "select * from Qsoft", cn, 1,3

While Not (rs.EOF)

msgbox rs("ID")

rs.MoveNext

Wend

rs.Close

cn.Close

vbs 脚本

' 创建WshShell对象运行 net start 命令

Dim objShell

Set objShell = WScript.CreateObject("Wscript.Shell")

' objShell.run args[0],args[1],args[2]

' 上面的第一个参数是执行的程序命令，第二个是运行模式取值

' 0-9，0为隐藏，第三个参数确定是等待这条命令执行结束再执

' 行下一条，还是不等待直接执行下一条命令，限制是否可以并

' 发运行的行为，是布尔值、可省略，默认为 False,True 为等

' 待当前命令执行完毕。

objShell.run "cmd /c net start MySQL",0,True

' DEMO

Dim objShell

Set objShell = WScript.CreateObject("Wscript.Shell")

' 启动 mysql 数据库服务

objShell.run "cmd /c net start MySQL",0,Ture

' 需要注意，为了成功执行，必须以管理员的身份执行这个脚本

WIN7 64位对开发的支持不是很好，你可以试试将IIS切回32位运行：

开始→运行→cmd，运行脚本：

cscript %SYSTEMDRIVE%\inetpub\adminscripts\adsutil.vbs SET W3SVC/AppPools/Enable32bitAppOnWin64 1

即可将IIS由64位切换为32位模式；若想恢复为64位模式，运行脚本：

cscript %SYSTEMDRIVE%\inetpub\adminscripts\adsutil.vbs SET W3SVC/AppPools/Enable32bitAppOnWin64 0

若脚本报错，切换路径为C:\Inetpub\AdminScripts，因为adsutil.vbs文件在该路径下。

最后，还是建议用WINXP或WIN2003来作开发环境

WIN7 尤其是64位版本对ODBC、VS支持都不理想

---