怎么通过VB在Access中添加一个新列

核心代码：

ALTER TABLE 表名 ADD 字段名 字段数据类型

实例：

cn.Execute "ALTER TABLE 商品信息表 ADD 价格 Single"

很简单，用字符串查找函数就可以实现了。

当在StrB查找到StrA字符串时，返回肯定是非0的数，值就是True，找不到为0或者-1，值就是Flase

比如：

Dim StrA As String = "Time is Limited"

Dim StrB As String = "Time"

Dim Stu As Boolean= InStr(StrA, StrB)

这运行段代码，Stu值就是True了。

我觉得这样最简单有效。

打开access文件后

右键你左边树的表名

然后出现如图

选择设计视图，然后你就往里边添加新字段就可以了

---