利用VB对Access数据库增加新字段

首先打开数据源，然后使用alter table语句即可，具体范例如下：

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

constr = "DRIVER=Microsoft Access Driver (*.mdb)DBQ=" & 数据库路径及文件名 & ""

cn.Open constr

Dim str As String

str = "alter table 表名 add 字段 类型"

rs.Open str, cn, adOpenStatic

msgbox"添加字段成功",vbokonly

ALTER TABLE 的语法如下：

ALTER TABLE "table_name"

[改变方式]

[改变方式] 的详细写法会依我们想要达到的目标而有所不同。再以上列出的改变中，[改变方式] 如下：

加一个栏位: ADD "栏位 1" "栏位 1 资料种类"

删去一个栏位: DROP "栏位 1"

改变栏位名称: CHANGE "原本栏位名" "新栏位名" "新栏位名资料种类"

改变栏位的资料种类: MODIFY "栏位 1" "新资料种类"

例如：alter table biao1 add name char(10)

在表（biao1）中加入 名为name的列 char(10)是它的字段类型。

alter table 表1

add column 字段x Int

向表1添加数字类型的字段x,满足范式的数据库,字段可以任意顺序排列,也就无所谓"两个字段之间加一个新字段".

---