
dim
year1,month1,
day1
year1=year(date)
month1=month(date)
day1=day(date)
if
month1<6
then
year1=year1-1
month1=month1+6
end
if
如果是查询
access数据库
的话用
sql=
"select
from
会员消费记录的表格名称
where
记录消费日期的列名<#"&year1&"-"&month1&"-"&day1&"#"
sql数据库
的话
sql=
"select
from
会员消费记录的表格名称
where
记录消费日期的列名<’"&year1&"-"&month1&"-"&day1&"‘"
然后执行语句就行了。至于放在哪里……你应该会吧
以上就是关于VB编程中,我在做会员积分系统,有问题不会。。。。全部的内容,包括:VB编程中,我在做会员积分系统,有问题不会。。。。、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)