WINCC 使用MSFlexGrid与online trendControl 访问局域网内远程数据库

已于 2023-12-25 14:54:28 修改
阅读量2.6k 收藏 12
点赞数 1
分类专栏： wincc脚本 文章标签： 数据库 sql
于 2021-09-09 13:28:06 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_40957452/article/details/120196692
版权
本文介绍了如何使用VB脚本在WinCC项目中实现对局域网内远程SQL数据库的访问，包括数据库配置、设置TCP/IP远程访问、开放1433端口等步骤。代码示例展示了如何查询数据库并获取数据，同时动态更新wincconlineTrendControl趋势图和MSFlexGrid表格，展示多个电力参数如Ia、Ib、Ic、P等的历史数据。
摘要由CSDN通过智能技术生成

项目场景：

wincc访问局域网内远程数据库（vbs脚本）

数据库配置：

  1. 添加一个一个用户作为远程登录名（也可以直接用sa用户和密码），登录属性的用户映射选择特定可以访问的数据库，数据库成员身份选择db_datareader和db_datawriter和pbulic
    在这里插入图片描述

  2. 打开SQL server配置管理器，启用TCP/IP远程访问，并设置远程访问端口。端口设置为1433
    在这里插入图片描述
    在这里插入图片描述

  3. 防火墙关闭或者，防火墙-高级设置-出站规则，设置1433端口允许。
    在这里插入图片描述

代码展示：

Sub OnOpen()                                     
Dim LocalBeginTime, LocalEndTime, riqi
Dim objRecordset, n, i, z, sql_command, objComand, strcn, objConnection
Dim lngFactor
Dim dblAxisX
Dim dblAxisY
Dim objTrendControl
Dim objTrend_Ia, objTrend_Ib, objTrend_Ic, objTrend_p
Dim Time_Values, Y_Values
Dim DT
Dim var
Dim Tag_num '用来记录这个有多少个变量，便于提前开辟表格 的行数
Dim pre_time

'变量定义
Dim EA,Ia,Ib,Ic,P,PF,Uab,Ubc,Uca,Va,Vb,Vc,Q,ER

Set EA = HMIRuntime.Tags("EA")
EA = EA.Read

Set Ia = HMIRuntime.Tags("Ia")
Ia = Ia.Read

Set Ib = HMIRuntime.Tags("Ib")
Ib = Ib.Read

Set Ic = HMIRuntime.Tags("Ic")
Ic = Ic.Read

Set P = HMIRuntime.Tags("P")
P = P.Read

Set PF = HMIRuntime.Tags("PF")
PF = PF.read

Set Uab = HMIRuntime.Tags("Uab")
Uab = Uab.read

Set Ubc = HMIRuntime.Tags("Ubc")
Ubc = Ubc.read

Set Uca = HMIRuntime.Tags("Uca")
Uca = Uca.read

Set Va = HMIRuntime.Tags("Va")
Va = Va.read

Set Vb = HMIRuntime.Tags("Vb")
Vb = Vb.read

Set Vc = HMIRuntime.Tags("Vc")
Vc = Vc.read

Set Q = HMIRuntime.Tags("Q")
Q = Q.read

Set ER = HMIRuntime.Tags("ER")
ER = ER.read



riqi = Now
'获取当前时间的年月日
Dim y, m
y = CStr(Year(riqi))
m = Month(riqi)
d = Day(riqi)


'数据库查询（数据库表名需要修改），从数据库中读出数据
sql_command = "select * from (select top 200 * from my_table" + " where TagID = '" +  Ia +"' Or TagID = '"+ Ib +"' Or TagID = '"+ Ic +"' or TagID = '"+ p +"'   order by TagHistoryDt desc) as a order by TagHistoryDt "

'设置连接字符串
Dim sPro
sPro = "Provider=SQLOLEDB.1;persist Security Info=True;User ID=sa;Password=123456;"	'远程数据库的用户名与密码
Dim sDsn
sDsn = "Initial Catalog = CHEMSHistory;"	'远程数据库名字
Dim sSer
sSer = "Data Source = 192.168.1.1, 1433;"		'远程服务器的ip地址
strcn = sPro+sDsn+sSer


'创建连接对象
Set objConnection = CreateObject("ADODB.Connection")
	objConnection.ConnectionString = strcn	'设置连接对象的属性
	objConnection.CursorLocation = 3	'使用客户端游标
	objConnection.Open	 '建立连接
Set objRecordset = CreateObject("ADODB.Recordset")	'创建记录集对象
Set objComand = CreateObject("ADODB.Command")	'创建命令对象
 
