在vb中用jet4.0access库利用date取当前时间与出生时间进行比较,大于60岁用datagrid显示

来源:百度知道 编辑:UC知道 时间:2024/06/10 21:03:51
语句如下:
dim s as string
dim a as date
a=dateadd("d",-21900,date)
s="btime > a"
adodc1.connectstring="provider=m....;data source....;persist...."
adodc1.recordsource="select * from oldmoney where" & s
提示“至少一个参数没有被指定值”
拜求各位高手帮帮小弟

adodc1.recordsource="select * from oldmoney where " & s
要加空格...

其实只要改成这样就好了,s、a都是多此一举
adodc1.recordsource="select * from oldmoney where btime > dateadd('y',-60,now())"