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") <> "" Then Kill "D:\NewDB.mdb"</p><p> '{取当前目录的话去掉路径： If Dir("NewDB.mdb") <> "" 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>
页:
[1]