技术论坛

 • 产品分类
 • 咱工程师的故事
 • 培训与认证答疑专区
 • 服务合作伙伴专区

 WinCC V17报表截图

返回主题列表
作者 主题
steven.lee
侠士

经验值: 1302
发帖数: 175
精华帖: 2
楼主    2021-09-14 06:31:00
主题：WinCC V17报表截图

日报表截图

日班报表截图


月班报表截图

年报表截图

年班报表截图
贤贤易色
奇侠

经验值: 8087
发帖数: 1308
精华帖: 6
1楼    2021-09-14 08:07:37
主题：回复：WinCC V17报表截图

为何不把代码分享一下?

养活一团春意思，撑起两根穷骨头
steven.lee
侠士

经验值: 1302
发帖数: 175
精华帖: 2
9楼    2021-09-19 04:18:00
主题：回复：WinCC V17报表截图

写入SQL数据库的脚本如下：

Sub WriteToSQL()

'提示：

' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表

' 2. 使用 HMI Runtime 对象写入代码。

'  示例：HmiRuntime.Screens("Screen_1")。

' 3. 使用 <CTRL+J> 快捷键创建对象引用。

'从此位置起写入代码：



Dim database,strcn,cn,is_SQL

Dim Var1,Var2,Var3,Var4

Dim DateTime


Var1=Now

Var2=HMIRuntime.Tags("Value1").Read

Var3=HMIRuntime.Tags("Value2").Read

Var4=HMIRuntime.Tags("Value3").Read


strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SQL_Report;Data Source=.\wincc"

Set cn=CreateObject("ADODB.connection")

cn.connectionString=strcn

cn.Open


is_SQL="insert into SQL_Report_Table(TimeSQL,Value1SQL,Value2SQL,Value3SQL) Values('"&Var1&"','"&Var2&"','"&Var3&"','"&Var4&"')"

cn.Execute is_SQL

cn.Close


End Sub
您收到0封站内信：
×
×
信息提示
很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。