空手建立Access数据库

程序图例

-

软件描述:包括源代码

描述:一个主要表单

私有子命令1_Click()

出错时转到错误100

定义表和字段。

Dim将数据库定义为数据库

Dim DefTable作为TableDef，DefField作为Field

Set DefDatabase = Workspaces(0)。OpenDatabase(App。路径& " \ v B-代码。MDB”，0，假)

set table = def database . createtabledef("中国")

dbBinary = 9

dbBoolean = 1

dbByte = 2

dbChar=18

dbDate=8

dbInteger=3

dbLong=4

dbMemo=12

dbText=10

将名称字段设置为8个字符。

Set DefField = DefTable。CreateField("Name "，dbText，8)

灵巧的。字段。追加定义字段

Set DefField = DefTable。CreateField("Sex "，dbText，2)

灵巧的。字段。追加定义字段

该字段允许为空

德夫菲尔德。AllowZeroLength = True

创建具有三个年龄字段的常量类型。

Set DefField = DefTable。CreateField("Age "，dbInteger，3)

字段追加

灵巧的。字段。追加定义字段

表格追加

DefDatabase。追加可定义表格

MsgBox“一切正常，‘中国’表已经建立！”，VB信息

出口接头

错误100:

MsgBox "抱歉，无法创建表格。请先设置VB-CODE数据库，然后再设置表？”，VB临界

末端接头

Private Sub cmdCreate_Click()

出错时转到错误100

建立一个名为VB-CODE的数据库。

创建数据库“VB代码”，dbLangGeneral

MsgBox“一切正常，数据库建立！”，VB信息

出口接头

错误100:

MsgBox "无法建立数据库！"& vbCrLf & vbCrLf &呃。描述，VB信息

末端接头