objComand.CommandType = 1
Set objComand.ActiveConnection = objConnection
objComand.CommandText = sql_command   '执行检索功能
Set objRecordset = objComand.Execute
n = objRecordset.RecordCount  '获得检索结果的总数

'这些需要在wincc online TrendControl中设置好多个趋势
Set objTrendControl = ScreenItems("timeTrend")	'wincc online TrendControl控件的对象名称
Set objTrend_Ia = objTrendControl.GetTrend("Ia")	' 选择对象中的趋势（与控件内的趋势名字对应）
objTrend_Ia.RemoveData
Set objTrend_Ib = objTrendControl.GetTrend("Ib")	' 选择对象中的趋势
objTrend_Ib.RemoveData
Set objTrend_Ic = objTrendControl.GetTrend("Ic")	' 选择对象中的趋势
objTrend_Ic.RemoveData
Set objTrend_p = objTrendControl.GetTrend("p")	' 选择对象中的趋势
objTrend_p.RemoveData


If (n > 0)Then 
    objRecordset.MoveFirst		'移动指针到检索结果的第一行
    i = 0
    While Not  objRecordset.eof 	'是否到达记录的末尾
        DT = objRecordset.Fields(1).Value	'(DT)
	    ' 时间格式：2016-3-10 10:20:00（固定格式）
        dblAxisX = Year(DT) & "-" & Month(DT) & "-" & Day(DT) & " " & Hour(DT) & ":" & Minute(DT) & ":" & Second(DT)
        dblAxisY = objRecordset.Fields(2).Value	'数值
        var = objRecordset.Fields(3).Value		'数据的具体标签，根据这个标签来选择填充哪条曲线
        If(i> n-200)Then		'曲线只显示200个数据
        		Select Case var		'根据不同的标签来选择填充不同的曲线
				Case "{"+Ia+"}"
					objTrend_Ia.InsertData dblAxisY, dblAxisX
				Case "{"+Ib+"}"
					objTrend_Ib.InsertData dblAxisY, dblAxisX
				Case "{"+Ic+"}"
					objTrend_Ic.InsertData dblAxisY, dblAxisX
				Case "{"+p+"}"
					objTrend_p.InsertData dblAxisY, dblAxisX
			End select
	   End If
        i = i + 1
        objRecordset.MoveNext
    Wend
End If

'=======================================================================================
'开始设置表格
Dim MSFlexGrid   
Set MSFlexGrid = ScreenItems("MSFlexGrid") 	'对应MSFlexGrid控件名称
sql_command = "select * from (select * from TagHistory"+LocalTime+" where TagID = '" +  Ia +"' Or TagID = '"+ Ib +"' Or TagID = '"+ Ic +"' or TagID = '"+ p +"' or TagID = '"+ EA +"' or TagID = '"+ PF+"' or TagID = '"+ Uab+"' or TagID = '"+ Ubc+"' or TagID = '"+ Uca+"' or TagID = '"+ Va+"' or TagID = '"+ Vb+"' or TagID = '"+ Vc+"' order by TagHistoryDt desc) as a order by TagHistoryDt "
Tag_num = 12		'要显示多少个变量
	
objComand.CommandText = sql_command   '执行检索功能
Set objRecordset = objComand.Execute
n = objRecordset.RecordCount  '获得检索结果的总数
'清空控件内容
MSFlexGrid.Clear
MSFlexGrid.ColWidth(0) = 700	'第一列宽度设置
MSFlexGrid.ColWidth(1) = 3000
MSFlexGrid.ColWidth(2) = 800
MSFlexGrid.ColWidth(3) = 800
MSFlexGrid.ColWidth(4) = 800	
MSFlexGrid.ColWidth(5) = 800
MSFlexGrid.ColWidth(6) = 800
MSFlexGrid.ColWidth(7) = 800
MSFlexGrid.ColWidth(8) = 800	
MSFlexGrid.ColWidth(9) = 800
MSFlexGrid.ColWidth(10) = 800
MSFlexGrid.ColWidth(11) = 800
MSFlexGrid.ColWidth(12) = 800
MSFlexGrid.ColWidth(13) = 800
MSFlexGrid.ColWidth(14) = 800	
MSFlexGrid.ColWidth(15) = 800
MSFlexGrid.ColWidth(16) = 800
MSFlexGrid.ColWidth(17) = 800
MSFlexGrid.ColWidth(18) = 800	
MSFlexGrid.ColWidth(19) = 800
MSFlexGrid.ColWidth(20) = 800


MSFlexGrid.RowHeight(0) = 400	'第一行高度
MSFlexGrid.RowHeight(1) = 380
 
