iFix报表--EXCEL报表

ifix报表--excel报表  
来源:极易ifix论坛
http://www.geifix.com/index.asp?boardid=6

ifix中如何实现excel报表
在vba中引用microsoft excel 11.0 object library和microsoft ado 6.0 library。在画面中添加个按钮。复制以下代码：
‘－－－－－－－－－－开始复制(不包括此行)－－－－－－－－－－－－－－
option explicit
dim rsado as adodb.recordset
dim cnado as adodb.connection
private sub command1_click()
   dim strdir as string
   strdir = e:    
   dim i as long
   dim sql as string
   sql = select * from thisnode
   set cnado = new adodb.connection
   set rsado = new adodb.recordset
   cnado.c
   cnado.open
   rsado.cursorlocation = aduseclient
   rsado.open sql, cnado, adopendynamic, adlockunspecified, -1
   
   if rsado.recordcount
注意：1.ifix历史数据库只支持读90天的数据，在sql语句中限定时间即可。
        2.也可以读取其他数据源的数据，如access、sql server等，只要改一下connectionstring。
----------------------------------------------
此篇文章从博客转发
原文地址： Http://blog.gkong.com/more.asp?id=96963&Name=springal