ADO的一个小问题

wjb5645

fan0217  你好

请教DAO中引用窗体的日期作为查询准则如何写?

帮我改改:

Dim M As DAO.Recordset

Set M = CurrentDb.OpenRecordset("SELECT 订单明细.订单ID, 订单明细.产品ID, 订单.订购日期, Sum([数量]) AS 出量 " _
& "FROM 订单 INNER JOIN 订单明细 ON 订单.订单ID = 订单明细.订单ID " _
& "GROUP BY 订单明细.订单ID, 订单明细.产品ID, 订单.订购日期;")
& "HAVING (((订单.订购日期)>=[forms]![A先先]![订购开始日期] And (订单.订购日期)<=[forms]![A先先]![订购终止日期]))<>0));")
'M.Filter = "[订购日期] =[forms]![A先先]![订购开始日期]"
Set M = M.OpenRecordset
Do While Not M.EOF

Debug.Print M("订购日期")
Debug.Print M("产品ID")
Debug.Print M("出量")
M.MoveNext
Loop

wjb5645

我试出来了:

Dim M As DAO.Recordset

Set M = CurrentDb.OpenRecordset("SELECT 订单明细.订单ID, 订单明细.产品ID, 订单.订购日期, Sum([数量]) AS 出量 " _
& "FROM 订单 INNER JOIN 订单明细 ON 订单.订单ID = 订单明细.订单ID " _
& "GROUP BY 订单明细.订单ID, 订单明细.产品ID, 订单.订购日期;")
M.Filter = "[订购日期]>=#" & Format([Forms]![A先先]![订购开始日期], "yyyy-mm-dd") & "# and [订购日期]<=#" & Format([Forms]![A先先]![订购终止日期], "yyyy-mm-dd") & "# and [产品ID]=" & [Forms]![A先先]![ID] & ""
Set M = M.OpenRecordset
Do While Not M.EOF



Debug.Print M("订购日期")
Debug.Print M("产品ID")
Debug.Print M("出量")
M.MoveNext
Loop


但速度很慢,帮我看看问题在哪?

wjb5645

我的后端是SQL不好上传.

我想再加

& "&HAVING [订购日期]>#6/1/2006#"_

想来提高速度就提示:语法错误(操作符丢失) 在查询表达式'盯购日期&'中

不好意思,第一次玩DAO,有点晕.

wjb5645

直接基于查询打开记录集,又没问题,晕呀.