发信人: info93()
整理人: cobe(1999-09-30 00:50:04), 站内信件
|
【 在 akang (阿康) 的大作中提到: 】
: Set db = DBEngine.workspaces(0).createdatabas_("test.mdb",dbLangGenera
: l)
: 这个语句错了吗?请各位大侠指点
用DAO建立数据库 上一个 返回 下一个
建立数据库可以使用VB的数据管理器，也可以用代码直接创建，在此介绍用DAO建
立数据库的过程，首先要引用Microsoft DAO 3.5 Object Library
1、建立数据库，使用CreateDatabase方法
Dim db As Database
Set db = CreateDatabase("c:\vbdbf\book.mdb", dbLangGeneral, dbVersion3
0)
CreateDatabase方法建立一个数据库，并且将其打开。它有3个参数，如上例，第
一个参数为字符串类型，表示带路径名、后缀名的数据库的名称；第二个参数指
定数据库的国别，以及密码字符串；第三个参数指定数据库的格式。
2、在数据库中添加数据表，使用CreateTableDef方法
Dim tb_book As TableDef
Set tb_book = db.CreateTableDef("book")
CreateTableDef方法在数据库中添加一个TableDef对象，即添加一个数据表。参
数为字符串类型，指定新建的数据表的名称。
3、为数据表添加字段，使用CreateField方法
Dim book_id As Field
Set book_id = tb_book.CreateField("bookid", dbText, 8)
CreateField方法在数据表中添加字段，参数为字段名称（字符串）、字段类型、
字段长度。
4、为数据表建立索引，使用CreateIndex方法
Dim id_dx as Index
Set id_dx = tb_book.CreateIndex("bookid")
id_dx.Primary = True
id_dx.Unique = True
Dim iddx_fld as Field
Set iddx_fld = id_dx.CreateField("bookid")
先建立一个索引对象，指定bookid为主索引且是唯一不重复的，然后在此索引对
象中建立一个字段bookid。
5、将字段、索引添加到数据表中，将数据表添加到数据库中，使用Append方法
把bookid字段添加到数据表：
tb_book.Fields.Append book_id
把索引添加到数据表：
id_dx.Fields.Append iddx_fld
tb_book.Indexes.Append id_dx
把数据表添加到数据库：
db.TableDefs.Append tb_book
--
我是小雁侠
侠之大者，为国为民
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.46.91]
|
|