VB中代码创建数据库
2008-05-01 05:49
120 查看
'先引用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
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.Net 版本 -1
- [完整代码]创建不受数据库限制的报表 VB.Net 版本 -2
- VB代码创建数据库
- VB中代码创建数据库
- [完整代码]创建不受数据库限制的报表 VB.Net 版本 -1
- 在VB.NET中 用代码 利用SQL语句创建数据库、表、存储过程、视图、索引、规则、修改表、查看数据等的方法
- [完整代码]创建不受数据库限制的报表 VB.Net 版本 -2
- 用VB代码在SQL SERVER 中创建数据库,表,列.以及对数据库的操作
- [图文教程+完全代码]水晶报表:创建不受数据库限制的报表
- 使用代码创建数据库
- android中创建数据库已经数据库的操作代码的封装
- java代码创建数据库表
- 用代码创建数据库
- 代码生成的思考:MyMeta提供数据库架构,反射、Emit提供构建的提供动态创建的环境
- [VB.NET]急求vb.net2005连接sql和acc数据库代码!~~给分30!
- 数据库系统中代码创建数据库和表
- SqlServer--用代码创建和删除数据库和表
- 分享一段ios数据库代码。包括创建、升级、增删查改。
- 世上最震撼的vb代码:直接提供ide 创建类delphi代码工程并编译成独立exe,不需要VB run-time
- 分享一段ios数据库代码,包括对表的创建、升级、增删查改