IFIX与EXCEL的连接-专业自动化论坛-中国工控网论坛

IFIX与EXCEL的连接点击：1645 | 回复：9

精华：25帖
求助：0帖
帖子：564帖 | 1178回
年度积分：0
历史总积分：8243
注册：2006年8月25日

发表于：2007-03-03 20:55:00

楼主

第一步，创建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='&q

分享到：