VB 创建新的ACCESS数据库,再从已有的ACCESS数据库里拷贝一张表给它(包含符合条件的数据)

来源：百度知道 编辑：UC知道 时间：2024/05/26 17:49:30
已有access数据库db.mdb,里面其中一张表为"数据表",我现在想实现的功能是用vb新建一个以当天日期为名称的库,再从db.mdb中把"数据表"(结构&数据)拷贝过来,并以当时时间命名.最好只要一种"引用"就可实现.
再从db.mdb中把"数据表"(结构&符合条件的数据)拷贝过来
懒虫007的回答有一个问题就是原来的db.mdb还有其他表。如果是拷贝db.mdb的话还要删除那些多余的表。而且新库里的那张表怎么用时间来命名呢？

先用
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的接口了。。