VB代码创建数据库

原创 2004年04月26日 12:46:00

'先引用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中代码创建数据库

  先引用Mcrsoft DAO 3.6(或2.5或3.51) Object Library和Mcrsoft Access 9.0 Object Library,在Form上加个Command1,粘贴...
  • dzmiao
  • dzmiao
  • 2004年12月27日 22:19
  • 867

VB中代码创建数据库

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:49
  • 185

VB6基本数据库应用(二):建立数据库

这是同样系列的第二篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9451987。这一章将会讲述如何在Access中建立数据库。我将同...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月25日 00:32
  • 9715

VB程序中用ADO对象动态创建数据库和表

   1: 问题的提出  在Visual Basic中,常用的数据访问接口有下列三种:数据库访问对象(DAO,Data Access Object)、远程数据库对象(RDO,Remote Data O...
  • JMS_003
  • JMS_003
  • 2007年08月01日 14:10
  • 1652

vb创建数据库

Public Sub Create_DATA(IP As String, uid As String, pwd As String, dataname As String)--------------...
  • lexiyao
  • lexiyao
  • 2007年12月26日 09:01
  • 539

vb获取、创建数据库及包含表和字段名

Option Explicit Dim isConnect As Boolean '判断数据库是否连接成功 Dim ConADODB As New ADODB.Connection '用于连接MA...
  • hws1058648831a
  • hws1058648831a
  • 2013年06月08日 11:30
  • 1553

在VB.NET中 用代码 利用SQL语句创建数据库、表、存储过程、视图、索引、规则、修改表、查看数据等的方法

下面是利用SQL语句创建数据库、表、存储过程、视图、索引、规则、修改表、查看数据等的方法。所要增加的控件如下: Imports System.Data Imports Sy...
  • jiangliqing1234
  • jiangliqing1234
  • 2012年04月27日 19:59
  • 7690

VB使用ADOX获得各种数据库的表

MSSQL的表Public Function getSQL2kTable(DBServerName, sDBName, DBUser, DBPWD) On Error Resume Next    D...
  • hbjmdx008
  • hbjmdx008
  • 2006年08月02日 13:56
  • 1631

【vb数据库】--创建数据库需知

1、组织一个关系型数据库     一个表中的数据和另一个表中的数据之间存在的某种类型的链接,这种链接指示出了某种类型的关系。 关系型数据库的结构概括:一个RDBMS(管理数据的各种软件,例...
  • u011626283
  • u011626283
  • 2014年07月13日 20:14
  • 880

使用SQL语句创建基本数据库

SQL语句代码:CREATE DATABASE Epiphany ON ( NAME = Epiphany, FILENAME = 'E:\SQL SERVER 2008\Epiph...
  • u014526438
  • u014526438
  • 2014年04月03日 22:09
  • 21902
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB代码创建数据库
举报原因:
原因补充:

(最多只允许输入30个字)