MSFlexGrid.Row = 0
For z = 0 To 20
  MSFlexGrid.CellFontSize = 12	'字体大小
  MSFlexGrid.Col = z
  MSFlexGrid.Text = "历史数据"
  Next 
  MSFlexGrid.MergeCells = 4		'相同内容合并单元格
  MSFlexGrid.MergeRow(0) = True	'合并单元格
  MSFlexGrid.Row = 1
  
 For z = 0 To 20	 '根据上面的列数来决定
 	MSFlexGrid.Col = z
 	
  MSFlexGrid.CellBackColor = vbCyan   '第二行颜色设置为青色
 Next
   MSFlexGrid.TextMatrix(1,0) = "序号"	'单位，需要根据实际情况修改
   MSFlexGrid.TextMatrix(1,1) = "日期"
   MSFlexGrid.TextMatrix(1,2) = "Ia"
   MSFlexGrid.TextMatrix(1,3) = "Ib"
   MSFlexGrid.TextMatrix(1,4) = "Ic"
   MSFlexGrid.TextMatrix(1,5) = "p"
   MSFlexGrid.TextMatrix(1,6) = "EA"
   MSFlexGrid.TextMatrix(1,7) = "PF"
   MSFlexGrid.TextMatrix(1,8) = "Uab"
   MSFlexGrid.TextMatrix(1,9) = "Ubc"
   MSFlexGrid.TextMatrix(1,10) = "Uca"
   MSFlexGrid.TextMatrix(1,11) = "Va"
   MSFlexGrid.TextMatrix(1,12) = "Vb"
   MSFlexGrid.TextMatrix(1,13) = "Vc"
   MSFlexGrid.TextMatrix(1,14) = "Q"
   MSFlexGrid.TextMatrix(1,15) = "ER"

 
  
   MSFlexGrid.ColAlignment(0) = 4		'对其方式为居中对齐
   MSFlexGrid.ColAlignment(1) = 4
   MSFlexGrid.ColAlignment(2) = 4
   MSFlexGrid.ColAlignment(3) = 4
   MSFlexGrid.ColAlignment(4) = 4
   MSFlexGrid.ColAlignment(5) = 4
   MSFlexGrid.ColAlignment(6) = 4		'对其方式为居中对齐
   MSFlexGrid.ColAlignment(7) = 4
   MSFlexGrid.ColAlignment(8) = 4
   MSFlexGrid.ColAlignment(9) = 4
   MSFlexGrid.ColAlignment(10) = 4
   MSFlexGrid.ColAlignment(11) = 4
   MSFlexGrid.ColAlignment(12) = 4
   MSFlexGrid.ColAlignment(13) = 4
   MSFlexGrid.ColAlignment(14) = 4
   MSFlexGrid.ColAlignment(15) = 4

 	
 If (n > 0)Then 
   MSFlexGrid.Rows = n/Tag_num + 3  '提前将行数给够，否则会出错，2是加上标题两行
    objRecordset.MoveFirst		'移动指针到检索结果的第一行
    i = 1
    pre_time = ""
    While Not  objRecordset.eof 	'是否到达记录的末尾，循环填写表格
        	var = objRecordset.Fields(3).Value
    		If(objRecordset.Fields(1).Value = pre_time)Then
    			MSFlexGrid.TextMatrix(i,0) = i-1	'将查询到的每一行结果写入表格中
        		MSFlexGrid.TextMatrix(i,1) = objRecordset.Fields(1).Value
    			Select Case var
				Case "{"+Ia+"}"
					MSFlexGrid.TextMatrix(i,2) = objRecordset.Fields(2).Value
				Case "{"+Ib+"}"
					MSFlexGrid.TextMatrix(i,3) = objRecordset.Fields(2).Value
				Case "{"+Ic+"}"
					MSFlexGrid.TextMatrix(i,4) = objRecordset.Fields(2).Value
				Case "{"+p+"}"
					MSFlexGrid.TextMatrix(i,5) = objRecordset.Fields(2).Value
				Case "{"+EA+"}"
					MSFlexGrid.TextMatrix(i,6) = objRecordset.Fields(2).Value
				Case "{"+PF+"}"
					MSFlexGrid.TextMatrix(i,7) = objRecordset.Fields(2).Value
				Case "{"+Uab+"}"
					MSFlexGrid.TextMatrix(i,8) = objRecordset.Fields(2).Value
				Case "{"+Ubc+"}"
					MSFlexGrid.TextMatrix(i,9) = objRecordset.Fields(2).Value
				Case "{"+Uca+"}"
					MSFlexGrid.TextMatrix(i,10) = objRecordset.Fields(2).Value
				Case "{"+Va+"}"
					MSFlexGrid.TextMatrix(i,11) = objRecordset.Fields(2).Value
				Case "{"+Vb+"}"
					MSFlexGrid.TextMatrix(i,12) = objRecordset.Fields(2).Value
				Case "{"+Vc+"}"
					MSFlexGrid.TextMatrix(i,13) = objRecordset.Fields(2).Value
				Case "{"+Q+"}"
					MSFlexGrid.TextMatrix(i,14) = objRecordset.Fields(2).Value
				Case "{"+ER+"}"
					MSFlexGrid.TextMatrix(i,15) = objRecordset.Fields(2).Value
			End Select
    		Else
    			i = i + 1
    			pre_time = objRecordset.Fields(1).Value
    			MSFlexGrid.TextMatrix(i,0) = i-1	'将查询到的每一行结果写入表格中
    			Select Case var
				Case "{"+Ia+"}"
					MSFlexGrid.TextMatrix(i,2) = objRecordset.Fields(2).Value
				Case "{"+Ib+"}"
					MSFlexGrid.TextMatrix(i,3) = objRecordset.Fields(2).Value
				Case "{"+Ic+"}"
					MSFlexGrid.TextMatrix(i,4) = objRecordset.Fields(2).Value
				Case "{"+p+"}"
					MSFlexGrid.TextMatrix(i,5) = objRecordset.Fields(2).Value
				Case "{"+EA+"}"
					MSFlexGrid.TextMatrix(i,6) = objRecordset.Fields(2).Value
				Case "{"+PF+"}"
					MSFlexGrid.TextMatrix(i,7) = objRecordset.Fields(2).Value
				Case "{"+Uab+"}"
					MSFlexGrid.TextMatrix(i,8) = objRecordset.Fields(2).Value
				Case "{"+Ubc+"}"
					MSFlexGrid.TextMatrix(i,9) = objRecordset.Fields(2).Value
				Case "{"+Uca+"}"
					MSFlexGrid.TextMatrix(i,10) = objRecordset.Fields(2).Value
				Case "{"+Va+"}"
					MSFlexGrid.TextMatrix(i,11) = objRecordset.Fields(2).Value
				Case "{"+Vb+"}"
					MSFlexGrid.TextMatrix(i,12) = objRecordset.Fields(2).Value
				Case "{"+Vc+"}"
					MSFlexGrid.TextMatrix(i,13) = objRecordset.Fields(2).Value
				Case "{"+Q+"}"
					MSFlexGrid.TextMatrix(i,14) = objRecordset.Fields(2).Value
				Case "{"+ER+"}"
					MSFlexGrid.TextMatrix(i,15) = objRecordset.Fields(2).Value
			End Select	
		End If	
		objRecordset.MoveNext	
    Wend   
    MSFlexGrid.TopRow = MSFlexGrid.Rows - 1	'移动到最后一行

