如何用wincc7.5读取mysql数据库里的表格数据并且在显示出来?
WinCC 利用VBscript连接mysql数据库
1.首先需要安装mysql-connector-odbc-3.51.15-win32.msi(安装过程之间下一步就行)
(PS:需要注意的是odbc是32位还是64位取决于你计算机/远程计算机上的mysql是32位还是64位,而不取决于你电脑的系统强烈建议32位)
打开控制面板 --》 管理工具
双击 数据源(ODBC)
点击 添加
选择mysql odbc 5.1 driver --》 点击完成
填写data source name (DSN),之后在程序中要用到
填写server地址,一般为localhost, 如果为远程计算机则填写远程地址
填写 用户名、密码、数据库名称 --》 点击测试
如果测试成功的话,则odbc设置完毕,点击ok完成数据源添加
2.下面就是在vbs程序中使用了:
————————————————
Sub onClick(ByVal item)
'提示:
' 1. 使用
Dim adoConn
Dim ConnectionStr
Dim adoRst
Dim sqlStr
ConnectionStr="DSN=mysql;SERVER=127.0.0.1;UID=root;PWD=byme;PORT=3306;DATAbase=cssc"
Set adoConn = CreateObject("ADODB.Connection")
adoConn.Open ConnectionStr
If adoConn.State = 1 Then
MsgBox "OK"
Else
MsgBox "NG"
End If
'读取数据库
'下面语句为查询数据库SELECT语句
Dim sSql,oRs,oCom
sSql="SELECT M10_S_1 FROM 缓存表 WHERE 主码ID=2"
'标准的数据库操作属性和方法
Set oRs=CreateObject("ADODB.Recordset")
Set oCom=CreateObject("ADODB.Command")
Set oCom.ActiveConnection=adoConn
oCom.CommandType=1
oCom.CommandText=sSql
Set oRs=oCom.Execute
MsgBox oRs.Fields(0).Value
' 注销对象
oRs.close '关闭记录集
Set oRs=nothing '释放对象
adoConn.close '关闭连接
Set adoConn=nothing '释放对象
End Sub
==========================备注===========================
一、oCom.Execute的返回值oRs是一个结果集合
oRs.Fields中只包含首行值,如果数据为多行的话需要配合以下方式遍历读取
Do Until oRs.EOF
TODO...
oRs.MoveNext
Loop
二、IsNull(Tag) 可以判断变量是否为null