[求助]ADOXBuilder COM组建调用返回了错误HRESULT E_FAIL - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]ADOXBuilder COM组建调用返回了错误HRESULT E_FAIL

共有6292人关注过本帖树形打印复制链接主题：[求助]ADOXBuilder COM组建调用返回了错误HRESULT E_FAIL

qtcks

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

加好友

发短信

等级：一尾狐帖子：485 积分：3926 威望：0 精华：6 注册：2009/3/29 13:25:00

[求助]ADOXBuilder COM组建调用返回了错误HRESULT E_FAIL 发帖心情

Post By：2013/5/22 12:41:00 [显示全部帖子]

使用

Dim Builder As New ADOXBuilder

Builder.Open() '打开ADOXBuilder

With Builder.Tables("表B")

提示如下错误.

此主题相关图片如下：搜狗截图_2013-05-22_12-37-52.png

使用自带的增加列提示如下错误.

此主题相关图片如下：搜狗截图_2013-05-22_12-39-33.png

执行以下操作后造成这个问题的

Dim Builder As New ADOXBuilder

Builder.Open() '打开ADOXBuilder

With Builder.Tables("表B")

For Each dl As DataCol In DataTables("表B").Datacols

If dl.name.Contains("a") Then

.DeleteColumn(dl.name )

End If

End With

Builder.Close()

Syscmd.Project.Open(ProjectFile)

qtcks

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

加好友

发短信

等级：一尾狐帖子：485 积分：3926 威望：0 精华：6 注册：2009/3/29 13:25:00

Post By：2013/5/22 14:45:00 [显示全部帖子]

删除代码没错.删除后再新增就出错.

qtcks

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

加好友

发短信

等级：一尾狐帖子：485 积分：3926 威望：0 精华：6 注册：2009/3/29 13:25:00

Post By：2013/5/22 16:26:00 [显示全部帖子]

win8 下无法安装MDAC_TYP.

qtcks

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

加好友

发短信

等级：一尾狐帖子：485 积分：3926 威望：0 精华：6 注册：2009/3/29 13:25:00

Post By：2013/5/22 16:37:00 [显示全部帖子]

定义函数:新增临时列

Dim i As Integer
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
Do
.AddColumn("a" & i,ADOXType.String, 20) '增加字符列,长度为20
If i > 80 Then
Exit Do
End If
i +=1
Loop
End With
Builder.Close() '关闭ADOXBuilder
Syscmd.Project.Open(ProjectFile)

定义函数:删除临时列

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
For Each dl As DataCol In DataTables("表A").Datacols
If dl.name.Contains("a") Then
.DeleteColumn(dl.name )
End If
Next
End With
Builder.Close()
Syscmd.Project.Open(ProjectFile)

在命令窗口中执行第三次时出现错误.

Functions.Execute("新增临时列")
Functions.Execute("删除临时列")