wincc与数据库sql server之间的数据存储

最新推荐文章于 2024-09-22 07:00:00 发布
最新推荐文章于 2024-09-22 07:00:00 发布
阅读量9k 收藏 57
点赞数 8
分类专栏： wincc sql 文章标签： sql 数据库
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_41684589/article/details/112475330
版权
wincc 同时被 2 个专栏收录
1 篇文章 3 订阅
订阅专栏
sql
1 篇文章 0 订阅
订阅专栏

本测试是在哔哩哔哩上找的教程https://www.bilibili.com/video/BV1vV411y7VM?from=search&seid=8697992749928944635，自己按照讲解去做的，主要是把代码提供出来，自己敲的

实现目标：1、把wincc中变量，存储到SQL数据库中

                  2、查询数据库内容，在控件中显示

 

步骤：1、软件wincc 7.3、wincc安装自带的sql server 2008 R2 

2、新建数据库

3、新建wincc项目--变量建立

4、所用到的控件

5、画面打开脚本：主要实现最新数据显示、连接数据库、控件设置等

Sub OnOpen()   



Dim kj1,kj2,kj3,kj4,kj5,kj6
Dim QR
Dim MSFlexGrid1   '对应表格控件名称
Dim LocalBeginTime, LocalEndTime,riqi
Dim oRs,oRs1,n,n1,i,z,s1,s11,oCom,oCom1,strcn,conn,pj
Dim zxy1
'查询当天全部数据，除了控件名称要注意修改外，以上其他为标准
Set MSFlexGrid1 = ScreenItems("aaaa") '对应表格控件名称

riqi = Now

LocalBeginTime = Year(riqi) & "-" & Month(riqi) & "-" & Day(riqi) & "" & "00:00:00"
LocalEndTime = Year(riqi) & "-" & Month(riqi) & "-" & Day(riqi) & "" & "23:59:59"

s1 = "SELECT DT,name,a,b,c,d,e FROM en WHERE DT BETWEEN '" & LocalBeginTime & "' And '" & LocalEndTime & "'ORDER BY DT"
's1后面的内容要对应数据库中列的内容，后面的DT与前面的DT要名称一致，enen要对应数据库列表名称dbo的名称
strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=wang;Data Source=.\wincc"

Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = strcn

conn.CursorLocation = 3

conn.Open
's1 = "SELECT DT,name,a,b,c,d,e FROM en WHERE DT BETWEEN '" & LocalBeginTime & "' And '" & LocalEndTime & "'ORDER BY DT"
'Set oRs = CreateObject("ADODB.Recordset")
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")

oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = s1   '执行检索功能
Set oRs = oCom.Execute
'n = oRs.RecordCount  '获得检索到的总数

'HMIRuntime.Tags("I3").Write n


MSFlexGrid1.Clear
'MSFlexGrid1.Rows = oRs.RecordCount + 2
MSFlexGrid1.ColWidth(0) = 1500
MSFlexGrid1.ColWidth(1) = 2000
MSFlexGrid1.ColWidth(2) = 1500
MSFlexGrid1.ColWidth(3) = 1500
MSFlexGrid1.ColWidth(4) = 1500
MSFlexGrid1.ColWidth(5) = 1500
MSFlexGrid1.ColWidth(6) = 1500
MSFlexGrid1.ColWidth(7) = 1500

MSFlexGrid1.RowHeight(0) = 1200
MSFlexGrid1.RowHeight(1) = 600

