IFIX与EXCEL的连接.docVIP

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
IFIX与EXCEL的连接 第一步,创建ODBC数据源,具体方法:启动控制面板中的数据源ODBC,单击“系统DNS”对话框,选择所需数据源的驱动,如:“Microsoft excel driver (*.exl)”,单击“完成”按钮,弹出“ODBC Microsoft excel 安装”对话框;在数据源名中定义一个数据源名称,数据库中“选择”中选择区县数据所在的数据库,此数据库的表至少有三个字段:时间字段、数据字段、毫秒字段。单击确定按钮,新创建数据源就添加到“系统DNS”列表中。 第二步,在IFIX中创建代码 ADO—在安装了MCROWIN BASIC 6.0 等软件就有了; Private Sub CommandButton1_Click() ? 注释: 1。该程序需要安装ADO 2.0目标库并在本机注册 ? ? ? 2。Microsoft ActiveX Data Objects 2.1 Library 必须被引用 (Office 2000) ? ? ? 3。Microsoft Excel 9.0 object libraries 必须被引用 (Office 2000) ? ? ? 4。划===处可根据具体报表修改 ? ? Dim strQueryAvg As String ? Dim c As Integer ? Dim r As Integer ? Dim Intyexcel As Excel.Application ? ? Dim MyDate, MyMonth, MyDay, MyHour, MyMinute, MySecond ? Dim StartTime, EndTime, Duration, DisplayDay, DisplayMonth As String ? ++=================================================================== ? 报表中的 TAG ? Dim Tag1, Tag2, Tag3, Tag4, Tag5, Tag6, Tag7, Tag8 As String ? Dim Items As Integer ? ? Tag1 = TEST ? Tag2 = TEST1 ? Tag3 = ? Tag4 = ? Tag5 = ? Tag6 = ? Tag7 = ? Tag8 = ? ? 从历史库中取得域项, 2 - DATATIME, VALUE, TAG 共三项 ? Items = 2 ? --==================================================================== ? ? MyDate = Now() ? MyMonth = Month(MyDate) ? MyDay = Day(MyDate) ? MyHour = Hour(MyDate) ? MyMinute = Minute(MyDate) ? MySecond = Second(MyDate) ? ? StartTime = 2000 - MyMonth - MyDay - 1 00:00:00 ? EndTime = 2000 - MyMonth - MyDay - 1 23:00:00 ? ++========================================================================== ? 查询,根据报表修改 ? strQueryAvg = Select DATETIME, VALUE, TAG FROM FIX _ ? ? WHERE MODE = AVERAGE and (TAG= Tag1 or TAG= Tag2 _ ? ? or TAG= Tag3 or TAG= Tag4 or TAG= Tag5 _ ? ? or TAG= Tag6 or TAG= Tag7 or TAG= Tag8 ) _ ? ? and INTERVAL = 01:00:00 and _ ? ? (DATETIME = and _ ? ? DATETIME = ) ? --=========================================================================== ? ? ? Dim cnADO As New ADODB.Connection ? Dim rsADO As Recordset ? ? Set cnADO = New ADODB.Co

文档评论(0)

湘雅书斋 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:5220142302000001

1亿VIP精品文档

相关文档