1180
社区成员
- 主页
怎样用代码新建一个空数据库并把其他数据库（access）中存在的部分表复制过去
譬如
现有数据库Db1.mdb中部分表t1、t2、t3
新建一数据库Db2.mdb将t1、t2、t3添加到db2.mdb中
现有数据库Db1.mdb中部分表t1、t2、t3
新建一数据库Db2.mdb将t1、t2、t3添加到db2.mdb中
...全文
请发表友善的回复…
发表回复
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
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
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