時(shí)　間:2016-08-02 13:29:20

作　者:摘　要:用代碼創(chuàng)建數(shù)據(jù)表并新增字段

正　文:

在DAO中，可以通過CreateTableDef方法在數(shù)據(jù)庫中創(chuàng)建新的數(shù)據(jù)表，其具體的語法格式如下所示：

Set[表對象變量]=[數(shù)據(jù)庫對象].CreateTableDef([表名])

在為數(shù)據(jù)庫添加了指定名稱的表后，還需將其添加到表對象集合中，才能夠真正實(shí)現(xiàn)將表添加到數(shù)據(jù)庫中，具體的語法格式如下所示：

[數(shù)據(jù)庫].TableDefs.Append[表]

如果需要為表中新增字段，則需要使用下面的語句來實(shí)現(xiàn)：

[表].Field.Append[表].CreateField([字段名],[數(shù)據(jù)類型],[長度限制])

其中,字段類型為Access數(shù)據(jù)類型常量，字段長度限制單位為字節(jié)，表示該字段允許的多長的數(shù)據(jù)輸入。

在DAO中，需要為某個(gè)字段設(shè)置字段特征，可以使用字段的Attributes屬性，其具體用法格式為：

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

其中，字段特征常量為數(shù)據(jù)庫內(nèi)置的常量，用于表示字段的特征，比如用于表示不可更改的自動(dòng)編號的常量dbAutoIncrField.

附 ??件:

GIF?圖:

代 ??碼：

On Error GoTo Errorhandler

Dim db As DAO.Database

Dim Tb As DAO.TableDef

Dim fld As DAO.Field

'在當(dāng)前數(shù)據(jù)庫中創(chuàng)建 "商品信息表"

Set db = CurrentDb

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

'為商品信息表添加字段

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

'設(shè)置新增字段特征為自動(dòng)編號

fld.Attributes = dbAutoIncrField

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

Tb.Fields.Append fld

Tb.Fields.Append Tb.CreateField("商品編碼", dbText)

Tb.Fields.Append Tb.CreateField("品名規(guī)格", 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("最新進(jìn)價(jià)", dbCurrency)

Tb.Fields.Append Tb.CreateField("成本價(jià)", dbCurrency)

Tb.Fields.Append Tb.CreateField("售價(jià)", dbCurrency)

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

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

'將商品信息表添加到對象集合之中

db.TableDefs.Append Tb

'刷新數(shù)據(jù)庫

Application.RefreshDatabaseWindow

Set Tb = Nothing

db.Close: Set db = Nothing

DoCmd.Close

Exit Sub

Errorhandler:

MsgBox "您正在創(chuàng)建的商品信息表已經(jīng)存在！"

Access軟件網(wǎng)QQ交流群(群號:39785885)

Access源碼網(wǎng)店

與50位技術(shù)專家面對面20年技術(shù)見證，附贈(zèng)技術(shù)全景圖

總結(jié)

以上是生活随笔為你收集整理的access vba表字段_【Access】创建数据表并新增字段的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。