资源描述：
《ifix和excel连接》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、·IFIX与EXCEL的连接· 2007-02-2420:16:44 作者：ifixonline 来源：杭州集益科技有限公司· 文字大小：【大】【中】【小】评分等级：0·第一步，创建ODBC数据源，具体方法：启动控制面板中的数据源ODBC，单击“系统DNS”对话框，选择所需数据源的驱动，如：“Microsoftexceldriver(*.exl)”,单击“完成”按钮，弹出“ODBCMicrosoftexcel安装”对话框；在数据源名中定义一个数据源名称，数据库中“选择”中选择区县数据所在的数据库，此数据库的表至少有三个字段：时间字
2、段、数据字段、毫秒字段。单击确定按钮，新创建数据源就添加到“系统DNS”列表中。第二步，在IFIX中创建代码ADO—在安装了MCROWINBASIC6.0等软件就有了；PrivateSubCommandButton1_Click() '注释: 1。该程序需要安装ADO2.0目标库并在本机注册 ' 2。MicrosoftActiveXDataObjects2.1Library必须被引用(Office2000) ' 3。MicrosoftExcel9.0objectlibraries必须被引用(Office2000)
3、 ' 4。划===处可根据具体报表修改 DimstrQueryAvgAsString DimcAsInteger DimrAsInteger DimIntyexcelAsExcel.Application DimMyDate,MyMonth,MyDay,MyHour,MyMinute,MySecond DimStartTime,EndTime,Duration,DisplayDay,DisplayMonthAsString '++=====================================
4、============================== '报表中的TAG DimTag1,Tag2,Tag3,Tag4,Tag5,Tag6,Tag7,Tag8AsString DimItemsAsInteger Tag1="TEST" Tag2="TEST1" Tag3="" Tag4="" Tag5="" Tag6="" Tag7="" Tag8="" '从历史库中取得域项，2-DATATIME,VALUE,TAG共三项 Items=2 '--======================
5、============================================== 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&"-"&My
6、Day-1&""&"23:00:00" '++========================================================================== '查询，根据报表修改 strQueryAvg="SelectDATETIME,VALUE,TAGFROMFIX"&_ "WHEREMODE='AVERAGE'and(TAG='"&Tag1&"'orTAG='"&Tag2&"'"&_ "orTAG='"&Tag3&"'orTAG='"&Tag4&"'orTAG='"&
7、Tag5&"'"&_ "orTAG='"&Tag6&"'orTAG='"&Tag7&"'orTAG='"&Tag8&"')"&_ "andINTERVAL='01:00:00'and"&_ "(DATETIME>=and"&_ "DATETIME<=)" '--=========================================================================== DimcnADOAsNewADODB.Connection Dimr
8、sADOAsRecordset SetcnADO=NewADODB.Connection cnADO.ConnectionString="DSN=FIXDynamicsHistoricalData;UID=sa