End If
End Sub
CV科研随想录
关注
专栏目录
如何远程访问WINCC的数据库
jianlai1的博客
07-22 3631
如何远程访问WINCC的数据库 测试环境：wincc v7.5SP1（自带SQL2016） 博途V15 Microsoft SQL Server Management Studio 18 首先，组态plc和wincc,通过wincc采集plc内部的变量，PLC可通过博途软件进行仿真，本人是使用博途的内部脉冲循环开关一个变量，wincc监控这个变量，对其进行过程值归档。 之后打开Microsoft SQL Server Management Studio 18， 选择WINCC的服务器登录即可 之后在登录
WinCC笔记：02.MSHFlex控件 —— (7) 多表格联合操作
qq_42016887的博客
06-15 955
有两张表格grid和grid2，grid中通过数据表写入数据，grid2显示选择的grid中的数据。
掌握MSHFlexGrid控件：从基础到进阶
最新发布
weixin_42509507的博客
08-30 1095
本文还有配套的精品资源，点击获取 简介：MSHFlexGrid是一个用于创建表格和网格布局的控件，广泛应用于Access数据库中显示和编辑数据。本文详细介绍了MSHFlexGrid的基本概念、使用方法、进阶特性以及在编程实践中的应用示例。特别适合希望提升在Windows Forms库中使用MSHFlexGrid进行数据展示和用户交互设计能力的开发者。 1. MSHFl...
WinCC FlexGrid控件
09-28
WinCC FlexGrid控件， 控件使用方法， 操作手册，入门手册
CentOs 安装主意事项
无风子
01-25 348
安装注意事项 1 关于分区的问题，我们分四个分区（建议这四个分区不要占满，原因为了扩展，添加新的东西，不用挂在这四个分区以下，避免影响） 比如20G / 10G /home 2G /boot 500M swap
MSHFlexGrid 控件
行者的专栏
03-02 4348
1)  MSHFLEXGRID的重要属性.MSHFLEXGRID的属性非常多,其实绝大部分的属性和网格的显示的外观有关.在MSDN里,这些属性足以将人搞得眼花缭乱的了(我相信你没有耐性一个一个地翻查).下面列出常用的属性,方法事件及其简要说明.以便查阅.属性类型说明AllowBigSelectorBoolean返回/设置一个值,定义当在行或列的头部单击时,是否该行或列将整个被选中AllowUseR
制作wincc时候MSFlexGrid控件不能使用，可以安装vb6.0，安装后可以使用
08-23
在使用西门子WinCC（Windows Control Center）进行人机界面开发时，有时会遇到MSFlexGrid控件无法正常工作的问题。这个问题通常是由于系统环境不兼容或者缺少必要的组件导致的。在这种情况下，一种可行的解决方案是...
16358010wincc通过vbs访问数据库_VB数据库_wincc读写数据库_wincc读写sql_wincc数据库_
10-04
总之，通过VBScript在WinCC中访问SQL数据库是一项强大的功能，它使得WinCC能够与企业级数据库紧密集成，实现数据的实时交换和历史记录的存储，从而提高生产管理的效率和准确性。正确理解和掌握上述知识点，将有助于...
wincc sql.zip_WinCC_pywincc_sql与wicc winCC_wincc 数据库_wincc数据库
09-24
《深入理解WinCC与SQL数据库交互技术》 在工业自动化领域，SIMATIC WinCC作为一款强大的可视化软件，广泛应用于监控和数据采集系统（SCADA）。它不仅提供了丰富的图形化界面设计工具，还支持与各种数据库的集成，...
利用ODBC访问WINCC的历史数据库.doc
10-21
利用ODBC访问WINCC的历史数据库doc,利用ODBC访问WINCC的历史数据库
wincc web Navigator发布教程(局域网与外网)
09-02
WinCC Web Navigator发布教程(局域网与外网) WinCC Web Navigator是一种基于Web的监控和控制系统，通过Intranet或Internet可以远程运行和管理WinCC系统。下面是WinCC Web Navigator的发布教程，涵盖局域网和外网两...
wincc数据库读取
03-27
读取wincc数据库过程数据，形成报表 WinCC可以使用其本身提供的控件(如在线变量表格控件及在线趋势控件)访问归档数据，那么如何处理导出WinCC归档数据到其他文件(如Excel)的问题呢？这里来个抛砖引玉，简单介绍一下几种处理方法，并告诉大家有什么可参考的文档资料。
MSFlexGrid控件的使用
12-15
关于VB MSFlexGrid控件的使用说明
WinCC数据库SQL访问
12-16
通过SQL 2005管理器打开WinCC归档数据库。
MSFlexGrid控件属性及使用方法
07-14
近期有些项目用到了！找了些资料，分享一下！ 欢迎交流！ MSFlexGrid某一单元格的文本内容 MSFlexGrid1.TextMatrix(3, 0) ="网站地址" '定义第3行的左边表头文本内容为：“网站地址”
wincc vbs mysql_WinCC 如何访问数据库(VBS)
weixin_29577659的博客
02-11 1236
在WinCC中如何访问数据库(VBS)一、声名全局变量在全局脚本中声明全局变量，如下：Public gocn2、建立连接，如下：Set gocn = CreateObject("ADODB.Connection")gocn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial Ca...
wincc远程服务器配置,wincc实现远程访问的方法
weixin_35572715的博客
07-30 5990
该楼层疑似违规已被系统折叠隐藏此楼查看此楼4.1 WinCC Web Navigator实现远程访问的方法WinCC Web Navigator基于标准HTTP 协议, 并支持所有常规安全机制。WinCC Web Navigator允许用户通过Internet或Intranet对远程设备进行监控甚至操作。Web Navigator包括安装在Server上的Web Navigator Server...
机房收费（二）之MSFlexGrid控件
写一封信
06-26 1959
前言        在学习学生信息系统中的查询成绩和学籍信息窗体的时候，我们已经接触过这一控件。而到机房的时候，这一控件的应用更加广泛，为了更好的学习，我们需要对MSFlexGrid控件有个大致的了解。 基本介绍 作用：显示和操作表格数据 属性：row （指表格的行）           rows（表格的总行数）            col  （指表格的列）
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

CV科研随想录

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值