寒气排出的的身体表现:VB中代码创建数据库

来源：百度文库 编辑：偶看新闻 时间：2024/04/30 22:44:35

VB中代码创建数据库

发布时间：2008-04-03 10:39:52  来源：Blog  作者：Blog  点击：245

’先引用Mcrsoft DAO 3.6(或2.5或3.51) Object Library和Mcrsoft Access Array.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手动创建工具栏中