怎样用代码新建一个空数据库并把其他数据库(access)中存在的部分表复制过去

ekekyn 800j 其他  2004-10-10 09:49:05
譬如
现有数据库Db1.mdb中部分表t1、t2、t3
新建一数据库Db2.mdb将t1、t2、t3添加到db2.mdb中
...全文
56 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zyg0 2004-10-10
还有ado
回复
zyg0 2004-10-10
dao
回复
ekekyn 2004-10-10
需要引用什么
回复
zyg0 2004-10-10


SELECT * into t1 FROM [;database=c:\DataBase2.mdb].t1
SELECT * into t2 FROM [;database=c:\DataBase2.mdb].t2
SELECT * into t3 FROM [;database=c:\DataBase2.mdb].t3
回复
zyg0 2004-10-10
创建数据库
Dim wrkDefault As Workspace
Dim dbsNew As Database
Dim tdfNew As TableDef
Dim NewDB As Database

If Dir("D:\NewDB.mdb") <> "" Then Kill "D:\NewDB.mdb"
'{取当前目录的话去掉路径: If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb")}
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNew = wrkDefault.CreateDatabase(App.Path & "\NewDB.mdb", dbLangGeneral, dbEncrypt)
'{取当前目录的话去掉路径: Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", dbLangGeneral, dbEncrypt)}

' dbsNew.NewPassword "", "123" '设置数据库密码为123


Set wrkDefault = Nothing
Set dbsNew = Nothing
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告