Private Sub Command1_Click()
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("d:\NewDB.mdb", dbLangGeneral, dbEncrypt)
'{取当前目录的话去掉路径： Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", dbLangGeneral, dbEncrypt)}
dbsNew.NewPassword "", "123" '设置数据库密码为123
Set wrkDefault = Nothing
Set dbsNew = Nothing
End Sub
【VB中代码创建数据库】相关文章：
2025年外省高中学业水平合格性考试成绩转入江苏认定的通告公布05-07
Vb中控件的自动排列05-07
中国大地保险公司实习报告05-07
07年4月北师大“中国古代文学史（一）”串讲（5）05-07
2023年广东梅州中考成绩查询时间及查分入口[7月7日起]05-07
2024年江苏中级导游等级考试准考证打印时间及入口（11月18日9:00起）05-07
生态护坡技术创新措施论文05-07
一年级数学奥数题及答案:猴子爬树05-07
普通中学生入团志愿书500字通用范文05-07
敲重点啦！2024年四川攀枝花中小学寒假时间和春季开学时间公布05-07
初中学校德育课程整合实施探究05-07