杜达雄男模程东全见:VB中代码创建数据库

来源：百度文库编辑：中财网时间：2024/05/02 18:30:38

ute;先引用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

VB中怎么使用代码创建SQ数据库 VB中创建数据库问题？ VB如何用代码创建SQ的数据库在VB中如何使用代码方式自动创建ODBC vb中datagrid如何用代码连接access数据库在vb.net 中调用oracle数据库，代码怎么写？ vb中如何关闭数据库求代码语句 VB中怎样用代码向数据库（表）里写入？在VB中怎么才可以创建一个MSSQL数据库和相应的数据库管理员帐号? VB.NET连接数据库代码 VB中调用数据库关于VB中数据库当数据库已经建立以后，如何在vb中动态的创建新的数据表在VB中创建一个数据库存储一段文字,该怎么做? 使用vb如何创建access数据库怎样创建一个数据库,在VB里在VB中打开一个数据库的时候出现:不能打开应用程序创建的低版本的数据库,该怎么办? 在vb中如何写代码可以把修改的数据添加到access数据库中？ asp.net中，如何用代码实现创建本地access数据库？求.net中创建ACCESS数据库表的SQL和访问有密码ACCESS数据库的代码在VB中如何使用代码创建共享文件夹,着急大哥大姐门帮帮吗!! 在VB中想创建一个连接,应该怎样做????代码是什么? vb中代码区别 vb手动创建工具栏中