把数据库里一段时间的数据赋值给变量,用VBS编历史动画

我已经会把数据库里的一个某一时间点所对应的数值赋给wincc变量,现在想做,把一段时间内的数值按时间顺序依次赋给wincc变量。以下是我吧某一时间点所对应的值赋给wincc的程序。
’连接数据库并选取某一时间
Dim conn
Set conn = CreateObject("ADODB.Connection")
conn.open "Provider=SQLOLEDB.1;Password=yanshandaxue;Persist Security Info=True;User ID=sa_mcgs;Initial Catalog=GpsData;Data Source=Z-78419B075B964\WINCC"
Dim sSql
sSql="SELECT * FROM GpsRtime=’ 2014/12/22 9:11:58’”
Dim oRs
Dim oCom
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
‘给wincc变量赋值
Dim data1,data2,data3
Set data1 = HMIRuntime.Tags("S1xzwz")
data1.Write oRs.Fields("S1X").Value
Set data2 = HMIRuntime.Tags("S2xzwz")
data2.Write oRs.Fields("S2X").Value
Set data3 = HMIRuntime.Tags("S3xzwz")
data3.Write oRs.Fields("S3X").Value
Set oRs = Nothing
conn.Close
Set conn=Nothing

问题补充:
上面的程序没问题是对的,它是取数据库中''2014/12/22 9:11:58''一行的内容进行读取并赋值给WinCC的变量,程序是对的。我现在想取比如2014/12/22 9:11:00-------2014/12/22 9:14:18这一段时间内的数据,加一定的延时,按时间排序,一条一条的把数据库里的所对应的数据(历史记录)赋值给wincc里面的变量,从而达到 查看历史动画的效果。下边附上数据图的table表

图片说明:

把数据库里一段时间的数据赋值给变量,用VBS编历史动画   

最佳答案

?????什么意思?你让我们帮你找错还是分享????如果脚本有问题你可以参考:http://www.52plc.net/read.php?tid=4268

数据取出来了,什么时候用就什么时候再从table中读出来呀!不需要在脚本延时的。

提问者对于答案的评价:
我弄出来了,呵呵。我说的延时,是播放历史动画的速度,不管怎么说还是谢谢了

专家置评

已阅,最佳答案正确。

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc204365.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2017年11月1日
下一篇 2017年11月1日

相关推荐