【原】WINCC 内嵌EXCEL表格实现数据报表的一种方式

一、工具准备：

二、软件安装及配置

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