6AV6381-2BC08-0AV0

6AV6381-2BC08-0AV0

发布商家
上海工智达电气技术有限公司
联系人
田子龙(先生)
电话
15221760199
手机
15221760199
价格
¥5619.00/套
西门子
WinCC 系统软件 V8.0运行版
WinCC
V8.0运行版
德国
净重0.282KG

如何用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



人气
25
发布时间
2024-10-25 16:00
所属行业
其他工控系统及装备
编号
41296570
我公司的其他供应信息
相关6av6381产品
拨打电话 请卖家联系我