IFIX高手请教,报表 点击:629 | 回复:2



风云剪影

    
  • 精华:0帖
  • 求助:3帖
  • 帖子:58帖 | 66回
  • 年度积分:0
  • 历史总积分:738
  • 注册:2006年8月03日
发表于:2009-02-04 15:13:08
楼主

请高手帮请帮忙看我是在做一个报表程序

    Private Sub CmdSearch_Click()
   Dim dtmMomth As String
   Dim StartDate As String
   StartDate = Format(Format(Me.dtpStart, "yyyy-mm") & "-01 00:00:00", "yyyy-mm-dd HH:mm:ss")
   dtmMONTH = DateAdd("m", 1, Format(Me.dtpStart, "yyyy-mm") & "-01")
   ‘必须先引用ADO控件定义
  ‘查询语句
   Dim Sql As String
   Dim cnADO As ADODB.Connection
   Dim rsADO As Recordset
   ‘查询设置
   Sql = "SElECT VALUE,DATETIME,TAG" & _
   "FROM FIX" & _
   "WHERE (DATETIME>={ts‘" & StartDate & "‘} AND " & _
   "DATETIME <={ts‘" & dtmMomth & "‘})" & _
   " AND INTERVAL = ‘00:01:00‘"
   " AND INTERVAL = ‘00:01:00‘"
   ‘连接并读取数据库
    Set cnADO = New ADODB.Connection
    Set rsADO = New ADODB.Recordset
   ‘连接数据设置指向所需要连接的位置,此处连接到IFX的历史数据库.
   cnADO.ConnectionString = "Provider = Microsoft OLE DB Provider " & _
   "for ODBC Drivers;DSN=FIX Dynamics Historical Data;UID =;PWD =;"
   ‘打开连接
   cnADO.Open
   ‘把数据放到客户端来
   rsADO.CursorLocation = adUseClient
   ‘查询数据,根据SQL定义的查询设,选择CnADO所连接的通道.将数据放到rsADO 记录集里
   rsADO.Open Sql, cnADO, adOpenDynamic, adLockUnspecified, -1

   If rsADO.RecordCount <= 0 Then
   MsgBox "该时间范围无数据!"
   Exit Sub
   End If

只要一运行以上程序不知何故老是出现以下提示,

运行时错误‘2147217900‘"【FIX-Historical Data Access-ODBC Dricer】Expected lexical element not found:FROM

不知道如何解决此问题请高手指点指点

 




王小石

  • 精华:0帖
  • 求助:0帖
  • 帖子:12帖 | 72回
  • 年度积分:0
  • 历史总积分:224
  • 注册:2001年12月26日
发表于:2009-02-06 21:47:01
1楼
SQL语句有误,少空格了,把TAG和FROM连一块,FIX和WHERE连一块了,所以提示没发现FROM

dreamreportxiao

  • 精华:0帖
  • 求助:0帖
  • 帖子:1帖 | 45回
  • 年度积分:0
  • 历史总积分:201
  • 注册:2006年3月24日
发表于:2009-02-09 14:56:27
2楼

ifix报表完美解决方案:DreamReport首家工业自动化行业的报表软件。欲了解详细信息请回Msn: drchinasupport@hotmail.com

 


热门招聘
相关主题

官方公众号

智造工程师