dbs.OpenRecordset 参数不足

yrlxm

请看以下代码,执行到最后一句时  出现错误:提示运行时错误3061 , 参数不足,期待的是1





奇怪我以前也这样用都好好的.



  



sql = "........"

   

   

   '以下开始计算 将数据通过 综合查询  写入report表

    Dim dbs As Database

    Dim TableA  As Variant

    Dim qdf As QueryDef

      

    Set dbs = CurrentDb()

    CurrentDb.QueryDefs.Refresh                   '刷新当前数据库中的查询对象

      

    For Each qdf In CurrentDb.QueryDefs               '遍历查询，如果存在

        If qdf.Name = "~reportSet" Then                '数据”查询则删除

            CurrentDb.QueryDefs.Delete qdf.Name

        End If

    Next qdf

   

    Set qdf1 = dbs.CreateQueryDef("~reportSet", sql)

    Set TableA = dbs.OpenRecordset("~reportSet", dbOpenSnapshot)  '打开查询快照

zipgirl

我猜，如果以前都用得好好的话，并且你前面用了ON ERROR RESUME NEXT 的话，是不是SQL语句有问题？因为这样的话，Set qdf1 = dbs.CreateQueryDef("~reportSet", sql)这句就被跳过了，也就是说你的~reportSet查询根本就不存在

   

yrlxm

谢谢,真的是sql的问题.