时　间:2016-08-02 13:29:20

作　者:摘　要:用代码创建数据表并新增字段

正　文:

在DAO中，可以通过CreateTableDef方法在数据库中创建新的数据表，其具体的语法格式如下所示：

Set[表对象变量]=[数据库对象].CreateTableDef([表名])

在为数据库添加了指定名称的表后，还需将其添加到表对象集合中，才能够真正实现将表添加到数据库中，具体的语法格式如下所示：

[数据库].TableDefs.Append[表]

如果需要为表中新增字段，则需要使用下面的语句来实现：

[表].Field.Append[表].CreateField([字段名],[数据类型],[长度限制])

其中,字段类型为Access数据类型常量，字段长度限制单位为字节，表示该字段允许的多长的数据输入。

在DAO中，需要为某个字段设置字段特征，可以使用字段的Attributes属性，其具体用法格式为：

[字段].Attributes[字段特征常量]

其中，字段特征常量为数据库内置的常量，用于表示字段的特征，比如用于表示不可更改的自动编号的常量dbAutoIncrField.

附   件:

GIF 图:

代   码：

On Error GoTo Errorhandler

Dim db As DAO.Database

Dim Tb As DAO.TableDef

Dim fld As DAO.Field

'在当前数据库中创建 "商品信息表"

Set db = CurrentDb

Set Tb = db.CreateTableDef("商品信息表")

'为商品信息表添加字段

Set fld = Tb.CreateField("商品ID", dbLong)

'设置新增字段特征为自动编号

fld.Attributes = dbAutoIncrField

'将新增字段添加到表的字段集合之中

Tb.Fields.Append fld

Tb.Fields.Append Tb.CreateField("商品编码", dbText)

Tb.Fields.Append Tb.CreateField("品名规格", dbText, 18)

Tb.Fields.Append Tb.CreateField("分类编号", dbCurrency)

Tb.Fields.Append Tb.CreateField("单位", dbText)

Tb.Fields.Append Tb.CreateField("日期", dbDate)

Tb.Fields.Append Tb.CreateField("最新进价", dbCurrency)

Tb.Fields.Append Tb.CreateField("成本价", dbCurrency)

Tb.Fields.Append Tb.CreateField("售价", dbCurrency)

Tb.Fields.Append Tb.CreateField("备注", dbMemo)

Tb.Fields.Append Tb.CreateField("已停用", dbBoolean)

'将商品信息表添加到对象集合之中

db.TableDefs.Append Tb

'刷新数据库

Application.RefreshDatabaseWindow

Set Tb = Nothing

db.Close: Set db = Nothing

DoCmd.Close

Exit Sub

Errorhandler:

MsgBox "您正在创建的商品信息表已经存在！"

Access软件网QQ交流群(群号:39785885)

Access源码网店