您现在的位置是：首页 > 综合范文

VB中代码创建数据库(vb简单的代码)

2023-10-31共人围观

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

'先引用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