大家好，欢迎来到IT知识分享网。
一、工具准备：
二、软件安装及配置
2.1 office2003_5in1软件安装
2.2 spreadsheet控件安装 （MS2003 web 控件）
2.3 MYsql数据库安装
2.4 mysql查看软件安装
2.5 卸载64位ODBC工具
2.6 安装32位ODBC工具
2.7 建立数据库
2.8 建立ODBC（找到32位ODBC程序）
建立mysql
三、wincc软件操作
3.1 vbs全局脚本
Dim adoConn ‘定义ADO连接对象?
Dim ConnectionStr ‘定义数据库连接字符串?
Dim sqlStr,adoRst’获取连接数据库字符串
ConnectionStr=”利用MYSQL的驱动建立连接”
Set adoConn = CreateObject(“ADODB.Connection”)
adoConn.Open ConnectionStr
If adoConn.State = 0 Then
Msgbox “连接数据库失败！”
Else
‘Msgbox “连接数据库成功！”
End If
Dim sSql,oRs,oCom
‘写入数据库
sSql =”insert into waterworks(日期,MLSS501,MLSS502,MLSS503,MLSS504)VALUES(‘”&Data1&”‘,'”&Data2&”‘,'”&Data3&”‘,'” & Data4&”‘,'”&Data5&”‘)”
Set oRs = CreateObject(“ADODB.Recordset”)
Set oCom = CreateObject(“ADODB.Command”)
Set oCom.ActiveConnection = adoConn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
oRs.CLOSE
Set oRs = Nothing
adoConn.Close
Set adoConn = Nothing
End Function
3.2 Wincc画面设计
测试效果：
此处报故障，是因为这个控件未安装好，无法导出数据。修改后就可以了！
总结：1、若连接MSSQL数据库，则建立ODBC的驱动不一样，比如：
Provider=SQLOLEDB; Data Source=127.0.0.1; Initial Catalog=DBName;User ID=sa;Password=sa
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://yundeesoft.com/57865.html
