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

时　间:2016-08-02 13:29:20
作　者:杨雪   ID：42182  城市：南京
摘　要:用代码创建数据表并新增字段
正　文:

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

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

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

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

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

在DAO中，需要为某个字段设置字段特征，可以使用字段的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 "您正在创建的商品信息表已经存在！"