- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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
您可能关注的文档
最近下载
- 第六单元 大单元教学设计-2025-2026学年高一语文必修上册统编版.pdf VIP
- 合力叉车 电动仓储车维修手册.pdf
- 药品及医用耗材管理制度.docx VIP
- 2025年入党积极分子的思想汇报1500字【五】.docx VIP
- 计算机类本科毕业论文-基于FPGA的产品表面工业缺陷检测系统.docx VIP
- 临时医嘱单模板.pdf VIP
- 2025福建福州首邑产业投资集团有限公司(第一次)招聘18人笔试模拟试题及答案解析.docx VIP
- 2025福建福州首邑产业投资集团有限公司(第一次)招聘18人笔试备考试题及答案解析.docx VIP
- 2025福建福州首邑产业投资集团有限公司(第一次)招聘18人笔试备考题库及答案解析.docx VIP
- 厂内交通安全培训课件.pptx VIP
文档评论(0)