语句运行错误 帮忙分析一下那句出问题了

mrl

下面语句运行时错误 '13'  类型不匹配 ,搞了一个晚上都弄不通,帮忙分析一下那句出问题了 谢谢!


Dim syRecset As DAO.Recordset
    Dim syre As Recordset
    Dim Teat As Integer
   Teat = 6   
strsql = "SELECT Service_流程.流程, Service_登记.预约时间,Service_登记.执行情况"

strsql = strsql & " FROM Service_登记 INNER JOIN Service_流程 ON Service_登记.执行情况 = Service_流程.ID"

strsql = strsql & " WHERE (((Service_登记.执行情况)<>" & Teat & "))"

strsql = strsql & " ORDER BY Service_登记.预约时间, Service_登记.执行情况;"

Set syre = CurrentDb.OpenRecordset(strsql )    '运行时错误 '13'  类型不匹配
        If syre.EOF = False Then
            syre.MoveFirst
            syre.MoveLast
        End If
……

mrl

原帖由 cuxun 于 2008-10-5 06:12 发表
注意字段的类型,执行情况是什么类型的字段?

执行情况是数字类型

zyp

在Set syre = CurrentDb.OpenRecordset(strsql ) 前用debug.print strsql 语句将strsql 输出到即时窗口看看完整的SQL语句是什么，贴上来看看

mrl

多谢各位关注,
原来是Dim syre As Recordset定义问题,改为Dim syre As  DAO.Recordset后
Set syre = CurrentDb.OpenRecordset(strsql ) 可以通过了,
但是如果用Dim syre As Recordset那么 Set syre = CurrentDb.OpenRecordset(strsql )又应该怎样改呢?

Henry D. Sy

原帖由 mrl 于 2008-10-5 20:48 发表
多谢各位关注,
原来是Dim syre As Recordset定义问题,改为Dim syre As  DAO.Recordset后
Set syre = CurrentDb.OpenRecordset(strsql ) 可以通过了,
但是如果用Dim syre As Recordset那么 Set syre = CurrentDb. ...

要把引用的dao放在ado之前。