MSFlexGrid1.Row = 0
For z = 0 To 7
  MSFlexGrid1.CellFontSize = 12
  MSFlexGrid1.Col = z
  MSFlexGrid1.Text = "工况信息表"
  Next 
  MSFlexGrid1.MergeCells = 4
  MSFlexGrid1.MergeRow(0) = True
  
  MSFlexGrid1.Row = 1
  
 For z = 0 To 7
 MSFlexGrid1.Col = z
  
 MSFlexGrid1.CellBackColor = vbCyan
 Next
  MSFlexGrid1.TextMatrix(1,0) = "序号"
  MSFlexGrid1.TextMatrix(1,1) = "日期"
  MSFlexGrid1.TextMatrix(1,2) = "名称"
  MSFlexGrid1.TextMatrix(1,3) = "重量(kg)"
  MSFlexGrid1.TextMatrix(1,4) = "高度(mm)"
  MSFlexGrid1.TextMatrix(1,5) = "流量"
  MSFlexGrid1.TextMatrix(1,6) = "压力"
  MSFlexGrid1.TextMatrix(1,7 )= "温度"
  
  
   MSFlexGrid1.ColAlignment(0) = 4
   MSFlexGrid1.ColAlignment(1) = 4
   MSFlexGrid1.ColAlignment(2) = 4
   MSFlexGrid1.ColAlignment(3) = 4
   MSFlexGrid1.ColAlignment(4) = 4
   MSFlexGrid1.ColAlignment(5) = 4
   MSFlexGrid1.ColAlignment(6) = 4
   MSFlexGrid1.ColAlignment(7) = 4
   
   If (n > 0)Then 
   
        oRs.MoveFirst
        i = 0
        Do While Not oRs.EOF
        n = n + 1
        
        MSFlexGrid1.TextMatrix(i+2,0) = i
        MSFlexGrid1.TextMatrix(i+2,1) = oRs.Fields(0).Value
        MSFlexGrid1.TextMatrix(i+2,2) = oRs.Fields(1).Value
        MSFlexGrid1.TextMatrix(i+2,3) = oRs.Fields(2).Value
        MSFlexGrid1.TextMatrix(i+2,4) = oRs.Fields(3).Value
        MSFlexGrid1.TextMatrix(i+2,5) = oRs.Fields(4).Value
        MSFlexGrid1.TextMatrix(i+2,6) = oRs.Fields(5).Value
        MSFlexGrid1.TextMatrix(i+2,7) = oRs.Fields(6).Value

        
        i = i + 1
        oRs.MoveNext
        Loop
        conn.Close
            MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1
        Else
         MsgBox "您所查询的时段没有数据......"
        oRs.Requery
        conn.Close
        End If
        
End Sub

6、全局动作--在控件中循环显示当前最新数据

Function action

Dim sCon,conn,oRs,n,i,s1,oCom,strcn,z
Dim riqi,mazhi,qxlx,qxwz,ok
Dim MSFlexGrid1
Dim LocalBeginTime,LocalEndTime
Dim R_JC,Weight,R_FC,GBD
Dim J1
Set J1 = HMIRuntime.Tags("aa")
J1.Read
If J1.Read Then
J1.Write 0
Else
J1.Write 1
Set MSFlexGrid1 = HMIRuntime.Screens("首页.画面窗口1:报表信息").ScreenItems("aaaa")

riqi = Now

Dim name
Set name = HMIRuntime.Tags("name1")
name.Read

Dim R1
Set R1 = HMIRuntime.Tags("a")
R1.Read

Dim R2
Set R2 = HMIRuntime.Tags("b")
R2.Read

Dim R3
Set R3 = HMIRuntime.Tags("c")
R3.Read 

Dim R4
Set R4 = HMIRuntime.Tags("d")
R4.Read

Dim R5
Set R5 = HMIRuntime.Tags("e")
R5.Read 

If name.Value = "" Then
Else 
'sCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=wang;Data Source=.\wincc"
'Set conn = CreateObject("ADODB.Connection")
'conn.ConnectionString = sCon
'conn.CursorLocation = 3
'conn.Open
'Set oRs = CreateObject("ADODB.Recordset")

'Set oCom = CreateObject("ADODB.Command")

'oCom.CommandType = 1
'Set oCom.ActiveConnection = conn

's1 = "insert into en (DT,name,a,b,c,d,e) Values ( '"&riqi&"','"&name.Value&"','"&R1.Value&"','"&R2.Value&"','"&R3.Value&"','"&R4.Value&"','"&R5.Value&"')"
'conn.Execute s1
'conn.Close


MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

n = MSFlexGrid1.Rows
MSFlexGrid1.TextMatrix(n-1,0) = n - 3
MSFlexGrid1.TextMatrix(n-1,1) = riqi
MSFlexGrid1.TextMatrix(n-1,2) = name.Value
MSFlexGrid1.TextMatrix(n-1,3) = R1.Value
MSFlexGrid1.TextMatrix(n-1,4) = R2.Value
MSFlexGrid1.TextMatrix(n-1,5) = R3.Value
MSFlexGrid1.TextMatrix(n-1,6) = R4.Value
MSFlexGrid1.TextMatrix(n-1,7) = R5.Value


MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1
    End If
    End If

End Function

7、全局动作--往数据库中写数据

Option Explicit
Function action
Dim sCon,conn,oRs,n,i,s1,oCom,strcn,z
Dim riqi,mazhi,qxlx,qxwz,ok
Dim MSFlexGrid1
Dim LocalBeginTime,LocalEndTime
Dim R_JC,Weight,R_FC,GBD
Dim J1
Set J1 = HMIRuntime.Tags("aa")
J1.Read
If J1.Read Then
J1.Write 0
Else
J1.Write 1
'Set MSFlexGrid1 = HMIRuntime.Screens("首页.画面窗口1:报表信息").ScreenItems("aaaa")

