一个表中有年份和日期两个字段，我想筛选出每年的日期最大的记录，请问在ASP+ACCESS中，这条select语句该如何写？

链接数据库。。。。。。
<%
rs=server.CreateObject("ADODB.recordset")
sql ="select (每年),max(日期) from 表  group by (每年),max(日期) order by max(日期) desc"
rs.open sql,conn,1,1
response.write("每年")&"<br>"
response.write("日期")
%>

感谢楼上相助！不过测试时出错的语句如下：
rs.open "select yyyy,max(ymdt) from mytext group by yyyy,max(ymdt) order by yyyy desc",conn,1,1
其中YYYY是年份的字段名、YMDT是日期的字段名。

出错提示：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
ODBC 驱动程序不支持所需的属性。


[ 本帖最后由 hujj 于 2011-10-27 20:13 编辑 ]

select year,data,max(data) from 表名 order by year --//不知道对不对，刚学数据库的select语句，

语句1,先按年份排序再按日期排序，年份是一样的就会自动分组
select TOP 1 * from [tablename] order by [year] desc,[day] desc
语句2,先按年份分组不排序，再按日期排序
select TOP 1 * from [tablename] group by [year] order by [day] desc
desc由大到小, asc由小到大

参照4楼的提示，我将代码改成：
rs.open "select yyyy,max(ymdt) from mytext group by yyyy order by yyyy desc",conn,1,1
仍然是提示同样的错误，这条语句我在VFP下测试却没有问题，达到需要的结果。

参照版主楼的提示，我将代码改成：
rs.open "select top 1 * from mytext order by yyyy desc,ymdt desc",conn,1,1
也还是提示同样的错误。

Microsoft JET Database Engine 错误 '80040e07'

标准表达式中数据类型不匹配。

/inc/head.asp，行 87

求助高手帮忙解决一下这个问题，谢谢！


            Sql="Select city_oneid,city_twoid,city_threeid,[title],uid,[Text] From [china_data] Where mark='yes' and stop >= #"&date()&"# and adid="&id
        Else
            Sql="Select city_oneid,city_twoid,city_threeid,[title],uid,[Text] From [china_data] Where mark='yes' and stop >= '"&date()&"' and adid="&id
        End If
    Else
        Sql="Select city_oneid,city_twoid,city_threeid,[title],adid,[Text] From [news_data] Where adid="&id
        End If
（87行）Response.write(sql)
        Response.End
    Set Rs=Conn.Execute(Sql)
    If Not Rs.Eof Then




[ 本帖最后由 laocaixg 于 2011-10-29 11:57 编辑 ]

改为（87行）Response.write("sql")

试了一下，不行。是我把代码弄错了，应该是下面的代码：
    Else
            Sql="Select city_oneid,city_twoid,city_threeid,[title],uid,[Text] From [china_data] Where mark='yes' and stop >= '"&date()&"' and adid="&id
        End If
    Else
        Sql="Select city_oneid,city_twoid,city_threeid,[title],adid,[Text] From [news_data] Where adid="&id
    End If
（87行）Set Rs=Conn.Execute(Sql)
    If Not Rs.Eof Then
        city_oneid=Rs(0)
        city_twoid=Rs(1)
        city_threeid=Rs(2)
        WebTitle=Rs(3)&" "
        WebText=Rs(5)
        If ScriptName="show.asp" Then



[ 本帖最后由 laocaixg 于 2011-10-29 11:58 编辑 ]