怎样编access自定义函数：取记录集最后一条记录的前第二条

ishfb

有一个日报表内有一个日期字段，但里面的日期数据不是连续的，也不是唯一的
Function JFJE(bm As Date) As Date
Dim rst As New ADODB.Recordset
Dim arr()
rst.Open "SELECT 日期 FROM 日报 GROUP BY 日期 having [日期]=& bm &", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
arr = rst.GetRows()
arr.MoveLast
arr.MoveNext
arr.MoveNext
End Function
这是我写的，但运行不了，哪位能帮忙修改一下我的设想是：因为日期数据不是唯一，所以将日期分组查询，然后赋给rst记录集，再转换为数组，通过二次movenext来取得最后一条前的第二条。

amazeyeli

取记录集最后一条记录的前第二条
SELECT * FROM
(
SELECT *,DCOUNT("日期","日报","日期>"&日期) AS 排名 FROM 日报
)
WHERE 排名 = 2

ishfb

查询结果不对呀 db2.rar (7.33 KB, 下载次数: 4)

2015-8-21 19:59 上传

点击文件名下载附件

amazeyeli

可能我dcount使用错了
db2.rar (10.84 KB, 下载次数: 7)

2015-8-21 21:03 上传

点击文件名下载附件

ishfb

当非日期的其他数据多了，排名就不正确了{:soso_e109:}

amazeyeli

由于数据库记录的无序性,同一日期排名不分先后,当然你可以插入一序号列以区分先后

amazeyeli

你也可以按日期和代码2个字段来排名

roych

Function JFJE(bm As Date) As Date
Dim rst As New ADODB.Recordset
Dim arr()
rst.Open "SELECT 日期 FROM 日报 GROUP BY 日期 having [日期]=& bm &", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.MoveLast
rst.MovePrevious
arr=rstt(0)
End Function

sxhus

对楼上代码作如下修改
rst.Open "SELECT 日期,代码 FROM 日报 GROUP BY 日期,代码 having [日期]=#" & bm & "#"
arr=rst(0)


测试不成功，roych可否上传测试成功例子

sxhus

这样可以
Sub cc()
Dim rst As New ADODB.Recordset
rst.Open "SELECT 日期,代码 FROM 日报 GROUP BY 日期,代码 having [日期]=#2015-7-9#", CurrentProject.Connection, 1, 3
rst.MoveLast
rst.MovePrevious
MsgBox rst.Fields(1)


End Sub