riqi = Now

Dim name
Set name = HMIRuntime.Tags("name1")
name.Read

Dim R1
Set R1 = HMIRuntime.Tags("a")
R1.Read

Dim R2
Set R2 = HMIRuntime.Tags("b")
R2.Read

Dim R3
Set R3 = HMIRuntime.Tags("c")
R3.Read 

Dim R4
Set R4 = HMIRuntime.Tags("d")
R4.Read

Dim R5
Set R5 = HMIRuntime.Tags("e")
R5.Read 

If name.Value = "" Then
Else 
sCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=wang;Data Source=.\wincc"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.CursorLocation = 3
conn.Open
Set oRs = CreateObject("ADODB.Recordset")

Set oCom = CreateObject("ADODB.Command")

oCom.CommandType = 1
Set oCom.ActiveConnection = conn

s1 = "insert into en (DT,name,a,b,c,d,e) Values ( '"&riqi&"','"&name.Value&"','"&R1.Value&"','"&R2.Value&"','"&R3.Value&"','"&R4.Value&"','"&R5.Value&"')"
conn.Execute s1
conn.Close


'MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

'n = MSFlexGrid1.Rows
'MSFlexGrid1.TextMatrix(n-1,0) = n - 3
'MSFlexGrid1.TextMatrix(n-1,1) = riqi
'MSFlexGrid1.TextMatrix(n-1,2) = name.Value
'MSFlexGrid1.TextMatrix(n-1,3) = R1.Value
'MSFlexGrid1.TextMatrix(n-1,4) = R2.Value
'MSFlexGrid1.TextMatrix(n-1,5) = R3.Value
'MSFlexGrid1.TextMatrix(n-1,6) = R4.Value
'MSFlexGrid1.TextMatrix(n-1,7) = R5.Value


'MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1
    End If
    End If
End Function

8、按时间检索数据--控件显示

Sub OnClick(ByVal Item)                                  


Dim MSFlexGrid1
Dim a1,a2,a3,a4,z
Dim LocalBeginTime,LocalEndTime,riqi
Dim oRs,n,i,s1,oCom,strcn,conn
Dim kj4,kj5,kj6
'以上其他为标准
Set MSFlexGrid1 = ScreenItems("qq") '对应表格控件名称

Set a1 = ScreenItems("sd")
Set a2 = ScreenItems("st")
Set a3 = ScreenItems("ed")
Set a4 = ScreenItems("et")


'riqi = Now

LocalBeginTime = Year(a1.Value) & "-" & Month(a1.Value) & "-" & Day(a1.Value) & " " & Hour(a2.Value) & ":" & Minute(a2.Value) & ":" & Second(a2.Value) 
LocalEndTime = Year(a3.Value) & "-" & Month(a3.Value) & "-" & Day(a3.Value) & " " & Hour(a4.Value) & ":" & Minute(a4.Value) & ":" & Second(a4.Value) 

s1 = "SELECT DT,name,a,b,c,d,e FROM en WHERE DT BETWEEN '" & LocalBeginTime & "' And '" & LocalEndTime & "'ORDER BY DT"
's1后面的内容要对应数据库中列的内容，后面的DT与前面的DT要名称一致，enen要对应数据库列表名称dbo的名称
strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=wang;Data Source=.\wincc"

Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = strcn

conn.CursorLocation = 3

conn.Open

Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")

oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = s1   '执行检索功能
Set oRs = oCom.Execute
n = oRs.RecordCount  '获得检索到的总数

'HMIRuntime.Tags("I3").Write n


MSFlexGrid1.Clear
MSFlexGrid1.Rows = oRs.RecordCount + 2
MSFlexGrid1.ColWidth(0) = 1500
MSFlexGrid1.ColWidth(1) = 2000
MSFlexGrid1.ColWidth(2) = 1500
MSFlexGrid1.ColWidth(3) = 1500
MSFlexGrid1.ColWidth(4) = 1500
MSFlexGrid1.ColWidth(5) = 1500
MSFlexGrid1.ColWidth(6) = 1500
MSFlexGrid1.ColWidth(7) = 1500

MSFlexGrid1.RowHeight(0) = 1200
MSFlexGrid1.RowHeight(1) = 600

