动态修改表结构总提示出错？（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态修改表结构总提示出错？（已解决）

共有7949人关注过本帖树形打印复制链接主题：动态修改表结构总提示出错？（已解决）

zpx_2012

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00

动态修改表结构总提示出错？（已解决） 发帖心情

Post By：2013/3/25 11:51:00 [显示全部帖子]

如题，想在命令窗口中通过下面的代码批量的增加一些列，如下：

Dim Cns() As String = {"填表人","修改人","sys_流程状态","sys_流程名称","sys_传递说明","sys_编辑者"}

Dim Builder As New ADOXBuilder("EI") '用于外部数据源

Builder.Open()

For Each t As Table In Tables

For Each Cn As String In Cns

If Tables(t.name).Cols.Contains(Cn) = False Then '如果表中没有此列

With Builder.Tables(t.name)

.AddColumn(Cn,ADOXType.String,16)

End With

End If

Builder.Close()

但运行时总提示如下错误

此主题相关图片如下：360截图20130325114708898.jpg

不知道是哪里错了，请教大家，谢谢！

[此贴子已经被作者于2013-3-25 14:43:17编辑过]

zpx_2012

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00

Post By：2013/3/25 12:10:00 [显示全部帖子]

通过菜单增加列是没有问题，但那样太麻烦了，因为表单很多要打开来一列一列增加，而且主要都是一些相同的列，

同时我在命令窗口使用这种方式出现这个情况，如果一次只是增加一列，而且现有的每个表都没有这一列的话就没有问题可以增加，若其中有一个表已经有这一列，则会报错。所以我就想在增加前先遍历表并且判断这个列是否存在表中，没有才增加，没想到这样也会提示出错。

那请问狐爸，还有没有其他办法一次性的批量增加列。

zpx_2012

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00

Post By：2013/3/25 14:43:00 [显示全部帖子]

谢谢狐爸，解决了，原来是要排除关联表就可以了。

zpx_2012

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00

Post By：2013/3/25 16:32:00 [显示全部帖子]

就是增加了一行排除关联列啊，其他都是一样的。但当列已经增加后，不能再运行第二次，会提示出错，当然这个错不影响什么就是了。

Dim Cns() As String = {"填表人","修改人","sys_流程状态","sys_流程名称","sys_传递说明","sys_编辑者"}

Dim Builder As New ADOXBuilder("EI") '用于外部数据源

Builder.Open()

For Each t As Table In Tables

If t.Isrelation = False

For Each Cn As String In Cns

If Tables(t.name).Cols.Contains(Cn) = False Then '如果表中没有此列

With Builder.Tables(t.name)

.AddColumn(Cn,ADOXType.String,16)

' .DeleteColumn("日期")

' .RenameColumn("第一列","姓名")

End With

End If

下一主题 >> << 上一主题

主题：动态修改表结构总提示出错？（已解决）