用按钮脚本访问数据库以设置I/O域

要在画面中获得归档数据库中的数据，一共有四个I/O域，1号用于输入开始查询的时间，2号用于输入查询结束的时间，3号用于输入归档周期，这三个I/O域的输入格式都要参考wincc6.0专用归档命令所要求格式，4号用于输出查询结果。因为查询的只是两时间点的差值，所以可以用一个I/O域。那用用做时间输入的，其接收变量的类型设为字符型就可以了，我用VBS做的，但VBS-Editor里面连有个标准函数都没有，也不知道下面编写的脚本对不对，能不能请高手点拔一下，多谢了！！！！
Dim ConnectionObj As Object
Dim Connectionstring As String
Dim TagValue1,TagValue2 As float
Dim CommandStrTimeStart As string
Dim CommandStrTimeEnd As string
Dim CommandObj As Object

Connectionstring="Provider=WinCCOLEDBProvider.1;Catalog=CC_archive_08_12_30_10_21_6R;Data Source=.\WinCC"
'TagValue=HMIRuntime.Tags("speed").Read
if()
CommandStrTimeStart="TAG:R,'ProcessValueArchive\\speed','TagStartTime','TagStartTime'+'0000-00-00:00:00:00.500""
CommandStrTimeEnd="TAG:R,'ProcessValueArchive\\speed','TagEndTime','TagEndTime'+'0000-00-00:00:00:00.500""
'即模拟语句: Select speed WHERE TagStartTime BETWEEN TagStartTime and TagStartTime + 一个归档周期
'即对给定时间与归档时间不一致的情况做后向处理.同样也可做前向处理.采取一致约定即可.
Set ConnectionObj=CreateObject("ADODB.Connection")
ConnectionObj.ConnectionString=Connectionstring
ConnectionObj.Open

Set CommandObj=CreateObject("ADODB.Command")
with CommandObj
.ActiveConnection=ConnectionObj

.CommandText=CommandStrTimeStart
TagValue1=CommandObj.Execute

.CommandText=CommandStrTimeEnd
TagValue2=CommandObj.Execute
End With

'HMIRuntime.Tags("NewTag3").Write TagValue2-TagValue1,资料不全,都不知道用没有这句,只是有read的相关命令.
TagValue3=TagValue2-TagValue1'如果上一句不行,不知道这句行不行.

Set CommandObj=Nothing
ConnectionObj.Close
Set ConnectionObj=Nothing
TagValue3=TagValue2-TagValue1

应该获取变量的值和设置变量的值都应该是不正确的，这先不说吧，就说说查询语句中有哪里要改的吧！！！！如果用C脚本可以的话，那要怎样做呢，更熟悉C脚本，VBS可能访问数据更好用一点吧！！！多谢！！！！

问题补充：
里面的500只是固定的归档周期。
还用不用再装connection pack授权，wincc6.0 basic没自带吗？
多谢！！！！！

还有时间,那再看看有其他人的回答没有再说吧!!!多谢dcount107的回答!!!

多谢KKZ提醒，不过，好像归档数据库里的表的结构啊什么的都不清楚，而且，归档数据还是压缩储存的。嗯嗯，这个可以用wincc的专用命令来解决。。。多谢哈

我估计还用vbs了，提到一点资料，一直在翻呵呵，在帮助里有点头绪，明天应该就差不多了吧，不过还有点问题：如果用CommandObj.Execute返回的是一个RecordSet对象，那因为不知道归档数据库中表的字段的名字和顺序，那用RecordSet对象的fields()怎么才能取到自己想要的数据呢？？？只要把这个问题给解决了，那就好说了。

最佳答案

楼主你的问题看得有点晕，呵呵。取某个时间点的数据这种应用还真是少见。
  1、VBS只有VARIANT变体类型，把as xxx都去掉
  Dim ConnectionObj
  Dim Connectionstring
  .......
  2、CommandObj.Execute得到的对象是Recordset，不能直接赋值给float变量。
  3、查询语句：
  dim szStartTime
  szStartTime=HMIRuntime.Tags("TagStartTime").Read
  CommandStr="TAG:R,'ProcessValueArchive\speed',szStartTime,'0000-00-00:00:00:00.500'"
  即可读取所设定时间500MS内的记录

建议你看一下Connectivity Pack手册，有相关代码。

访问数据库用C脚本也行，但比较麻烦，还是用VBS吧。

本机访问不用安装CP授权。
---------------------------------------------------------
不知道的话就用序号，如oRs.Fields(1)、oRs.Fields(2)，顺便用oRs.Fields(1).Name看一下字段名称等等，呵呵。

提问者对于答案的评价：
哦,那可以看一下字段了,我又重新修改了一下代码,也重新提问了一次,有时间再看看那个吧!!!多谢哈!!!!

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

用按钮脚本访问数据库以设置I/O域

相关推荐