|
是否可以用source＝select distinct 日期 from 表1类似的语句实现？ |
|
|
|
|
|
咦,这个问题???我刚刚不是??
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
|
|
|
关闭