######## 根据日期筛选的select语句###############

Question

'记录:（表：Abc）
'字段： Goods       Date
'类型： 文本         文本（日期经VB前台yy-mm-dd格式后写入Access  *.mdb后的文本格式）
'内容： 铅笔         2003-04-10
'             橡皮         2003-03-20
'             铅笔         2003-03-01
'             橡皮         2003-02-28
'             铅笔         2003-02-15
'             橡皮         2003-02-10
'根据日期筛选25日以前的所以记录
Dim d As Date
d = DateAdd("d", -25, Date)'然后是 ADO + Access
'db.Open "Provider=Microsoft.Jet.OLEDB.3.51......'然后
Dim st As String
st =  "SELECT * FROM Abc where Date ...... ORDER BY Date"RS.Open st, db, adOpenStatic, adLockOptimistic
'然后，赋值，显示返回
'SELECT 句的.........我写不明白

Answer 1

st =  "SELECT * FROM Abc where abc.Date <cdate('" & d & "'ORDER BY Date"
最好不要用Date做字段名

Answer 2

st =  "SELECT * FROM Abc where Abc.Date1 <cdate('" & d & "')ORDER BY Date1"
'返回空值st =  "SELECT * FROM Abc where Abc.Date1 < '" & d & "' ORDER BY Date1"
'返回空值