● 用DAO建立数据库 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Ohoh (zzzzZZZZzzzz), 信区: Program
标  题: 用DAO建立数据库
发信站: 荔园晨风BBS站 (Mon Jul 30 19:09:16 2001), 转信

建立数据库可以使用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

--
和 Ohoh 做朋友吧，好吗               ╭─────────────────╮
              │世界上最远的距离  不是生与死的距离│
              │                                  │
              │而是  我站在你面前  你不知道我爱你│
              ╰─────────────────╯
                  FTP://192.168.1.22 (MP3 LINUX)

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.1.22]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店