MSFlexGrid1.Row = 0
For z = 0 To 7
  MSFlexGrid1.CellFontSize = 12
  MSFlexGrid1.Col = z
  MSFlexGrid1.Text = "工况信息表"
  Next 
  MSFlexGrid1.MergeCells = 4
  MSFlexGrid1.MergeRow(0) = True
  
  MSFlexGrid1.Row = 1
  
 For z = 0 To 7
 MSFlexGrid1.Col = z
  
 MSFlexGrid1.CellBackColor = vbCyan
 Next
  MSFlexGrid1.TextMatrix(1,0) = "序号"
  MSFlexGrid1.TextMatrix(1,1) = "日期"
  MSFlexGrid1.TextMatrix(1,2) = "名称"
  MSFlexGrid1.TextMatrix(1,3) = "重量(kg)"
  MSFlexGrid1.TextMatrix(1,4) = "高度(mm)"
  MSFlexGrid1.TextMatrix(1,5) = "流量"
  MSFlexGrid1.TextMatrix(1,6) = "压力"
  MSFlexGrid1.TextMatrix(1,7 )= "温度"
  
  
   MSFlexGrid1.ColAlignment(0) = 4
   MSFlexGrid1.ColAlignment(1) = 4
   MSFlexGrid1.ColAlignment(2) = 4
   MSFlexGrid1.ColAlignment(3) = 4
   MSFlexGrid1.ColAlignment(4) = 4
   MSFlexGrid1.ColAlignment(5) = 4
   MSFlexGrid1.ColAlignment(6) = 4
   MSFlexGrid1.ColAlignment(7) = 4
   
   If (n > 0)Then 
   
        oRs.MoveFirst
        i = 0
        Do While Not oRs.EOF
        n = n + 1
        
        MSFlexGrid1.TextMatrix(i+2,0) = i
        MSFlexGrid1.TextMatrix(i+2,1) = oRs.Fields(0).Value
        MSFlexGrid1.TextMatrix(i+2,2) = oRs.Fields(1).Value
        MSFlexGrid1.TextMatrix(i+2,3) = oRs.Fields(2).Value
        MSFlexGrid1.TextMatrix(i+2,4) = oRs.Fields(3).Value
        MSFlexGrid1.TextMatrix(i+2,5) = oRs.Fields(4).Value
        MSFlexGrid1.TextMatrix(i+2,6) = oRs.Fields(5).Value
        MSFlexGrid1.TextMatrix(i+2,7) = oRs.Fields(6).Value

        
        i = i + 1
        oRs.MoveNext
        Loop
        conn.Close
            MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1
        Else
         MsgBox "您所查询的时段没有数据......"
        oRs.Requery
        conn.Close
        End If
        
End Sub

9、最终结果

 

