access vba表字段_【Access】创建数据表并新增字段

时　间: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.Fiel