VB中代码创建数据库

阿杰

<p align="center"><strong>VB中代码创建数据库</strong></p><p>先引用Mcrsoft DAO 3.6(或2.5或3.51) Object Library和Mcrsoft Access 9.0 Object Library，在Form上加个Command1,粘贴以下代码： <br/>Private Sub Command1_Click()<br/>　　Dim wrkDefault As Workspace<br/>　　Dim dbsNew As Database<br/>　　Dim tdfNew As TableDef<br/>　　Dim NewDB As Database</p><p>　　If Dir("D:\NewDB.mdb") &lt;&gt; "" Then Kill "D:\NewDB.mdb"</p><p>　　'{取当前目录的话去掉路径： If Dir("NewDB.mdb") &lt;&gt; "" Then Kill "NewDB.mdb")}</p><p>　　Set wrkDefault = DBEngine.Workspaces(0)</p><p>　　Set dbsNew = wrkDefault.CreateDatabase("d:\NewDB.mdb", dbLangGeneral, dbEncrypt)</p><p>　　'{取当前目录的话去掉路径： Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", dbLangGeneral, dbEncrypt)}</p><p>　　dbsNew.NewPassword "", "123" '设置数据库密码为123</p><p>　　Set wrkDefault = Nothing</p><p>　　Set dbsNew = Nothing</p><p>End Sub</p>