咦,这个问题???我刚刚不是??


SELECT DISTINCT LEFT(CAST(日期列 AS varchar(10)), 4)  FROM 表

SELECT DISTINCT YEAR(日期) 
FROM table

select distinct left("日期"，4) from table

查出来后还要拆

让它找大于#0-0-0#的记录即可.

select distinct year(日期) from table

同意楼上这位的处理方法

SELECT DISTINCT DATEPART('yy',日期) 
FROM table

select distinct year(日期) from table

谢谢各位朋友。你们提供的方法我都试了，为什么查讯不出结果？请看代码：
Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
    Dim Source As String
    Dim ActiveConnection As String
    Cn.ConnectionString = "uid=admin;pwd=1234;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\日记.mdb"
    Cn.Open
    On Error Resume Next
'    Source = "select distinct 录入时间 from 日记"
'    Source = "select distinct DatePart('yyyy', 录入时间) from 日记"
'    Source = "select distinct LEFT(CAST(录入时间 AS varchar(10)), 4) from 日记"
'    Source = "select distinct SUBSTRING（录入时间，1，4）from 日记"
    Source = "select distinct year(录入时间) from 日记"
    rs.Open Source, Cn, 3, 3
    rs.MoveFirst
    Do Until rs.EOF '
        List1.AddItem IIf(Len(DatePart("yyyy", rs!录入时间)) = 1, 0 & DatePart("yyyy", rs!录入时间), DatePart("yyyy", rs!录入时间))
        rs.MoveNext
    Loop
    rs.Close
End Sub

代码摘录有错，应为：List1.AddItem DatePart("yyyy", rs!录入时间)

现在问题是查讯后，提示“在对应所需名称或序数的集合中，未找到项目”，但表中明明有项目的，用“select distinct 录入时间 from 日记”可以证明。

哪位朋友用select distinct year(fieldname) from tablename 查讯通过测试，请贴出代码以便比较一下，谢谢！

改一行代码，如下即可：
Source = "select distinct year(录入时间) as 录入时间 from 日记"

Source = "select distinct year(录入时间) as 录入时间 from 日记"
试过也不行。

请把通过的代码贴出来，好吗？谢谢！

up