先用
Dim s As String
s = CStr(Year(Date)) + CStr(Month(Date)) + CStr(Day(Date)) + ".mdb"
得到新文件名s，还可以在前面加上目录
然后用
filecopy "db.mdb", s
把数据库原封不动的拷贝过去
然后用数据连接执行SQL
delete * from 数据表 where 不符合条件
把所有的不符合条件的记录删除
这样就得到了以当前日期为名字的，表中符合条件的数据库
原来你是要以日期为表名啊，找了个文章你看下吧
http://www.mit9.com/Article/Database/Access/200602/1210.html
库？access的一个mdb文件就相当于一个库。如果你一定要生成一个mdb文件的话要去研究一下office access的接口了。。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024