VB代码创建数据库

最新推荐文章于 2025-08-16 15:43:49 发布

原创最新推荐文章于 2025-08-16 15:43:49 发布 · 2.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #database #library #command #object #数据库

Visual Bacis 专栏收录该内容

1 篇文章

订阅专栏

博客介绍了使用VB创建加密数据库并设置密码的方法。需先引用相关对象库，在Form上加Command1，通过代码创建数据库，指定路径和加密方式，最后设置数据库密码为123。

部署运行你感兴趣的模型镜像

'先引用Mcrsoft DAO 3.6(或2.5或3.51) Object Library和Mcrsoft Access 9.0 Object Library，在Form上加个Command1,粘贴以下代码：

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

您可能感兴趣的与本文相关的镜像