如何使用VBA增加、修改及删除Access数据库表字段？

我们在建立Access数据库时，可以手动创建数据库表、字段及字段类型等，如果使用VBA程序来建立数据库表的字段、以及字段类型，长度代码如何写呢？下面进行示例说明，例现有一个Access产品数据库，已存在“产品表”。

1. 在“产品表”里增加一个“产品名称”字段，设置字段类型为字符 10位。

CurrentDb.Execute ("alter table 产品表 add column 产品名 char(10)")

2. 在“产品表”里增加一个“单位”字段，设置字段类型为字符 2位。

CurrentDb.Execute ("alter table 产品表 add column 单位 char(2)")

3. 在“产品表”里增加一个“数量”字段，设置字段类型为数值。

CurrentDb.Execute ("alter table 产品表 drop column 数量 integer")