bigflywang
关注
专栏目录
WinCC实现点击按钮存储数据至SQL Server（事件驱动）
skr？
04-26 1784
环境 Win10 WinCC V7.5 SQL Server 2016 功能 点击按钮，存入数据 运行结果 变量设置参考的变量设置 https://blog.csdn.net/qq_41550190/article/details/124422827 流程 VB脚本代码 Sub OnClick(ByVal Item) '---------------------------------------------start Dim oRs,oCom,strcn,conn Dim n,i,s1 Dim
WinCC实现定时存储数据至SQLServer
skr？
04-26 3266
环境 Win10 WinCC V7.5 SQL Server 2016 运行结果 流程 WinCC变量 全局VB脚本 (我设置的是每2秒存一次，因此周期性触发器设置1秒)
Wincc报表教程(SQL数据库的建立，wincc在数据库中保存和查询数据，调用Excel模板把数据保存到指定的位置和打印功能)
热门推荐
qq_58220938的博客
08-07 4万+
Wincc v7.5报表教程目录一、概述1.1 前言1.2 主要功能1.3 使用的软件二、Wincc链接SQL Server数据库2.1 前言功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少的KaTeX数学公式新的甘特图功能，丰富你的文章UML 图表FLowchart流程图导出与导入导出导入 目录 一、概述 1.1 前言 在工业生产
wincc利用VBS脚本读取SQL数据库中的数值
最新发布
shuai_zi333的博客
09-22 687
在按钮或者控件的鼠标动作属性里可以添加VBS脚本，这样就可以在把事件动作和程序关联起来，例如，你要做一个查询数据库按钮，可以做一个查询按钮，在鼠标动作属性里可以添加一个脚本，去执行一个查询数据库的脚本程序。要在WinCC中使用VBS脚本读取SQL数据库中的数值，首先需要创建一个连接字符串，然后使用ADODB.Connection对象连接到数据库。可以在项目中的其他部分引用这个脚本文件，或者将其与其他脚本一起运行。建立的变量可以是内部变量，目的是为了用VBS脚本读写变量，跟SQL数据库里的变量建立链接。
博图WINCC历史数据记录到SQL数据库
AAbutbQshE的博客
11-20 2479
因此，将这些数据记录下来是至关重要的。本文将围绕着博图WinCC历史数据的记录和存储展开，以向读者介绍如何将博图WinCC中的变量作为历史数据记录到SQL Server数据库中，并将历史数据记录作为曲线图的方式展示出来。将博图WinCC中的变量作为历史数据记录到SQL Server数据库中，并将历史数据记录作为曲线图的方式展示出来，软件采用博图V15.1 Adanced编写，数据库为SQL Server2014 变量循环记录20000条，间隔2S记录一次数据到数据库中，有需要的朋友可以联系我。
WinCC_SQL数据库实现数据库同步
12-05
WinCC_SQL_SERVER_数据库实现数据库同步
博图WINCC历史数据记录到SQL数据库 将博图WinCC中的变量作为历史数据记录到SQL Serve
XMMeXTak的博客
07-06 658
这一过程需要首先进行数据库的安装与配置，然后在WinCC中进行数据库连接的设置，接着配置需要记录的变量，并设置相应的存储方式。这样的数据记录和展示功能，为工业生产的数据分析提供了有力的支持，有助于提高生产过程的可视化管理和效率。将博图WinCC中的变量作为历史数据记录到SQL Server数据库中，并将历史数据记录作为曲线图的方式展示出来，软件采用博图V15.1 Adanced编写，数据库为SQL Server2014 变量循环记录20000条，间隔2S记录一次数据到数据库中，有需要的朋友可以联系我！
WinCC SQL SERVER 数据库实现数据库同步
07-11
实现两个Sqlserver之间的数据库同步 对实时性有较高要求，数据同步延时尽量在1S之内 可以全库、单表、多表的数据同步 2. 读写分离 数据同步之后程序上就可以通过分别使用不同的DbContext实现程序上的读写分离 3. ...
笔记10_WinCC数据远程上传SQLServer.doc
12-04
总之，WinCC与SQL Server的集成允许在HMI系统和企业级数据库之间实现数据交换，从而实现数据的远程存储和分析。通过编写适当脚本并确保数据库操作语句的正确性，可以实现高效且可靠的数据上传。
wincc对sql数据库进行读写的实例
09-25
wincc对sql数据库进行读写的实例，由winc集成的vb代码功能在画面中实现对sql数据库的读写。使用环境为博途wincc为方便大家 对代码进行了txt处理 过程进行了截屏处理。代码有注释，截屏有说明。
WinCC数据库SQL访问
12-16
通过SQL 2005管理器打开WinCC归档数据库。
WINCC数据库介绍
01-08
WINCC数据库的介绍
SQL工具查寻WINCC归档数据.rar
09-20
SQL工具查寻WINCC归档数据rar,SQL工具查寻WINCC归档数据
WINCC读写SQL数据库的例子
11-21
本代码为文章：WINCC读写SQL数据库的例子【附wincc项目文件】的实例文件。
如何在 WinCC (TIA Portal) PC 运行系统中用脚本将信息存储成文件？.docx
10-13
如何在 WinCC (TIA Portal) PC 运行系统中用脚本将信息存储成文件？
16358010wincc通过vbs访问数据库_VB数据库_wincc读写数据库_wincc读写sql_wincc数据库_
10-04
在实际应用中，有时我们需要通过WinCC来读写数据库，例如SQL Server，以便存储、检索生产过程中的数据。本文将深入探讨如何在WinCC中利用Visual Basic Script (VBScript) 来实现对数据库的访问。 首先，VBScript是...
wincc 7.0往SQL Server写数据心得
myjy1992的博客
11-10 1万+
过去这两天一直在为了wincc往SQL server数据库当中写数据而发愁，接到个项目，客户需要将变量数据写入到wincc当中，然后通过第三方平台读取SQL 2005当中的信息。 如果需要外部读写数据库只有两种办法，一种是通过ADODB方式来完成，另外一种通过连通性软件包来完成，因为西门子wincc的归档数据是经过压缩的，不能直接读取，所以必须要经过解压，西门子的文档当中很多实例，基于VB和Da
wincc怎么做数据库_WINCC与数据库连接
weixin_30853127的博客
12-29 2869
近来做了一个WinCC与数据库连接的程序，功能如下：1、要求用户输入“实验目的”和“实验日期”，点击“建立表格”，则在数据库中创建了以“实验目的+时间”为名字的表2、点击“连接数据库”连接上数据库，并开始写入数据3、点击“断开数据库”则停止记录数据做法：通过一个数字量来判断数否记录数据，若该数字量是1则开始记录数据，否则停止。记录数据的时间间隔是1秒在”建立表格“键入代码：DimobjConne...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值